From 0272a7d17e861a7fcff4791c4c33a76722815016 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 12 Nov 2013 00:54:13 +0100 Subject: [PATCH] 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. --- gitto/main.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)