diff --git a/make-pages/IndexPage.hs b/make-pages/IndexPage.hs
index d2813a7..47c53d9 100644
--- a/make-pages/IndexPage.hs
+++ b/make-pages/IndexPage.hs
@@ -7,19 +7,19 @@ import BuilderQQ
 import Info
 
 make :: IndexInfo -> Lazy.Text
-make iinfo = toLazyText $ make' iinfo
+make info = toLazyText $ make' info
 
 make' :: IndexInfo -> Builder
-make' (IndexInfo {galleries, footer}) = [b|@0
+make' (IndexInfo {title, galleries, footer}) = [b|@0
     <!DOCTYPE html>
     <html lang=en>
     <meta charset=utf-8>
     <link rel=stylesheet href=/style/index.css>
 
-    <title>gallery list</title>
+    <title>$*title</title>
 
     <header>
-      <h1>gallery list</h1>
+      <h1>$*title</h1>
     </header>
 
     <main>
diff --git a/make-pages/Info.hs b/make-pages/Info.hs
index 25a5594..14791b2 100644
--- a/make-pages/Info.hs
+++ b/make-pages/Info.hs
@@ -198,6 +198,7 @@ instance FromYAML Whose where parseYAML = YAML.withStr "whose" readWhose
 
 data IndexInfo =
   IndexInfo {
+    title     :: !Text,
     galleries :: ![GalleryInfo],
     footer    :: !Text
   }
@@ -205,7 +206,8 @@ data IndexInfo =
 
 instance FromYAML IndexInfo where
   parseYAML = YAML.withMap "index info" \m ->
-    IndexInfo <$> m .:? "galleries" .!= []
+    IndexInfo <$> m .:  "title"
+              <*> m .:? "galleries" .!= []
               <*> m .:? "footer"    .!= ""
 
 
