From 6da8b421710503949ace55a83ff66649a2578f5c Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 1 Jul 2012 20:25:03 +0200
Subject: Sort repositories

Upon saving, sort the repositories alphabetically by `basename'.  When
`-l' is provided sort before output by location.
---
 gitto/main.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3-54-g00ecf