me
/
guix
Archived
1
0
Fork 0
Code

ui: Filter out internal commands from '--help'. 

* guix/ui.scm (show-guix-help)[internal?]: New procedure.
  Use it to filter out internal commands reported by '--help'.
master
Ludovic Courtès 2014-01-06 23:31:17 +01:00
parent 54ff0b7dd7
commit 59f734f351
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/ui.scm
View File

@ -558,13 +558,17 @@ reporting."
(command-files))) (command-files)))
(define (show-guix-help) (define (show-guix-help)
(define (internal? command)
(member command '("substitute-binary" "authenticate")))
(format #t (_ "Usage: guix COMMAND ARGS... (format #t (_ "Usage: guix COMMAND ARGS...
Run COMMAND with ARGS.\n")) Run COMMAND with ARGS.\n"))
(newline) (newline)
(format #t (_ "COMMAND must be one of the sub-commands listed below:\n")) (format #t (_ "COMMAND must be one of the sub-commands listed below:\n"))
(newline) (newline)
;; TODO: Display a synopsis of each command. ;; TODO: Display a synopsis of each command.
(format #t "~{ ~a~%~}" (sort (commands) string<?)) (format #t "~{ ~a~%~}" (sort (remove internal? (commands))
string<?))
(show-bug-report-information)) (show-bug-report-information))
(define program-name (define program-name