@@ 47,7 47,8 @@ 
             src-filepaths (get-src-filepaths published-folder)
             frontpage-filepaths (get-frontpage-filepaths frontpage-folder)
             codegen-filepaths (get-codegen-filepaths codegen-folder)
-            tag-map (get-tags (+ published-files frontpage-filepaths))
+            all-filepaths (+ published-files frontpage-filepaths)
+            tag-map (get-tags all-filepaths)
             mailing-list-div (tostring (tag (div class "mailing-list") (pr config!mailing-list-cta))))
       (msince start-time "Copying pregenerated folder: ")
       (when (dir-exists pregenerated-folder)

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

          
@@ 380,9 380,8 @@ 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-files frontpage-files output-folder navbar-div analytics-script config)
-  (withs (files (+ published-files frontpage-files)
-          sorted-options (get-sorted-options-for-files files)
+(def prn-frontpage (entry-filepaths output-folder navbar-div analytics-script config)
+  (withs (sorted-options (get-sorted-options-for-files entry-filepaths)
           public-sorted-options (keep page-is-public sorted-options))
       (w/outfile dest (+ output-folder "index.html")
                  (w/stdout dest