# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1711603001 14400
#      Thu Mar 28 01:16:41 2024 -0400
# Node ID 6302fdb0c7f214af845b2a6477361e698767ba95
# Parent  c869e663be3e122c18bb78267537fd0d56267e2e
don't combine the same lists twice

diff --git a/site.arc b/site.arc
--- a/site.arc
+++ b/site.arc
@@ -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 @@
                                       (let next-page (tags.tag (+ 1 this-pos))
                                            (link (string next-page!title " &gt;") 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