1 module Utils.Pandoc.Html where
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 (..))
14 import Data.Default (def)
16 import Data.Text qualified as Text
18 htmlOfPandoc :: WriterOptions -> Pandoc -> H.Html
19 htmlOfPandoc opts = unPandocM . writeHtml5 opts
21 unPandocM :: PandocPure a -> a
22 unPandocM p = either (error . show) id (runPure p)