@@ 74,7 74,7 @@
pregenerated-folder))
(msince start-time "Generating frontpage: ")
(prn-frontpage published-files
- frontpage-folder
+ frontpage-filepaths
output-folder
navbar-div
analytics-script
@@ 380,13 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-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)
+(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)
public-sorted-options (keep page-is-public sorted-options))
(w/outfile dest (+ output-folder "index.html")