diff --git a/app/Main.hs b/app/Main.hs index 92a0910..ad0d861 100644 --- a/app/Main.hs +++ b/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