Add 'unlisted' key

unlisted posts will still be put in the normal place but
not added to the gallery or rss feed

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']

make-pages/Info.hs

@@ -45,6 +45,8 @@ data Info =
     updates     :: ![Update],
     -- | if false, don't show updated emblem even if @updates@ is non-empty
     showUpdated :: !Bool,
+    -- | hide from gallery view
+    unlisted    :: !Bool,
     title       :: !Text,
     artist      :: !(Maybe Artist), -- nothing = me, obv
     nsfwOnly    :: !Bool,
@@ -245,6 +247,7 @@ instance FromYAML Info where
          <*>  m .:? "sort"         .!= ""
          <*> (m .:? "updates" >>= updateList)
          <*>  m .:? "show-updated" .!= True
+         <*>  m .:? "unlisted"     .!= False
          <*>  m .:  "title"
          <*>  m .:? "artist"
          <*>  m .:? "nsfw-only" .!= False

make-pages/RSS.hs

@@ -40,7 +40,8 @@ make' root ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0
   link = [b|$root/$prefix|]
   nsfw = #nsfw ginfo
   items = map (uncurry $ makeItem root prefix nsfw) $
-    sortBy (flip (compareFor nsfw `on` #second)) infos
+    sortBy (flip (compareFor nsfw `on` #second)) $
+    filter (not . #unlisted . snd) infos
   selflink = case output of
     Nothing -> ""
     Just o  -> [b|<atom:link href="$link/$o" rel="self" />|]