gistfile1.hs

{-# LANGUAGE ViewPatterns #-}
module InTex where


import Text.Pandoc.JSON
import Text.Pandoc
import Data.List

main :: IO ()
main = toJSONFilter readFootnotes

readFootnotes :: Inline -> Inline
readFootnotes (footnoteText -> Just args) = RawInline (Format "tex") res
  where
    parsed = writeLaTeX def . readMarkdown def
    res = fnString ++ parsed args ++ "}"

readFootnotes (Span (_,["footnotetext"],_) is) = RawInline (Format "tex") tex 
  where
    tex   = fnString ++ writeLaTeX def para ++ "}" 
    para  = Pandoc mempty [Para is]

readFootnotes i = i

fnString = "\\footnotetext{"

footnoteText :: Inline -> Maybe String
footnoteText (RawInline (Format "tex") s) =
  if fnString `isPrefixOf` s
    then Just . init . drop (length fnString) $ s -- Remove closing brace
    else Nothing
footnoteText x = Nothing

------

{- Now:
   
   <span class="footnotetext">arbitrary-pandoc-markdown</span>

   will get transformed nicely to:
   
   \footnotetext{arbitrary-pandoc-markdown-transformed-to-latex}
   
 -}