Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Implemented tex_math extensions in markdown writer.

Browse source
This commit is contained in:
John MacFarlane 2012-08-11 22:24:06 -07:00
parent e520762543
commit 5d83751af4
1 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -42,6 +42,7 @@ import Text.Pandoc.Pretty
import Control.Monad.State import Control.Monad.State
import qualified Data.Set as Set import qualified Data.Set as Set
import Text.Pandoc.Writers.HTML (writeHtmlString) import Text.Pandoc.Writers.HTML (writeHtmlString)
import Text.Pandoc.Readers.TeXMath (readTeXMath)
import Text.HTML.TagSoup (renderTags, parseTags, isTagText, Tag(..)) import Text.HTML.TagSoup (renderTags, parseTags, isTagText, Tag(..))
type Notes = [[Block]] type Notes = [[Block]]
@ -531,10 +532,23 @@ inlineToMarkdown _ (Str str) = do
if stPlain st if stPlain st
then return $ text str then return $ text str
else return $ text $ escapeString str else return $ text $ escapeString str
inlineToMarkdown _ (Math InlineMath str) = inlineToMarkdown opts (Math InlineMath str)
return $ "$" <> text str <> "$" | isEnabled Ext_tex_math_dollars opts =
inlineToMarkdown _ (Math DisplayMath str) = return $ "$" <> text str <> "$"
return $ "$$" <> text str <> "$$" | isEnabled Ext_tex_math_single_backslash opts =
return $ "\\(" <> text str <> "\\)"
| isEnabled Ext_tex_math_double_backslash opts =
return $ "\\\\(" <> text str <> "\\\\)"
| otherwise = inlineListToMarkdown opts $ readTeXMath str
inlineToMarkdown opts (Math DisplayMath str)
| isEnabled Ext_tex_math_dollars opts =
return $ "$$" <> text str <> "$$"
| isEnabled Ext_tex_math_single_backslash opts =
return $ "\\[" <> text str <> "\\]"
| isEnabled Ext_tex_math_double_backslash opts =
return $ "\\\\[" <> text str <> "\\\\]"
| otherwise = (\x -> cr <> x <> cr) `fmap`
inlineListToMarkdown opts (readTeXMath str)
inlineToMarkdown opts (RawInline f str) inlineToMarkdown opts (RawInline f str)
| f == "html" || f == "markdown" || | f == "html" || f == "markdown" ||
(isEnabled Ext_raw_tex opts && (f == "latex" || f == "tex")) = (isEnabled Ext_raw_tex opts && (f == "latex" || f == "tex")) =