Typst writer: omit blank line at end of block.

This is just a cosmetic change; it is not semantically
significant.

Closes #11844.

Author: jgm

src/Text/Pandoc/Writers/Typst.hs

@@ -403,15 +403,15 @@ blockToTypst block =
       contents <- blocksToTypst blocks
       return $ "#block" <> toTypstPropsListParens typstAttrs <> "["
         $$ toTypstPoundSetText typstTextAttrs
-        $$ contents
+        $$ chomp contents
         $$ ("]" <+> lab)
 
 defListItemToTypst :: PandocMonad m => ([Inline], [[Block]]) -> TW m (Doc Text)
 defListItemToTypst (term, defns) = do
   modify $ \st -> st{ stEscapeContext = TermContext }
   term' <- inlinesToTypst term
   modify $ \st -> st{ stEscapeContext = NormalContext }
-  defns' <- mapM blocksToTypst defns
+  defns' <- mapM (fmap chomp . blocksToTypst) defns
   return $
     case defns of
       [[Plain _]] -> hang 4 (nowrap ("/ " <> term' <> ": ")) (vcat defns')

test/command/10965.md

@@ -7,7 +7,6 @@ This text should be in English.
 #block[
 #set text(lang: "en");
 This text should be in English.
-
 ]
 ```
 
@@ -20,7 +19,6 @@ Ce texte devrait être en français.
 #block[
 #set text(lang: "fr");
 Ce texte devrait être en français.
-
 ]
 ```
 
@@ -33,7 +31,6 @@ Dieser Text sollte auf Deutsch sein.
 #block[
 #set text(lang: "de");
 Dieser Text sollte auf Deutsch sein.
-
 ]
 ```
 
@@ -45,6 +42,5 @@ This should not have lang set.
 ^D
 #block[
 This should not have lang set.
-
 ]
 ```

test/command/11583.md

@@ -11,6 +11,5 @@
 + item
 + item
 + item
-
 ]
 ```

test/command/11794.md

@@ -6,7 +6,6 @@ Hello
 ^D
 #block[
 Hello
-
 ] <foo>
 
 ```

test/command/9387.md

@@ -7,7 +7,6 @@
 ^D
 #block[
 test
-
 ] #label("my label")
 See #link(label("my label"))[my label].
 

test/writer.typst

@@ -542,7 +542,6 @@ And nested without indentation:
 #block[
 #block[
 foo
-
 ]
 ]
 #block[
@@ -557,7 +556,6 @@ Here's a simple block:
 
 #block[
 foo
-
 ]
 This should be a code block, though: