add .corner and .left/.right classes
This commit is contained in:
parent
c2f991bc3e
commit
0f908581df
3 changed files with 15 additions and 11 deletions
|
@ -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>|]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue