summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-12 16:26:26 +0200
committerLudovic Courtès2012-05-12 16:26:26 +0200
commitd059ab197b4513dd7ef4f9c563bef739d361b034 (patch)
treefa19f0fce46b6b0ca1272289b22c0de790aa1bad
parent514ddef9706f96cff0cb637835cfdd7f9104354a (diff)
downloadskribilo-d059ab197b4513dd7ef4f9c563bef739d361b034.tar.gz
skribilo-d059ab197b4513dd7ef4f9c563bef739d361b034.tar.lz
skribilo-d059ab197b4513dd7ef4f9c563bef739d361b034.zip
Internationalize (skribilo).
* src/guile/skribilo.scm (skribilo-show-help): Gettextize. * po/POTFILES.in: Add `src/guile/skribilo.scm'.
-rw-r--r--po/POTFILES.in3
-rw-r--r--src/guile/skribilo.scm77
2 files changed, 51 insertions, 29 deletions
diff --git a/po/POTFILES.in b/po/POTFILES.in
index 8b9cae1..ab7fc85 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 Ludovic Courtès <ludo@gnu.org>
+# Copyright 2007, 2008, 2009, 2012 Ludovic Courtès <ludo@gnu.org>
src/guile/skribilo/utils/syntax.scm
src/guile/skribilo/biblio/template.scm
@@ -15,3 +15,4 @@ src/guile/skribilo/verify.scm
src/guile/skribilo/engine/lout.scm
src/guile/skribilo/engine/info.scm
src/guile/skribilo/reader/rss-2.scm
+src/guile/skribilo.scm
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index 8bd3b9a..5222f48 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -1,6 +1,6 @@
;;; skribilo.scm -- The Skribilo document processor.
;;;
-;;; Copyright 2005, 2006, 2007, 2008, 2009, 2011 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2006, 2007, 2008, 2009, 2011, 2012 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;
;;;
@@ -61,39 +61,60 @@
;;;
(define (skribilo-show-help)
- (format #t "Usage: skribilo [OPTIONS] [INPUT]
+ (display (_ "Usage: skribilo [OPTIONS] [INPUT]"))
+ (display (_ "
Process Skribilo document from file INPUT (or the standard input) using the
specified reader syntax, and produce its output using the specified engine.
-
+"))
+ (display (_ "
-R, --reader=READER Use READER to parse the input file, e.g., `skribe'
- (default) or `outline'.
- -t, --target=ENGINE Use ENGINE as the output engine, e.g., `html'.
- -c, --custom=C=VAL Use VAL as the value of ENGINE's custom C.
- -o, --output=FILE Write output to FILE.
- --compat=COMPAT Use COMPAT as the compatibility layer, e.g., `skribe'.
-
- -I, --doc-path=DIR Prepend DIR to the document include path.
- -B, --bib-path=DIR Prepend DIR to the bibliography include path.
- -S, --source-path=DIR Prepend DIR to the source include path.
- -P, --image-path=DIR Prepend DIR to the image include path.
- -U, --sui-path=DIR Prepend DIR to the Skribe URL Index (SUI) search path.
-
- -b, --base=BASE Strip BASE from all hyperlinks (`html' engine).
+ (default) or `outline'."))
+ (display (_ "
+ -t, --target=ENGINE Use ENGINE as the output engine, e.g., `html'."))
+ (display (_ "
+ -c, --custom=C=VAL Use VAL as the value of ENGINE's custom C."))
+ (display (_ "
+ -o, --output=FILE Write output to FILE."))
+ (display (_ "
+ --compat=COMPAT Use COMPAT as the compatibility layer, e.g., `skribe'."))
+ (newline)
+ (display (_ "
+ -I, --doc-path=DIR Prepend DIR to the document include path."))
+ (display (_ "
+ -B, --bib-path=DIR Prepend DIR to the bibliography include path."))
+ (display (_ "
+ -S, --source-path=DIR Prepend DIR to the source include path."))
+ (display (_ "
+ -P, --image-path=DIR Prepend DIR to the image include path."))
+ (display (_ "
+ -U, --sui-path=DIR Prepend DIR to the Skribe URL Index (SUI) search path."))
+ (newline)
+ (display (_ "
+ -b, --base=BASE Strip BASE from all hyperlinks (`html' engine)."))
+ (display (_ "
-e, --eval=EXPR Prepend EXPR to the list of expressions to be
- evaluted before the input file is processed.
- -p, --preload=FILE Preload FILE before processing the input file.
-
- -v, --verbose[=LEVEL] Be verbose, unless LEVEL is 0.
- -w, --warning[=LEVEL] Issue warnings, unless LEVEL is 0.
+ evaluted before the input file is processed."))
+ (display (_ "
+ -p, --preload=FILE Preload FILE before processing the input file."))
+ (newline)
+ (display (_ "
+ -v, --verbose[=LEVEL] Be verbose, unless LEVEL is 0."))
+ (display (_ "
+ -w, --warning[=LEVEL] Issue warnings, unless LEVEL is 0."))
+ (display (_ "
-g, --debug[=ARG] Issue debugging output, unless ARG is 0. If ARG is
not a number, it is interpreted as a symbol to be
- watched.
- --no-color Disable colored debugging output.
-
- -h, --help Give this help list
- -V, --version Print program version
-
-Report bugs to <~a>.~%"
+ watched."))
+ (display (_ "
+ --no-color Disable colored debugging output."))
+ (newline)
+ (display (_ "
+ -h, --help Give this help list"))
+ (display (_ "
+ -V, --version Print program version"))
+ (newline)
+ (format #t (_ "
+Report bugs to <~a>.~%")
(skribilo-bug-report-address)))
(define (skribilo-show-version)