@@ 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)))
+            tag-map (get-tags (+ published-files frontpage-filepaths))
+            mailing-list-div nil)
       (msince start-time "Copying pregenerated folder: ")
       (when (dir-exists pregenerated-folder)
         (copy-pregenerated-folder pregenerated-folder output-folder analytics-script))

          
@@ 63,7 64,8 @@ 
                  navbar-div
                  analytics-script
                  config
-                 tag-map))
+                 tag-map
+                 mailing-list-div))
       (msince start-time "Codegeneration: ")
       (each codegen-filepath codegen-filepaths
         (codegenpage codegen-filepath

          
@@ 302,7 304,7 @@ page-specific-headers"
 
 
 
-(def genpage (src-filepath output-folder navbar-div analytics-script config tag-map)
+(def genpage (src-filepath output-folder navbar-div analytics-script config tag-map mailing-list-div)
   (w/infile infile src-filepath
             (withs (options (if (is (peekc infile) #\()
                                 (read-table infile)

          
@@ 321,7 323,7 @@ page-specific-headers"
                           (ensure-dir (cut output-location 0 (last slash-positions)))))
                    (w/outfile dest output-location
                               (w/stdout dest
-                                        (prn-html-page title url-slug navbar-div options infile analytics-script config tag-map))))))
+                                        (prn-html-page title url-slug navbar-div options infile analytics-script config tag-map mailing-list-div))))))
 
 (def codegenpage (codegen-file output-folder analytics-script config pregenerated-folder)
   "Generate pages from CODEGEN-FILE, an arc file, and write them to OUTPUT-FOLDER.

          
@@ 336,7 338,7 @@ title, url-slug, body."
                              (w/stdout dest
                                        (prn-codegen-page page!title page!url-slug page!body analytics-script page!headers config)))))))
 
-(def prn-html-page (title url-slug navbar-div options infile-after-options analytics-script config (o tag-map (obj)) (o mailing-list-div nil))
+(def prn-html-page (title url-slug navbar-div options infile-after-options analytics-script config tag-map mailing-list-div)
   (prn-page
    title
    url-slug

          
@@ 405,7 407,10 @@ title, url-slug, body."
                                              (awhen option!frontpage
                                                     (prn (make-frontpage-blurb option))))))
                             analytics-script
-                            config)))))
+                            config
+                            nil
+                            ;;don't put a mailing list on the front page.
+                            nil)))))
 
 (def make-frontpage-blurb (options)
   (withs (raw-blurb options!frontpage)