diff options
| author | Ludovic Courtès | 2007-12-12 10:46:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-12 10:46:08 +0100 |
| commit | 8c78bae70a48d4cc76395aa16bae84a728d24a6d (patch) | |
| tree | 803ac629c92e57ff5562b62fb0fe475fe6be4518 | |
| parent | 95f630272515f9d24c2cdbe68d07db9198c9edf0 (diff) | |
| download | skribilo-8c78bae70a48d4cc76395aa16bae84a728d24a6d.tar.gz skribilo-8c78bae70a48d4cc76395aa16bae84a728d24a6d.tar.lz skribilo-8c78bae70a48d4cc76395aa16bae84a728d24a6d.zip | |
Show bug-report email address.
* src/guile/skribilo.scm (skribilo-show-help): Show bug-report address.
* src/guile/skribilo/config.scm.in (skribilo-bug-report-address): New.
| -rw-r--r-- | src/guile/skribilo.scm | 6 | ||||
| -rw-r--r-- | src/guile/skribilo/config.scm.in | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 91d2c09..b19666d 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -39,12 +39,12 @@ exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" :autoload (skribilo module) (make-user-module *skribilo-user-module*) :autoload (skribilo engine) (*current-engine*) :autoload (skribilo reader) (*document-reader*) - :autoload (skribilo config) (skribilo-version) :use-module (skribilo utils syntax) :use-module (skribilo evaluator) :use-module (skribilo debug) :use-module (skribilo parameters) + :use-module (skribilo config) :use-module (skribilo lib) :autoload (srfi srfi-1) (alist-cons) @@ -190,7 +190,9 @@ Processes a Skribilo/Skribe source file and produces its output. --help Give this help list --version Print program version -~%")) + +Report bugs to <~a>.~%" + (skribilo-bug-report-address))) (define (skribilo-show-version) (format #t "skribilo ~a~%" (skribilo-version))) diff --git a/src/guile/skribilo/config.scm.in b/src/guile/skribilo/config.scm.in index 3d9c027..34c0404 100644 --- a/src/guile/skribilo/config.scm.in +++ b/src/guile/skribilo/config.scm.in @@ -19,12 +19,13 @@ ;;; USA. (define-module (skribilo config) - :export (skribilo-version skribilo-url + :export (skribilo-version skribilo-url skribilo-bug-report-address skribilo-module-directory skribilo-doc-directory skribilo-scheme)) (define (skribilo-version) "@PACKAGE_VERSION@") (define (skribilo-url) "http://www.nongnu.org/skribilo/") +(define (skribilo-bug-report-address) "@PACKAGE_BUGREPORT@") (define (skribilo-module-directory) "@guilemoduledir@") (define (skribilo-scheme) "@GUILE@") (define (skribilo-doc-directory) "@docdir@") @@ -32,4 +33,5 @@ ;;; Local Variables: ;;; coding: latin-1 +;;; mode: scheme ;;; End: |