Reserve 15 columns for names

Align data about a repository at 15 characters, for now. Looks a
little bit cleaner.
This commit is contained in:
Tom Willemsen 2012-07-01 01:50:55 +02:00
parent d7a622d4ba
commit ac87cfb21c

View file

@ -96,7 +96,7 @@ gitto [options]
(let ((numup (git-revs-to-push))
(numdown (git-revs-to-pull))
(clean? (git-clean?)))
(format #t "~a: ~d to push, ~d to pull and is ~adirty.\n"
(format #t "~a:~15t~d to push, ~d to pull and is ~adirty.\n"
(basename repo) numup numdown
(if clean? "not " ""))))
repositories))