{-# OPTIONS_GHC -Wall #-}

module Text.Pandoc.Highlighting.Extensions
  ( defaultSyntaxMap
  , extendedSyntaxMap
  ) where

-- data-default-class
import Data.Default.Class (def)

-- pandoc
import qualified Text.Pandoc as Pandoc

-- skylighting-extensions
import qualified Skylighting.Extensions

-- skylighting-modding
import Skylighting.Modding (SyntaxMap)

{- |

Pandoc's default syntax highlighting configuration.

-}

defaultSyntaxMap :: SyntaxMap
defaultSyntaxMap = Pandoc.writerSyntaxMap def

{- |

Pandoc's default syntax highlighting configuration, plus all extensions
provided by the @skylighting-extensions@ package. Use this for the value
of 'Pandoc.writerSyntaxMap' to use all of the extensions in your Pandoc
output.

-}

extendedSyntaxMap :: SyntaxMap
extendedSyntaxMap = Skylighting.Extensions.applyAll defaultSyntaxMap