diff options
| author |  Tom Willemsen | 2012-07-01 01:50:55 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-07-01 01:50:55 +0200 |
| commit | ac87cfb21cfbb081248a428abd03d4095f70747a (patch) | |
| tree | 75f9bd7c1cc98045879a39a4d7b414903160062f | |
| parent | d7a622d4ba8b187a6f35a7dc5b054148aba2469f (diff) | |
| download | gitto-ac87cfb21cfbb081248a428abd03d4095f70747a.tar.gz gitto-ac87cfb21cfbb081248a428abd03d4095f70747a.zip | |
Reserve 15 columns for names
Align data about a repository at 15 characters, for now. Looks a
little bit cleaner.
| -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 e6624e4..600ddc5 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -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)) |