Add 'unlisted' key

unlisted posts will still be put in the normal place but not added to the gallery or rss feed
2021-10-02 23:00:33 +02:00 · 2021-10-02 23:00:33 +02:00 · a8e5adb50d
commit a8e5adb50d
parent e07e90ccd1
3 changed files with 6 additions and 1 deletions
--- a/make-pages/GalleryPage.hs
+++ b/make-pages/GalleryPage.hs
@ -90,6 +90,7 @@ make' root (GalleryInfo {title, desc, prefix, filters, hidden}) infos = [b|@0
  infosByYear =
    [(the year, infopath) |
      infopath@(_, info) <- infos,
+      not $ #unlisted info,
      then sortInfo by info,
      let year = #latestYear info nsfw,
      then group by Down year using groupBy']