From e917bcc124b9e1a8f4ce046d4ad7e6f817631666 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 14 Aug 2014 09:49:31 -0700
Subject: Make `raw_tex` extension non-default for textile reader, writer.

Enable `raw_tex` extension in textile writer.

Closes #1532.
---
 src/Text/Pandoc/Writers/Textile.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs
index 3a6982a01..20cb5f6f7 100644
--- a/src/Text/Pandoc/Writers/Textile.hs
+++ b/src/Text/Pandoc/Writers/Textile.hs
@@ -404,8 +404,10 @@ inlineToTextile _ (Str str) = return $ escapeStringForTextile str
 inlineToTextile _ (Math _ str) =
   return $ "<span class=\"math\">" ++ escapeStringForXML str ++ "</math>"
 
-inlineToTextile _ (RawInline f str)
+inlineToTextile opts (RawInline f str)
   | f == Format "html" || f == Format "textile" = return str
+  | (f == Format "latex" || f == Format "tex") &&
+     isEnabled Ext_raw_tex opts                 = return str
   | otherwise                                   = return ""
 
 inlineToTextile _ (LineBreak) = return "\n"
-- 
cgit v1.2.3