change some classes to ids

This commit is contained in:
Rhiannon Morris 2020-08-03 19:35:41 +02:00
parent 95b73d45e0
commit 9c23e13628
2 changed files with 7 additions and 7 deletions

View file

@ -61,7 +61,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
</a>
</figure>
<section class=info>
<section id=info>
$descSection
$tagsList
@ -71,7 +71,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
</main>
<footer>
<nav class=back>
<nav id=back>
<a href=$@undir>back to gallery</a>
</nav>
</footer>
@ -114,7 +114,7 @@ makeArtist (Artist {name, url}) =
makeDesc :: Bool -> Maybe Strict.Text -> Maybe Strict.Text -> Builder
makeDesc nsfw desc nsfwDesc = [b|@4
<section class=desc>
<section id=desc>
<h2>about</h2>
<div>
$8*desc'
@ -165,7 +165,7 @@ escId = foldMap esc1 . Strict.unpack where
makeTags :: Bool -> [Strict.Text] -> [Strict.Text] -> Builder
makeTags nsfw sfwTags nsfwTags =
if null tags then "" else [b|@4
<section class=tags>
<section id=tags>
<h2>tags</h2>
<ul class=buttonbar>
$8.tagList
@ -180,7 +180,7 @@ makeTags nsfw sfwTags nsfwTags =
extLinks :: Bool -> [Link] -> Builder
extLinks nsfw allLinks =
if null links then "" else [b|@4
<section class=links>
<section id=links>
<h2>links</h2>
<ul class=buttonbar>
$8.linkList

View file

@ -71,7 +71,7 @@ body {
content: url(../18_plus.svg);
}
.info section {
#info section {
display: grid;
grid-template-columns: 10% auto;
grid-gap: 2em;
@ -80,7 +80,7 @@ body {
margin: auto;
}
.info h2, .info ul, .info p {
#info h2, #info ul, #info p {
margin: 0.35em;
}