summaryrefslogtreecommitdiff
path: root/module/scripts/help.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-07-23 22:43:08 +0200
committerLudovic Courtès <ludo@gnu.org>2011-07-23 22:43:38 +0200
commit0d2e3fc1e7095c7b64845b29ff01e2077329f127 (patch)
treeec4904e8a847ee87ebd81f2bb2b10669719c3128 /module/scripts/help.scm
parent8698e810078e3224e08a67540fd42ad51b46fdf1 (diff)
downloadguile-0d2e3fc1e7095c7b64845b29ff01e2077329f127.tar.gz
Change `guild --help' and `--version' output to be more GNUish.
* meta/guild.in (display-version): Display the version, not the effective version. * module/scripts/help.scm (list-commands)[help]: Add proper footer, as per the GCS.
Diffstat (limited to 'module/scripts/help.scm')
-rw-r--r--module/scripts/help.scm14
1 files changed, 8 insertions, 6 deletions
diff --git a/module/scripts/help.scm b/module/scripts/help.scm
index e015ad532..107d39485 100644
--- a/module/scripts/help.scm
+++ b/module/scripts/help.scm
@@ -85,10 +85,7 @@
(define (list-commands all?)
(display "\
Usage: guild COMMAND [ARGS]
-
- guild runs command-line scripts provided by GNU Guile and related
- programs. See \"Using Guile Tools\" in the Guile manual, for more
- information.
+Run command-line scripts provided by GNU Guile and related programs.
Commands:
")
@@ -107,9 +104,14 @@ Commands:
(format #t " ~A ~23t~a\n" name summary)
(format #t " ~A\n" name)))))
(find-submodules '(scripts)))
- (display "
+ (format #t "
For help on a specific command, try \"guild help COMMAND\".
-"))
+
+Report guild bugs to ~a
+GNU Guile home page: <http://www.gnu.org/software/guile/>
+General help using GNU software: <http://www.gnu.org/gethelp/>
+For complete documentation, run: info guile 'Using Guile Tools'
+" %guile-bug-report-address))
(define (module-commentary mod)
(file-commentary