module SinglePage (make) where import Records () import Info hiding (Text) import BuildVar import Control.Exception import qualified Data.Text as Strict import qualified Data.Text.Lazy as Lazy import Data.Text.Lazy.Builder import Data.Time (formatTime, defaultTimeLocale) import Data.Maybe (fromMaybe) import qualified Data.Char as Char import qualified Data.List as List -- | e.g. only nsfw images are present for a non-nsfw page data NoEligibleImages = NoEligibleImages {title :: !Strict.Text} deriving stock Eq deriving anyclass Exception instance Show NoEligibleImages where show (NoEligibleImages {title}) = Strict.unpack title <> ": no images selected\n" <> " (probably a nsfw-only work without --nsfw set)" make :: Bool -> Info -> Lazy.Text make nsfw = toLazyText . make' nsfw make' :: Bool -> Info -> Builder make' nsfw (Info {date, title, artist, tags, nsfwTags, description, images, links}) = [b|@0 $titleTag
$titleHeader $artistTag

$formattedDate $buttonBar

$descSection $tagsList $linksList
|] where titleTag = ifJust title \t -> [b|$*t|] titleHeader = ifJust title \t -> [b|

$*t

|] artistTag = ifJust artist makeArtist formattedDate = formatDate date buttonBar = makeButtonBar (fromMaybe path0 title) nsfw images path0 = #path $ head images descSection = ifJust description makeDesc tagsList = makeTags nsfw tags nsfwTags linksList = extLinks nsfw links makeArtist :: Artist -> Builder makeArtist (Artist {name, url}) = [b|

by $artistLink

|] where artistLink = case url of Just u -> [b|$*name|] Nothing -> [b|$*name|] makeDesc :: Strict.Text -> Builder makeDesc desc = [b|@2

description

$4*desc
|] ifJust :: Monoid b => Maybe a -> (a -> b) -> b ifJust x f = maybe mempty f x formatDate :: Day -> Builder formatDate = fromString . formatTime defaultTimeLocale "%e %#B %Y" makeButtonBar :: Strict.Text -> Bool -> [Image] -> Builder makeButtonBar title nsfw allImages = case length images of 0 -> throw $ NoEligibleImages title 1 -> "" _ -> [b|@2 |] where images | nsfw = allImages | otherwise = filter #sfw allImages alts = map (uncurry altButton) $ zip [0..] images altButton :: Int -> Image -> Builder altButton i (Image {label, path, nsfw}) = [b|@6 |] where nsfwClass = if nsfw then " class=nsfw" else "" checked = if i == 0 then " checked" else "" idLabel = escId label escId :: Strict.Text -> Builder escId = foldMap esc1 . Strict.unpack where esc1 c | Char.isSpace c = "" | c < 'ΓΏ' && not (Char.isAlphaNum c || c == '-') = "_" | otherwise = singleton c makeTags :: Bool -> [Strict.Text] -> [Strict.Text] -> Builder makeTags nsfw sfwTags nsfwTags = if null tags then "" else [b|@2

tags

|] where tagList = map makeTag tags makeTag t = [b|
  • $*t|] tags = List.nub $ if nsfw then sfwTags else sfwTags <> nsfwTags extLinks :: Bool -> [Link] -> Builder extLinks nsfw allLinks = if null links then "" else [b|@2 |] where links = if nsfw then allLinks else filter #sfw allLinks linkList = map extLink links extLink :: Link -> Builder extLink (Link {title, url}) = [b|@6
  • $*title |]