Add HTML title

app/Main.hs

@@ -98,12 +98,12 @@ instance MimeRender HTML RootModel where
   mimeRender _ (RootModel dateThen dayFile issue count) = renderHtml $ do
     H.docTypeHtml $ do
       H.head $ do
+        H.title $ H.text $ Text.pack $ printf "FZ ⊛ %02d.%02d.%04d ⊛ %s" d m y dayFile.label
         H.style
           "body { margin: 0; font-family: Helvetica, sans-serif; } .layout { display: flex; flex-direction: column; width: 100vw; height: 100vh; } .topbar { user-select: none; text-align: center; padding: .5em; } .content { flex: 1; } iframe { border: 0; }"
       H.body $ do
         H.div ! A.class_ "layout" $ do
           H.div ! A.class_ "topbar" $ do
-            let (y, m, d) = toGregorian dateThen
             H.text $ Text.pack $ printf "Freiburger Zeitung ⊛ %02d.%02d.%04d" d m y
             H.br
             buildLink "⟽" (issue - 1)
@@ -114,6 +114,8 @@ instance MimeRender HTML RootModel where
       url :: String
       url = printf "/api/today/issue/%d/fz.pdf" issue
 
+      (y, m, d) = toGregorian dateThen
+
       buildLink label issue'
         | issue' == 0 =
             H.a ! A.href "/" $ label