module Rules.PageType (
    PageConf (..)
  , PageConfReader
) where

import           Control.Monad.Reader (ReaderT (..))
import           Text.Pandoc.Options  (WriterOptions)
import qualified Vendor.FontAwesome   as FA
import           Vendor.KaTeX         (KaTeXRender)


data PageConf = PageConf {
    PageConf -> WriterOptions
pcWriterOpt   :: WriterOptions
  , PageConf -> KaTeXRender
pcKaTeXRender :: KaTeXRender
  , PageConf -> FontAwesomeIcons
pcFaIcons     :: FA.FontAwesomeIcons
  , PageConf -> Bool
pcIsPreview   :: Bool
  }

type PageConfReader = ReaderT PageConf