diff options
| -rw-r--r-- | guix/ui.scm | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 45ae14f83c..9cea405456 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -2123,6 +2123,14 @@ Run COMMAND with ARGS.\n")) (define (run-guix-command command . args) "Run COMMAND with the given ARGS. Report an error when COMMAND is not found." + (define (command-hint guess commands) + (define command-names + (map (lambda (command) + (match (command-name command) + ((head tail ...) head))) + commands)) + (string-closest (symbol->string guess) command-names #:threshold 3)) + (define module ;; Check if there is a matching extension. (match (search-path (extension-directories) @@ -2132,9 +2140,13 @@ found." (lambda () (resolve-interface `(guix scripts ,command))) (lambda _ - (format (current-error-port) - (G_ "guix: ~a: command not found~%") command) - (show-guix-usage)))) + (let ((hint (command-hint command (commands)))) + (format (current-error-port) + (G_ "guix: ~a: command not found~%") command) + (when hint + (display-hint (format #f (G_ "Did you mean @code{~a}?") + hint))) + (show-guix-usage))))) (file (load file) (resolve-interface `(guix extensions ,command))))) |