Add zoom=page-width

This commit is contained in:
Paul Brinkmeier
2026-09-15 19:08:00 +02:00
parent 9959c36a42
commit 859f1d189e
+1 -1
View File
@@ -243,7 +243,7 @@ instance MimeRender HTML RootModel where
H.iframe ! A.src (H.toValue url) ! A.class_ "content" $ mempty H.iframe ! A.src (H.toValue url) ! A.class_ "content" $ mempty
where where
url :: String url :: String
url = printf "/static/pdfjs-5.7.284-dist/web/viewer.html?file=/api/today/issue/%d/fz.pdf" issue url = printf "/static/pdfjs-5.7.284-dist/web/viewer.html?file=/api/today/issue/%d/fz.pdf#zoom=page-width" issue
(y, m, d) = toGregorian dateThen (y, m, d) = toGregorian dateThen