Add zoom=page-width
This commit is contained in:
+1
-1
@@ -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
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user