From 5eb7116d980096bc4868febe53d8f51061bb6b14 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 27 Jan 2014 22:39:43 -0800
Subject: [PATCH] working on sorting directories to top

---
 server-routes.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/server-routes.rkt b/server-routes.rkt
index 3dff708..f9f03d3 100644
--- a/server-routes.rkt
+++ b/server-routes.rkt
@@ -150,7 +150,10 @@
   (define project-paths (filter-not ineligible-path? (directory-list dir)))
   
   (define (unique-sorted-output-paths xs)
-    (sort (set->list (list->set (map ->output-path xs))) #:key ->string string<?))
+    (define all-paths (set->list (list->set (map ->output-path xs))))
+    (define subdirectories (filter directory-exists? all-paths))
+    (define files (filter-not directory-exists? all-paths))
+    (report (append (sort subdirectories #:key ->string string<?) (sort files #:key ->string string<?))))
   
   (html-wrapper
    `(body