diff options
| -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 |