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

remove background stuff that didnt work

This commit is contained in:
Rhiannon Morris 2020-07-22 00:11:14 +02:00
parent e719d41110
commit 488a4cdd08
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
make-pages/Info.hs
View File

@ -34,7 +34,6 @@ data Info =
nsfwTags :: ![Text],
description :: !(Maybe Text),
images :: ![Image],
background :: !(Maybe Text),
thumb' :: !(Maybe FilePath),
links :: ![Link]
}
@ -101,7 +100,6 @@ instance FromYAML Info where
<*> m .:? "nsfw-tags" .!= []
<*> m .:? "description"
<*> (m .: "images" >>= imageList)
<*> m .:? "background"
<*> m .:? "thumb"
<*> m .:? "links" .!= []

5
make-pages/SinglePage.hs
View File

@ -28,7 +28,7 @@ make nsfw = toLazyText . make' nsfw
make' :: Bool -> Info -> Builder
make' nsfw (Info {date, title, artist, tags, nsfwTags,
description, images, background, links}) = [b|@0
description, images, links}) = [b|@0
<!DOCTYPE html>
<html lang=en>
<meta charset=utf-8>
@ -48,7 +48,7 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
<script async src=/script/single.js></script>
<main>
<figure id=mainfig$dataBg>
<figure id=mainfig>
$warning'
<a id=mainlink href="$@path0">
<img id=mainimg src="$@path0'">
@ -84,7 +84,6 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
tagsList = makeTags nsfw tags nsfwTags
linksList = extLinks nsfw links
dataBg = ifJust background \bg -> [b| data-bg="$*bg"|]
warning' = ifJust (#warning image0) \w -> [b|@4
<figcaption id=cw>
<span id=cw-text>cw: <b>$*w</b></span>