summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2015-03-11 14:45:29 +0100
committerLudovic Courtès2015-03-11 17:08:05 +0100
commit40c65814aece83823982357320e7d2a958af2977 (patch)
treee3e20186922fb61b666b33d4ededcff478093ffc
parent96c2d6467dec0ad3280f367de234e2bce03b981f (diff)
downloadskribilo-40c65814aece83823982357320e7d2a958af2977.tar.gz
skribilo-40c65814aece83823982357320e7d2a958af2977.tar.lz
skribilo-40c65814aece83823982357320e7d2a958af2977.zip
'base' package: Internationalize error messages.
* src/guile/skribilo/package/base.scm (source): Use '_' to internationalize error messages. * po/POTFILES.in: Add it.
-rw-r--r--po/POTFILES.in3
-rw-r--r--src/guile/skribilo/package/base.scm12
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 <ludo@gnu.org>
+# Copyright 2007, 2008, 2009, 2012, 2015 Ludovic Courtès <ludo@gnu.org>
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))