Add 'unlisted' key

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

View file

@ -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