@@ 73,7 73,7 @@ 
                      config
                      pregenerated-folder))
       (msince start-time "Generating frontpage: ")
-      (prn-frontpage published-folder
+      (prn-frontpage published-files
                      frontpage-folder
                      output-folder
                      navbar-div

          
@@ 380,19 380,15 @@ title, url-slug, body."
                                       (let next-page (tags.tag (+ 1 this-pos))
                                            (link (string next-page!title " >") next-page!url-slug))))))))))
 
-(def prn-frontpage (published-folder frontpage-folder output-folder navbar-div analytics-script config)
-  (prn "generating frontpage from " published-folder)
-  (withs (published-files (keep file-exists
-                                (map [string published-folder "/" _]
-                                     (dir published-folder)))
-         frontpage-files (and frontpage-folder
+(def prn-frontpage (published-files frontpage-folder output-folder navbar-div analytics-script config)
+  (withs (frontpage-files (and frontpage-folder
                               (dir-exists frontpage-folder)
                               (keep file-exists
                                     (map [string frontpage-folder "/" _]
                                          (dir frontpage-folder))))
-         files (+ published-files frontpage-files)
-         sorted-options (get-sorted-options-for-files files)
-         public-sorted-options (keep page-is-public sorted-options))
+          files (+ published-files frontpage-files)
+          sorted-options (get-sorted-options-for-files files)
+          public-sorted-options (keep page-is-public sorted-options))
       (w/outfile dest (+ output-folder "index.html")
                  (w/stdout dest
                            (prn-html-page