From 8c78bae70a48d4cc76395aa16bae84a728d24a6d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 12 Dec 2007 10:46:08 +0100 Subject: 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. --- src/guile/skribilo.scm | 6 ++++-- 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: -- cgit v1.2.3