paul/yore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add HTML title

Browse Source
This commit is contained in:
Paul Brinkmeier 2025-08-19 14:16:56 +02:00
parent 1919d278e8
commit e20b338e96
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -98,12 +98,12 @@ instance MimeRender HTML RootModel where
mimeRender _ (RootModel dateThen dayFile issue count) = renderHtml $ do mimeRender _ (RootModel dateThen dayFile issue count) = renderHtml $ do
H.docTypeHtml $ do H.docTypeHtml $ do
H.head $ do H.head $ do
H.title $ H.text $ Text.pack $ printf "FZ ⊛ %02d.%02d.%04d ⊛ %s" d m y dayFile.label
H.style 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; }" "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.body $ do
H.div ! A.class_ "layout" $ do H.div ! A.class_ "layout" $ do
H.div ! A.class_ "topbar" $ 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.text $ Text.pack $ printf "Freiburger Zeitung ⊛ %02d.%02d.%04d" d m y
H.br H.br
buildLink "⟽" (issue - 1) buildLink "⟽" (issue - 1)
@ -114,6 +114,8 @@ instance MimeRender HTML RootModel where
url :: String url :: String
url = printf "/api/today/issue/%d/fz.pdf" issue url = printf "/api/today/issue/%d/fz.pdf" issue
(y, m, d) = toGregorian dateThen
buildLink label issue' buildLink label issue'
| issue' == 0 = | issue' == 0 =
H.a ! A.href "/" $ label H.a ! A.href "/" $ label