From 859f1d189e295ad38de9e2d066664d86e0a3bfa6 Mon Sep 17 00:00:00 2001 From: Paul Brinkmeier Date: Tue, 15 Sep 2026 19:08:00 +0200 Subject: [PATCH] Add zoom=page-width --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 80aee13..3ad2eec 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -243,7 +243,7 @@ instance MimeRender HTML RootModel where H.iframe ! A.src (H.toValue url) ! A.class_ "content" $ mempty where 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