diff options
Diffstat (limited to 'gitto/main.scm')
| -rw-r--r-- | gitto/main.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 604142d..8545630 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -51,6 +51,12 @@ gitto [options] (if (not (file-exists? data-dir)) (mkdir data-dir)) + ;; Sort first + (set! repositories + (sort repositories + (lambda (s1 s2) + (string<? (basename s1) (basename s2))))) + (let ((port (open-output-file repositories-file))) (write repositories port) (close-port port))) @@ -114,7 +120,7 @@ gitto [options] (for-each (lambda (repo) (display repo) (newline)) - repositories)) + (sort repositories string<?))) (define option-spec `((version (single-char #\v)) |