commit a64d8fe

alphabetical sorting, quit

 1@@ -12,7 +12,9 @@
 2       (if (eof-object? file)
 3           (begin
 4             (closedir dir)
 5-            (reverse files))
 6+            (reverse files)
 7+	    (sort files string<?)
 8+	    )
 9           (loop (readdir dir)
10                 (cons file files))))))
11 
12@@ -81,12 +83,17 @@
13       (system* "xdg-open" (item-name (current-item my-menu)))
14       (loop (getch stdscr)
15 	    )
16+      ((eqv? c #\q)
17+       (endwin)
18+       )
19 
20-      ((not (or (eqv? c #\Q)
21+      ((not (or
22                 (eqv? c #\q)))
23-       (loop (getch stdscr)))))
24+
25+       (loop (getch stdscr))
26+           (fs (list-directory (getcwd))
27+       )))
28 
29     ;;(free-menu my-menu)
30     (refresh stdscr)
31-    (fs (list-directory (getcwd))
32 	)))