@@ -46,7 +46,6 @@ import Control.Monad (unless, when, (<=<))
46import qualified Control.Exception as E
46import qualified Control.Exception as E
47import Data.List (isInfixOf)
47import Data.List (isInfixOf)
48import Data.Maybe (fromMaybe)
48import Data.Maybe (fromMaybe)
49−import qualified Data.Map as M
50import qualified Text.Pandoc.UTF8 as UTF8
49import qualified Text.Pandoc.UTF8 as UTF8
51import Text.Pandoc.Definition
50import Text.Pandoc.Definition
52import Text.Pandoc.Walk (walkM)
51import Text.Pandoc.Walk (walkM)
@@ -84,7 +83,12 @@ makePDF "wkhtmltopdf" writer opts doc@(Pandoc meta _) = do
84 (\x -> ['-':'-':f, x]) $ getField f meta'
83 (\x -> ['-':'-':f, x]) $ getField f meta'
85 let args = mathArgs ++
84 let args = mathArgs ++
86 concatMap toArgs [("page-size", Just "letter")
85 concatMap toArgs [("page-size", Just "letter")
87− ,("title", Nothing)]
86+ ,("title", Nothing)
87+ ,("margin-bottom", Just "1in")
88+ ,("margin-top", Just "1in")
89+ ,("margin-left", Just "1in")
90+ ,("margin-right", Just "1in")
88 let source = writer opts doc
92 let source = writer opts doc
89 html2pdf (writerVerbose opts) args source
93 html2pdf (writerVerbose opts) args source
90makePDF program writer opts doc = withTempDir "tex2pdf." $ \tmpdir -> do
94makePDF program writer opts doc = withTempDir "tex2pdf." $ \tmpdir -> do