Conversion of Pandoc documents to various BBCode flavors.

If you want to support more Pandoc elements (or render some of them differently) you can do so by creating your own FlavorSpec

The module exports the FlavorSpecs underlying writeBBCode_* functions, namely officialSpec, steamSpec, phpbbSpec, fluxbbSpec, hubzillaSpec.

You can create and use your own renderers, for instance here we define a renderer for CodeBlock and use it to create a derivative format:

renderCodeBlockCustom :: (PandocMonad m) => Attr -> Text -> RR m (Doc Text)
renderCodeBlockCustom (_, cls, _) code = do
  let opening = case cls of
        (lang : _) -> "[code=" <> lang <> "]"
        ("c++" : _) -> "[code=cpp]"
        _ -> "[code]"
  pure $ mconcat [literal opening, literal code, cr, "[/code]"]

specCustom = officialSpec{renderCodeBlock = renderCodeBlockCustom}

Then we can use it to render Pandoc document via writeBBCode_custom

Consider attribute a key-value pair with a Just value, and respectively class is key-value pair with Nothing value. For instance, given ("", ["cl1"], [("k", "v")]) :: Attr, respective Map should look like fromList [("cl1", Nothing), ("k", Just "v")]

This transformation is handled by attrToMap

Example definition of a wrapSpanDiv:

{-# LANGUAGE OverloadedStrings #-}
import Data.Map (Map)
import qualified Data.Map as Map
import Text.DocLayout
import Data.Text (Text)
import qualified Data.Text as T

wrapSpanDivSteam :: Bool -> Map Text (Maybe Text) -> Doc Text -> Doc Text
wrapSpanDivSteam isDiv kvc doc = Map.foldrWithKey wrap doc kvc
 where
  wrap "spoiler" (Just _) acc | isDiv = "[spoiler]" <> acc <> "[/spoiler]"
  wrap "spoiler" Nothing acc | isDiv = "[spoiler]" <> acc <> "[/spoiler]"
  wrap _ _ acc = acc

To verify it works, wrap some text in unnamed spoiler

>>> render Nothing $ wrapSpanDivSteam True (attrToMap ("", ["spoiler"], [])) "I am text"
"[spoiler]I am text[/spoiler]"