@@ -37,6 +37,9 @@ import Data.List ( isPrefixOf, intercalate, isSuffixOf )
3737import Data.Char ( toLower )
3838import Text.Pandoc.Highlighting ( languages, languagesByExtension )
3939import Text.Pandoc.Pretty
40+import Text.TeXMath
41+import qualified Text.XML.Light as Xml
42+import Data.Generics (everywhere, mkT)
4043
4144-- | Convert list of authors to a docbook <author> section
4245authorToDocbook :: WriterOptions -> [Inline] -> Doc
@@ -79,7 +82,10 @@ writeDocbook opts (Pandoc (Meta tit auths dat) blocks) =
7982 [ ("body", main)
8083 , ("title", render' title)
8184 , ("date", render' date) ] ++
82− [ ("author", render' a) | a <- authors ]
85+ [ ("author", render' a) | a <- authors ] ++
86+ [ ("mathml", "yes") | case writerHTMLMathMethod opts of
87+ MathML _ -> True
88+ _ -> False ]
8389 in if writerStandalone opts
8490 then renderTemplate context $ writerTemplate opts
8591 else main
@@ -252,7 +258,23 @@ inlineToDocbook opts (Cite _ lst) =
252258 inlinesToDocbook opts lst
253259inlineToDocbook _ (Code _ str) =
254260 inTagsSimple "literal" $ text (escapeStringForXML str)
255−inlineToDocbook opts (Math _ str) = inlinesToDocbook opts $ readTeXMath str
261+inlineToDocbook opts (Math t str)
262+ | isMathML (writerHTMLMathMethod opts) =
263+ case texMathToMathML dt str of
264+ Right r -> inTagsSimple tagtype
265+ $ text $ Xml.ppcElement conf
266+ $ fixNS
267+ $ removeAttr r
268+ Left _ -> inlinesToDocbook opts
269+ $ readTeXMath str
270+ | otherwise = inlinesToDocbook opts $ readTeXMath str
271+ where (dt, tagtype) = case t of
272+ InlineMath -> (DisplayInline,"inlineequation")
273+ DisplayMath -> (DisplayBlock,"informalequation")
274+ conf = Xml.useShortEmptyTags (const False) Xml.defaultConfigPP
275+ removeAttr e = e{ Xml.elAttribs = [] }
276+ fixNS' qname = qname{ Xml.qPrefix = Just "mml" }
277+ fixNS = everywhere (mkT fixNS')
256278inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x
257279 | otherwise = empty
258280inlineToDocbook _ LineBreak = inTagsSimple "literallayout" empty
@@ -279,3 +301,7 @@ inlineToDocbook _ (Image _ (src, tit)) =
279301 titleDoc $$ selfClosingTag "imagedata" [("fileref", src)]
280302inlineToDocbook opts (Note contents) =
281303 inTagsIndented "footnote" $ blocksToDocbook opts contents
304+
305+isMathML :: HTMLMathMethod -> Bool
306+isMathML (MathML _) = True
307+isMathML _ = False