aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Typst.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs
index 128c919c4..bd8dc78e2 100644
--- a/src/Text/Pandoc/Readers/Typst.hs
+++ b/src/Text/Pandoc/Readers/Typst.hs
@@ -365,6 +365,8 @@ blockHandlers = M.fromList
pure $ B.plain . B.text . mconcat . map toNum $ V.toList nums)
,("footnote.entry", \_ fields ->
getField "body" fields >>= pWithContents pBlocks)
+ ,("pad", \_ fields -> -- ignore paddingy
+ getField "body" fields >>= pWithContents pBlocks)
]
inlineHandlers :: PandocMonad m =>
@@ -499,6 +501,8 @@ inlineHandlers = M.fromList
body <- getField "body" fields
display <- getField "block" fields
(if display then B.displayMath else B.math) . writeTeX <$> pMathMany body)
+ ,("pad", \_ fields -> -- ignore paddingy
+ getField "body" fields >>= pWithContents pInlines)
]
getInlineBody :: PandocMonad m => M.Map Identifier Val -> P m (Seq Content)