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