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(-)

(limited to 'src')

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