aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2025-09-28 11:42:06 +0200
committerJohn MacFarlane <[email protected]>2025-09-28 11:42:06 +0200
commitc72ff7393c93ad838cd79d2c6c69fe92f07388ea (patch)
tree47b5c68423e6438a5a45508c5ac69285fa91049e /src
parentdef9fc94ff5b1861739d7cf70ac8e69527569298 (diff)
T.P.Highlighting: export typst functions.
[API change] New exported functions `formatTypstBlock`, `formatTypstInline`, `styleToTypst`.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Highlighting.hs43
1 files changed, 41 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Highlighting.hs b/src/Text/Pandoc/Highlighting.hs
index 524e6dfba..c32815d53 100644
--- a/src/Text/Pandoc/Highlighting.hs
+++ b/src/Text/Pandoc/Highlighting.hs
@@ -30,6 +30,10 @@ module Text.Pandoc.Highlighting ( highlightingStyles
, formatConTeXtBlock
, styleToConTeXt
, formatANSI
+ -- ** Typst
+ , formatTypstBlock,
+ , formatTypstInline,
+ , styleToTypst,
-- * Styles
, defaultStyle
, pygments
@@ -45,12 +49,47 @@ module Text.Pandoc.Highlighting ( highlightingStyles
, fromListingsLanguage
, toListingsLanguage
) where
-import Control.Monad
+import Control.Monad ( msum )
import qualified Data.Map as M
import Data.Maybe (fromMaybe)
import qualified Data.Text as T
import Skylighting
-import Text.Pandoc.Definition
+ ( SyntaxMap,
+ breezeDark,
+ espresso,
+ haddock,
+ kate,
+ monochrome,
+ pygments,
+ tango,
+ zenburn,
+ formatHtml4Block,
+ formatHtmlBlock,
+ formatHtmlInline,
+ styleToCss,
+ formatConTeXtBlock,
+ formatConTeXtInline,
+ styleToConTeXt,
+ formatLaTeXBlock,
+ formatLaTeXInline,
+ styleToLaTeX,
+ formatTypstBlock,
+ formatTypstInline,
+ styleToTypst,
+ formatANSI,
+ Style,
+ FormatOptions(containerClasses, startNumber, lineAnchors,
+ numberLines, lineIdPrefix, codeClasses),
+ SourceLine,
+ lookupSyntax,
+ syntaxesByExtension,
+ parseTheme,
+ tokenize,
+ defaultFormatOpts,
+ TokenizerConfig(traceOutput, TokenizerConfig, syntaxMap),
+ Syntax(sShortname, sName),
+ TokenType(NormalTok) )
+import Text.Pandoc.Definition ( Attr )
import Text.Pandoc.Class (PandocMonad, readFileLazy)
import Text.Pandoc.Error (PandocError(..))
import Control.Monad.Except (throwError)