Typst reader: handle inline bodies ending in a parbreak.

E.g. `#strong[
test
]`.  Here we simply skip the final parbreak.

Treat this as a soft break, which will give results similar
to the typst app.

3 files changed, 18 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs
index c2e1983ac..128c919c4 100644
--- a/src/Text/Pandoc/Readers/Typst.hs
+++ b/src/Text/Pandoc/Readers/Typst.hs
@@ -539,7 +539,8 @@ pWithContents pa cs = try $ do
 
 pInlines :: PandocMonad m => P m B.Inlines
 pInlines =
-  collapseAdjacentCites . mconcat <$> many pInline
+  mappend <$> (collapseAdjacentCites . mconcat <$> many pInline)
+          <*> ((B.softbreak <$ pParBreak) <|> pure mempty)
 
 collapseAdjacentCites :: B.Inlines -> B.Inlines
 collapseAdjacentCites = B.fromList . foldr go [] . B.toList
diff --git a/test/command/9807.md b/test/command/9807.md
new file mode 100644
index 000000000..e5663fac5
--- /dev/null
+++ b/test/command/9807.md
@@ -0,0 +1,13 @@
+```
+% pandoc -f typst -t native
+#let foo = [
+  bar baz
+]
+*#foo*
+^D
+[ Para
+    [ Strong
+        [ SoftBreak , Str "bar" , Space , Str "baz" , SoftBreak ]
+    ]
+]
+```
diff --git a/test/typst-reader.native b/test/typst-reader.native
index 74a0ad8de..7644ee0ff 100644
--- a/test/typst-reader.native
+++ b/test/typst-reader.native
@@ -203,7 +203,8 @@ Pandoc
               [ Underline
                   [ Link
                       ( "" , [] , [] )
-                      [ Strong
+                      [ SoftBreak
+                      , Strong
                           [ Str "Typst"
                           , Space
                           , Str "Math"
@@ -212,6 +213,7 @@ Pandoc
                           , Space
                           , Str "Undergrads"
                           ]
+                      , SoftBreak
                       ]
                       ( "https://github.com/johanvx/typst-undergradmath"
                       , ""