diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-30 11:31:50 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-30 11:31:50 +0100 |
| commit | 7018003811f2b606808ddecb5c1ce12e27ad7d51 (patch) | |
| tree | 9f70c8e454ee598f49a9f85f6c2e0a2ba4e629ac /src/Text/Pandoc/Writers/Docbook.hs | |
| parent | 42257b9be935b92c9118d281543c26a30f04d44b (diff) | |
| download | pandoc-7018003811f2b606808ddecb5c1ce12e27ad7d51.tar.gz | |
`--mathml` and MathML in HTMLMathMethod longer take an argument.
The argument was for a bridge javascript that used to be necessary
in 2004. We have removed the script already.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docbook.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 53618d173..4c5b255d8 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -117,8 +117,8 @@ writeDocbook opts (Pandoc meta blocks) = do main <- (render' . vcat) <$> (mapM (elementToDocbook opts' startLvl) elements) let context = defField "body" main $ defField "mathml" (case writerHTMLMathMethod opts of - MathML _ -> True - _ -> False) + MathML -> True + _ -> False) $ metadata return $ case writerTemplate opts of Nothing -> main @@ -421,8 +421,8 @@ inlineToDocbook opts (Note contents) = inTagsIndented "footnote" <$> blocksToDocbook opts contents isMathML :: HTMLMathMethod -> Bool -isMathML (MathML _) = True -isMathML _ = False +isMathML MathML = True +isMathML _ = False idAndRole :: Attr -> [(String, String)] idAndRole (id',cls,_) = ident ++ role |