add gallery description

make-pages/IndexPage.hs

@@ -50,8 +50,8 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0
       |]
 
 makeItem :: GalleryInfo -> Builder
-makeItem (GalleryInfo {title, prefix, filters}) = [b|@4
-    <li$nsfw><a href=$@prefix>$*title</a>
+makeItem (GalleryInfo {title, description, prefix, filters}) = [b|@4
+    <li$nsfw><a href=$@prefix title="$*description">$*title</a>
   |]
   where nsfw = if hasNsfw filters then " class=nsfw" else ""
 

make-pages/Info.hs

@@ -148,6 +148,7 @@ instance FromYAML Link where
 data GalleryInfo =
   GalleryInfo {
     title       :: !Text,
+    description :: !Text,
     prefix      :: !FilePath,
     filters     :: !GalleryFilters
   }
@@ -189,6 +190,7 @@ matchFilters (GalleryFilters {nsfw, whose}) i =
 instance FromYAML GalleryInfo where
   parseYAML = YAML.withMap "gallery info" \m ->
     GalleryInfo <$> m .:  "title"
+                <*> m .:  "description"
                 <*> m .:  "prefix"
                 <*> m .:? "filters" .!= noFilters