summaryrefslogtreecommitdiff
path: root/src/guile
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 /src/guile
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.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/base.scm12
1 files changed, 7 insertions, 5 deletions
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))