generator/Utils/Pandoc/Html.hs

   1 module Utils.Pandoc.Html where
   2
   3 import Relude
   4 import Data.List qualified as List
   5 import Text.Blaze.Html5 qualified as H
   6 import Text.Pandoc (runPure, writeHtml5, PandocPure, WriterOptions)
   7 import Text.Pandoc.Writers.Shared qualified as P
   8 import Text.Pandoc.Walk qualified as P
   9 import Text.Pandoc.Builder qualified as B
  10 import Text.Pandoc.Options qualified as P
  11 import Text.Pandoc.Shared qualified as P
  12 import Text.Pandoc.Definition (Pandoc (..))
  13 import Prelude ()
  14 import Data.Default (def)
  15 import PyF
  16 import Data.Text qualified as Text
  17
  18 htmlOfPandoc :: WriterOptions -> Pandoc -> H.Html
  19 htmlOfPandoc opts = unPandocM . writeHtml5 opts
  20
  21 unPandocM :: PandocPure a -> a
  22 unPandocM p = either (error . show) id (runPure p)