From 71c9316a597298415a7d4cb7f758b523ac9339cd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 27 Nov 2010 10:44:58 -0800
Subject: Use [] for superscripts and subscripts in textile writer.

---
 src/Text/Pandoc/Writers/Textile.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs
index 05acb5e8b..cb8f20a0a 100644
--- a/src/Text/Pandoc/Writers/Textile.hs
+++ b/src/Text/Pandoc/Writers/Textile.hs
@@ -344,13 +344,13 @@ inlineToTextile opts (Superscript lst) = do
   contents <- inlineListToTextile opts lst
   return $ if '^' `elem` contents
               then "<sup>" ++ contents ++ "</sup>"
-              else "^" ++ contents ++ "^"
+              else "[^" ++ contents ++ "^]"
 
 inlineToTextile opts (Subscript lst) = do
   contents <- inlineListToTextile opts lst
   return $ if '~' `elem` contents
               then "<sub>" ++ contents ++ "</sub>"
-              else "~" ++ contents ++ "~"
+              else "[~" ++ contents ++ "~]"
 
 inlineToTextile opts (SmallCaps lst) = inlineListToTextile opts lst
 
-- 
cgit v1.2.3