diff --git a/make-pages/IndexPage.hs b/make-pages/IndexPage.hs index 5fed673..ff03c40 100644 --- a/make-pages/IndexPage.hs +++ b/make-pages/IndexPage.hs @@ -30,15 +30,19 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0 |] where galleryList = if null galleries then "" else [b|@2 - + |] where items = map makeItem galleries linkList = if null links then "" else [b|@2 - + |] where items = map makeLink links footer' = case footer of @@ -50,13 +54,13 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0 |] makeItem :: GalleryInfo -> Builder -makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|@4 +makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|@6 $*title |] where nsfw = if hasNsfw filters then " class=nsfw" else "" makeLink :: Link -> Builder -makeLink (Link {title, url, nsfw}) = [b|@4 +makeLink (Link {title, url, nsfw}) = [b|@6 $*title |] where nsfw' = if nsfw then " class=nsfw" else "" diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index 362489d..4a5f829 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -51,8 +51,8 @@ make' nsfw dir info@(Info {date, title, artist}) = [b|@0
$warning' - - + +