add .corner and .left/.right classes

This commit is contained in:
Rhiannon Morris 2020-07-19 18:03:24 +02:00
parent c2f991bc3e
commit 0f908581df
3 changed files with 15 additions and 11 deletions

View file

@ -40,7 +40,7 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
<header>
<h1>$*title</h1>
$artistTag
<h2 class=date>$formattedDate</h2>
<h2 id=date class="right corner">$formattedDate</h2>
$buttonBar
</header>
@ -92,7 +92,7 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
makeArtist :: Artist -> Builder
makeArtist (Artist {name, url}) =
[b|<h2 class=artist>by $artistLink</h2>|]
[b|<h2 id=artist class="left corner">by $artistLink</h2>|]
where
artistLink = case url of
Just u -> [b|<a href="$*u">$*name</a>|]