diff options
| -rw-r--r-- | data/templates/definitions.typst | 5 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Typst.hs | 2 | ||||
| -rw-r--r-- | test/writer.typst | 19 |
3 files changed, 8 insertions, 18 deletions
diff --git a/data/templates/definitions.typst b/data/templates/definitions.typst index acdc9ea89..a6deba053 100644 --- a/data/templates/definitions.typst +++ b/data/templates/definitions.typst @@ -1,9 +1,4 @@ // Some definitions presupposed by pandoc's typst output. -#let blockquote(body) = [ - #set text( size: 0.92em ) - #block(inset: (left: 1.5em, top: 0.2em, bottom: 0.2em))[#body] -] - #let horizontalrule = [ #line(start: (25%,0%), end: (75%,0%)) ] diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs index 6c623eb5c..0a598cb37 100644 --- a/src/Text/Pandoc/Writers/Typst.hs +++ b/src/Text/Pandoc/Writers/Typst.hs @@ -124,7 +124,7 @@ blockToTypst block = return $ contents <> blankline BlockQuote blocks -> do contents <- blocksToTypst blocks - return $ "#blockquote[" $$ chomp contents $$ "]" $$ blankline + return $ "#quote(block: true)[" $$ chomp contents $$ "]" $$ blankline HorizontalRule -> return $ blankline <> "#horizontalrule" <> blankline OrderedList attribs items -> do diff --git a/test/writer.typst b/test/writer.typst index ad6ff1c9d..d4dd4c8e6 100644 --- a/test/writer.typst +++ b/test/writer.typst @@ -1,9 +1,4 @@ // Some definitions presupposed by pandoc's typst output. -#let blockquote(body) = [ - #set text( size: 0.92em ) - #block(inset: (left: 1.5em, top: 0.2em, bottom: 0.2em))[#body] -] - #let horizontalrule = [ #line(start: (25%,0%), end: (75%,0%)) ] @@ -151,11 +146,11 @@ here. <block-quotes> E-mail style: -#blockquote[ +#quote(block: true)[ This is a block quote. It is pretty short. ] -#blockquote[ +#quote(block: true)[ Code in a block quote: ``` @@ -171,11 +166,11 @@ A list: Nested block quotes: -#blockquote[ +#quote(block: true)[ nested ] -#blockquote[ +#quote(block: true)[ nested ] ] @@ -447,7 +442,7 @@ orange fruit { orange code block } ``` -#blockquote[ +#quote(block: true)[ orange block quote ] ] @@ -763,7 +758,7 @@ With an ampersand: #link("http://example.com/?foo=1&bar=2") An e-mail address: #link("mailto:nobody@nowhere.net")[nobody\@nowhere.net] -#blockquote[ +#quote(block: true)[ Blockquoted: #link("http://example.com/") ] @@ -809,7 +804,7 @@ is #emph[easier] to type. Inline notes may contain #link("http://google.com")[links] and `]` verbatim characters, as well as \[bracketed text\].] -#blockquote[ +#quote(block: true)[ Notes can go in quotes.#footnote[In quote.] ] |