aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-12 10:46:08 +0100
committerLudovic Courtès2007-12-12 10:46:08 +0100
commit8c78bae70a48d4cc76395aa16bae84a728d24a6d (patch)
tree803ac629c92e57ff5562b62fb0fe475fe6be4518 /src/guile
parent95f630272515f9d24c2cdbe68d07db9198c9edf0 (diff)
downloadskribilo-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.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo.scm6
-rw-r--r--src/guile/skribilo/config.scm.in4
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: