Typst reader: handle blockish content for link element.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs
index 36ae36bcf..7ac459fbd 100644
--- a/src/Text/Pandoc/Readers/Typst.hs
+++ b/src/Text/Pandoc/Readers/Typst.hs
@@ -28,7 +28,7 @@ import Text.Pandoc.Options
 import Text.Pandoc.Definition
 import Typst ( parseTypst, evaluateTypst )
 import Text.Pandoc.Error (PandocError(..))
-import Text.Pandoc.Shared (tshow)
+import Text.Pandoc.Shared (tshow, blocksToInlines)
 import Control.Monad.Except (throwError)
 import Control.Monad (MonadPlus (mplus), void, mzero)
 import qualified Data.Foldable as F
@@ -451,7 +451,9 @@ inlineHandlers = M.fromList
                     if "tel:" `T.isPrefixOf` src
                       then T.drop 4 src
                       else src
-          else pWithContents pInlines body
+          else pWithContents pInlines body <|>
+               pWithContents
+                (B.fromList . blocksToInlines . B.toList <$> pBlocks) body
       pure $ B.link src "" description)
   ,("image", \_ fields -> do
       path <- getField "path" fields