aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2015-03-11 14:24:42 +0100
committerLudovic Courtès2015-03-11 14:25:22 +0100
commit612d3fa269719c61c12bb6435ec36e6da0963a97 (patch)
tree4411990429e7bfe22716f53873b11e055aacb387
parent48a66db9dad53b1078756df775a4efd06d649e28 (diff)
downloadskribilo-612d3fa269719c61c12bb6435ec36e6da0963a97.tar.gz
skribilo-612d3fa269719c61c12bb6435ec36e6da0963a97.tar.lz
skribilo-612d3fa269719c61c12bb6435ec36e6da0963a97.zip
Improve output of 'skribilo --help'.
Suggested by Benno Schulenberg <coordinator@translationproject.org>. * src/guile/skribilo.scm (skribilo-show-help): Move \n to the end of the line. Make messages all lower-case.
-rw-r--r--src/guile/skribilo.scm87
1 files changed, 44 insertions, 43 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index 463be51..3540b11 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -67,54 +67,55 @@
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'."))
- (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."))
+ (display (_ "\
+ -R, --reader=READER use READER to parse the input file--e.g., 'skribe'
+ (default) or 'outline'\n"))
+ (display (_ "\
+ -t, --target=ENGINE use ENGINE as the output engine--e.g., 'html'\n"))
+ (display (_ "\
+ -c, --custom=C=VAL use VAL as the value of ENGINE's custom C\n"))
+ (display (_ "\
+ -o, --output=FILE write output to FILE\n"))
+ (display (_ "\
+ --compat=COMPAT use COMPAT as the compatibility layer--e.g., 'skribe'\n"))
(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."))
- (display (_ "
- -p, --preload=FILE Preload FILE before processing the input file."))
+ (display (_ "\
+ -I, --doc-path=DIR prepend DIR to the document include path\n"))
+ (display (_ "\
+ -B, --bib-path=DIR prepend DIR to the bibliography include path\n"))
+ (display (_ "\
+ -S, --source-path=DIR prepend DIR to the source include path\n"))
+ (display (_ "\
+ -P, --image-path=DIR prepend DIR to the image include path\n"))
+ (display (_ "\
+ -U, --sui-path=DIR prepend DIR to the Skribe URL Index (SUI) search path\n"))
(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
+ (display (_ "\
+ -b, --base=BASE strip BASE from all hyperlinks ('html' engine)\n"))
+ (display (_ "\
+ -e, --eval=EXPR prepend EXPR to the list of expressions to be
+ evaluted before the input file is processed\n"))
+ (display (_ "\
+ -p, --preload=FILE preload FILE before processing the input file\n"))
+ (newline)
+ (display (_ "\
+ -v, --verbose[=LEVEL] be verbose, unless LEVEL is 0\n"))
+ (display (_ "\
+ -w, --warning[=LEVEL] issue warnings, unless LEVEL is 0\n"))
+ (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."))
- (display (_ "
- --no-color Disable colored debugging output."))
+ watched\n"))
+ (display (_ "\
+ --no-color disable colored debugging output\n"))
(newline)
- (display (_ "
- -h, --help Give this help list"))
- (display (_ "
- -V, --version Print program version"))
+ (display (_ "\
+ -h, --help give this help list\n"))
+ (display (_ "\
+ -V, --version print program version\n"))
(newline)
- (format #t (_ "
+ (format #t (_ "\
Report bugs to <~a>.~%")
(skribilo-bug-report-address)))
@@ -353,7 +354,7 @@ options."
(if (> (*debug*) 4)
(set! %load-hook
(lambda (file)
- (format #t "~~ loading `~a'...~%" file))))
+ (format #t "~~ loading '~a'...~%" file))))
(parameterize ((*document-reader* (make-reader reader-name))