mathblog-0.6: src/MB/TeXMacros.hs

module MB.TeXMacros
    ( extractTeXMacros
    )
where

import Control.Applicative
import Data.Either
import qualified Text.Pandoc as Pandoc

-- |Extract "#tex-macros" blocks from the page and store their
-- contents in the postTeXMacros field.  This removes the tex-macros
-- nodes from the Pandoc AST; see the Tikz processor to see how they
-- eventually make it back into the right spot in the output.  The
-- post generation process exposes the macros to the post template via
-- the 'tex_macros' template variable.
extractTeXMacros :: [Pandoc.Block]
                 -> ([Pandoc.Block], String)
extractTeXMacros blocks =
    let result = gatherMacros <$> blocks
    in (lefts result, concat $ rights result)

gatherMacros :: Pandoc.Block
             -> Either Pandoc.Block String
gatherMacros (Pandoc.CodeBlock ("tex-macros", _, _) rawScript) = Right rawScript
gatherMacros b = Left b