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