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
+makeItem (GalleryInfo {title, description, prefix, filters}) = [b|@4
-    <li$nsfw><a href=$@prefix>$*title</a>
+    <li$nsfw><a href=$@prefix title="$*description">$*title</a>
   |]
   where nsfw = if hasNsfw filters then " class=nsfw" else ""
 

make-pages/Info.hs

@@ -147,9 +147,10 @@ instance FromYAML Link where
 
 data GalleryInfo =
   GalleryInfo {
-    title    :: !Text,
+    title       :: !Text,
-    prefix   :: !FilePath,
+    description :: !Text,
-    filters  :: !GalleryFilters
+    prefix      :: !FilePath,
+    filters     :: !GalleryFilters
   }
   deriving (Eq, Show)
 
@@ -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