rekahsoft/guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: Invite users to try `--help' in the error message.

Browse Source 
* guix/ui.scm (show-guix-usage): Mention `guix --help'.
  Suggested by Mark H. Weaver.
  (run-guix-command): Invoke it when a command is not found.
  (guix-main): Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2013-05-10 23:14:26 +02:00
parent e3729544f9
commit 25c936766e
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
guix/ui.scm
View File

@ -387,7 +387,8 @@ (define (args-fold* options unrecognized-option-proc operand-proc . seeds)
(define (show-guix-usage)
(format (current-error-port)
(_ "Usage: guix COMMAND ARGS...~%")))
(_ "Try `guix --help' for more information.~%"))
(exit 1))
(define (command-files)
"Return the list of source files that define Guix sub-commands."
@ -428,7 +429,9 @@ (define module
(lambda ()
(resolve-interface `(guix scripts ,command)))
(lambda -
(leave (_ "~a: command not found~%") command))))
(format (current-error-port)
(_ "guix: ~a: command not found~%") command)
(show-guix-usage))))
(let ((command-main (module-ref module
(symbol-append 'guix- command))))
@ -443,10 +446,18 @@ (define (guix-main arg0 . args)
(let ()
(define (option? str) (string-prefix? "-" str))
(match args
(() (show-guix-usage) (exit 1))
(("--help") (show-guix-help))
(("--version") (show-version-and-exit "guix"))
(((? option?) args ...) (show-guix-usage) (exit 1))
(()
(format (current-error-port)
(_ "guix: missing command name~%"))
(show-guix-usage))
(("--help")
(show-guix-help))
(("--version")
(show-version-and-exit "guix"))
(((? option? o) args ...)
(format (current-error-port)
(_ "guix: unrecognized option '~a'~%") o)
(show-guix-usage))
((command args ...)
(apply run-guix-command
(string->symbol command)