diff options
| author |  Tom Willemse | 2013-11-12 00:54:13 +0100 |
|---|---|---|
| committer | Tom Willemse | 2013-11-12 00:54:13 +0100 |
| commit | 0272a7d17e861a7fcff4791c4c33a76722815016 (patch) | |
| tree | 588d2aa8ed3f4a1d4a71a441a7e9e25c0e956541 | |
| parent | d1245a3d7f7911b82b801f73565eeab571493758 (diff) | |
| download | gitto-0272a7d17e861a7fcff4791c4c33a76722815016.tar.gz gitto-0272a7d17e861a7fcff4791c4c33a76722815016.zip | |
Give command names less room in help output
So far no command name has gone beyond 15 characters, and the purge help
text was 2 characters too wide.
| -rw-r--r-- | gitto/main.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index f91adfa..5ce6a47 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -95,7 +95,7 @@ COMMAND." (newline) (for-each (lambda (cmd) - (format #t " ~a~20t~a~%" (car cmd) (assq-ref cmd #:usage))) + (format #t " ~a~15t~a~%" (car cmd) (assq-ref cmd #:usage))) command-list)))) (define (known? repo) |