diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-11-14 19:54:31 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-11-14 19:55:03 -0800 |
| commit | 0283cdc200b7ee44d3abdcc7061c47473ed9fd92 (patch) | |
| tree | 3cf0c7e7ca991763a4c8119a979f2b6ca803ab92 | |
| parent | e562d23bc7e21cd7395bee2997c845b3bdfd6afd (diff) | |
Update typst writer to typst 0.9 citation format.
Closes #9188.
| -rw-r--r-- | src/Text/Pandoc/Writers/Typst.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs index d66897fba..159174baf 100644 --- a/src/Text/Pandoc/Writers/Typst.hs +++ b/src/Text/Pandoc/Writers/Typst.hs @@ -21,7 +21,7 @@ import Text.Pandoc.Class ( PandocMonad, fetchItem ) import Text.Pandoc.ImageSize (imageSize, sizeInPoints) import Text.Pandoc.Options ( WriterOptions(..), WrapOption(..), isEnabled ) import Data.Text (Text) -import Data.List (intercalate, intersperse) +import Data.List (intercalate) import qualified Data.Text as T import Control.Monad.State ( StateT, evalStateT, gets, modify ) import Text.Pandoc.Writers.Shared ( metaToContext, defField, resetField, @@ -266,11 +266,10 @@ inlineToTypst inline = return $ q <> contents <> q Cite citations inlines -> do opts <- gets stOptions + let toCite cite = "#cite" <> parens (toLabel (citationId cite)) if isEnabled Ext_citations opts - then return $ -- Note: this loses locators, prefix, suffix - "#cite" <> parens - (mconcat $ intersperse ", " $ - map (doubleQuoted . citationId) citations) + -- Note: this loses locators, prefix, suffix + then return $ mconcat $ map toCite citations else inlinesToTypst inlines Link _attrs inlines (src,_tit) -> do contents <- inlinesToTypst inlines |