diff options
| author | Ludovic Courtès | 2015-03-11 14:45:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2015-03-11 17:08:05 +0100 |
| commit | 40c65814aece83823982357320e7d2a958af2977 (patch) | |
| tree | e3e20186922fb61b666b33d4ededcff478093ffc /src | |
| parent | 96c2d6467dec0ad3280f367de234e2bce03b981f (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 12 |
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)) |