From 36debf75a67ab8e1fa1469d9b54e7fa59c3fb3a9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 6 Jul 2024 23:24:39 -0700
Subject: [PATCH] Typst reader: ignore 'pad' and just parse its body.

See #9958.
---
 src/Text/Pandoc/Readers/Typst.hs | 4 ++++
 1 file changed, 4 insertions(+)

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)