add nsfw warning dialog

make-pages/IndexPage.hs

@@ -27,30 +27,32 @@ make' root (IndexInfo {title, desc, galleries, links, footer}) = [b|@0
 
     <title>$title</title>
 
-    <header>
-      <h1 id=title>$title</h1>
-    </header>
+    <div class=page>
+      <header>
+        <h1 id=title>$title</h1>
+      </header>
 
-    <main>
-      $galleryList
-      $linkList
-    </main>
+      <main>
+        $4.galleryList
+        $4.linkList
+      </main>
 
-    $footer'
+      $2.footer'
+    </div>
   |]
  where
-  galleryList = if null galleries then "" else [b|@2
+  galleryList = if null galleries then "" else [b|@0
       <nav aria-label="gallery list">
         <ul id=gallery-list class=list>
-          $6.items
+          $4.items
         </ul>
       </nav>
     |]
     where items = map makeItem galleries
-  linkList = if null links then "" else [b|@2
+  linkList = if null links then "" else [b|@0
       <nav aria-label="other links">
         <ul id=link-list class=list>
-          $6.items
+          $4.items
         </ul>
       </nav>
     |]
@@ -65,13 +67,13 @@ make' root (IndexInfo {title, desc, galleries, links, footer}) = [b|@0
   url = [b|$root|]
 
 makeItem :: GalleryInfo -> Builder
-makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|@6
+makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|@0
     <li$nsfw><a href=$prefix title="$desc">$title</a></li>
   |]
   where nsfw = if hasNsfw filters then [b| class=nsfw|] else ""
 
 makeLink :: Link -> Builder
-makeLink (Link {title, url, nsfw}) = [b|@6
+makeLink (Link {title, url, nsfw}) = [b|@0
     <li$nsfw'><a href=$url>$title</a>
   |]
   where nsfw' = if nsfw then [b| class=nsfw|] else ""