Internationalize (skribilo).

* src/guile/skribilo.scm (skribilo-show-help): Gettextize.

* po/POTFILES.in: Add `src/guile/skribilo.scm'.

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)