diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-24 22:13:27 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 17:23:56 -0800 |
commit | 0cc7625d98e018d7ff01de14ee1fdd44639d27f7 (patch) | |
tree | e78ddb6522547e23a5159e85df69573a97e3cb59 /src/Text/Pandoc/Writers/Org.hs | |
parent | d3667f9aac2e8436f9446f4200fd9c7c13da50dd (diff) |
Adjusted writers to use "tex".
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index af4070696..8f3ff6f3e 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -118,8 +118,8 @@ blockToOrg (Para inlines) = do blockToOrg (RawBlock "html" str) = return $ blankline $$ "#+BEGIN_HTML" $$ nest 2 (text str) $$ "#+END_HTML" $$ blankline -blockToOrg (RawBlock "latex" str) = return $ text str -blockToOrg (RawBlock "org" str) = return $ text str +blockToOrg (RawBlock f str) | f == "org" || f == "latex" || f == "tex" = + return $ text str blockToOrg (RawBlock _ _) = return empty blockToOrg HorizontalRule = return $ blankline $$ "--------------" $$ blankline blockToOrg (Header level inlines) = do @@ -260,7 +260,7 @@ inlineToOrg (Math t str) = do return $ if t == InlineMath then "$" <> text str <> "$" else "$$" <> text str <> "$$" -inlineToOrg (RawInline "latex" str) = return $ text str +inlineToOrg (RawInline f str) | f == "tex" || f == "latex" = return $ text str inlineToOrg (RawInline _ _) = return empty inlineToOrg (LineBreak) = return cr -- there's no line break in Org inlineToOrg Space = return space |