rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

Add 'unlisted' key

Browse source 
unlisted posts will still be put in the normal place but
not added to the gallery or rss feed
This commit is contained in:
Rhiannon Morris 2021-10-02 23:00:33 +02:00
parent e07e90ccd1
commit a8e5adb50d
3 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
make-pages/RSS.hs
View file

@ -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" />|]