From 40c65814aece83823982357320e7d2a958af2977 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 11 Mar 2015 14:45:29 +0100 Subject: 'base' package: Internationalize error messages. * src/guile/skribilo/package/base.scm (source): Use '_' to internationalize error messages. * po/POTFILES.in: Add it. --- po/POTFILES.in | 3 ++- src/guile/skribilo/package/base.scm | 12 +++++++----- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/po/POTFILES.in b/po/POTFILES.in index ab7fc85..3b5602f 100644 --- a/po/POTFILES.in +++ b/po/POTFILES.in @@ -1,6 +1,6 @@ # List of source files which contain translatable strings. # -# Copyright 2007, 2008, 2009, 2012 Ludovic Courtès +# Copyright 2007, 2008, 2009, 2012, 2015 Ludovic Courtès src/guile/skribilo/utils/syntax.scm src/guile/skribilo/biblio/template.scm @@ -14,5 +14,6 @@ src/guile/skribilo/sui.scm src/guile/skribilo/verify.scm src/guile/skribilo/engine/lout.scm src/guile/skribilo/engine/info.scm +src/guile/skribilo/package/base.scm src/guile/skribilo/reader/rss-2.scm src/guile/skribilo.scm diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index 4cc5f93..b6f9780 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -535,19 +535,21 @@ (cond ((and (not (null? body)) (or file start stop definition)) (skribe-error 'source - "file, start/stop, and definition are exclusive with body" + (_ "file, start/stop, and definition\ + are exclusive with body") body)) ((and start stop definition) (skribe-error 'source - "start/stop are exclusive with a definition" + (_ "start/stop are exclusive with a definition") body)) ((and (or start stop definition) (not file)) (skribe-error 'source - "start/stop and definition require a file specification" + (_ "start/stop and definition require a\ + file specification") file)) ((and definition (not language)) (skribe-error 'source - "definition requires a language specification" + (_ "definition requires a language specification") definition)) ((and file (not (string? file))) (invalid-argument-error 'source file 'file)) @@ -557,7 +559,7 @@ (invalid-argument-error 'source stop 'stop)) ((and (integer? start) (integer? stop) (> start stop)) (skribe-error 'source - "start line > stop line" + (_ "start line is greater than stop line") (format #f "~a/~a" start stop))) ((and language (not (language? language))) (invalid-argument-error 'source language 'language)) -- cgit v1.2.3