From 060a76a38e1f3586bc92787bb2c25c2dc04e380e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 5 Apr 2014 20:41:38 -0700
Subject: Textile reader: Improved treatment of HTML spans (%).

Closes #1115.
---
 src/Text/Pandoc/Readers/Textile.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index b42c5e75d..f19d68e64 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -376,7 +376,6 @@ inlineParsers = [ inlineMarkup
                 , endline
                 , code
                 , escapedInline
-                , htmlSpan
                 , rawHtmlInline
                 , rawLaTeXInline'
                 , note
@@ -400,6 +399,7 @@ inlineMarkup = choice [ simpleInline (string "??") (B.cite [])
                       , simpleInline (char '-' <* notFollowedBy (char '-')) B.strikeout
                       , simpleInline (char '^') B.superscript
                       , simpleInline (char '~') B.subscript
+                      , simpleInline (char '%') id
                       ]
 
 -- | Trademark, registered, copyright
@@ -476,10 +476,6 @@ str = do
   updateLastStrPos
   return $ B.str fullStr
 
--- | Textile allows HTML span infos, we discard them
-htmlSpan :: Parser [Char] ParserState Inlines
-htmlSpan = try $ B.str <$> ( char '%' *> attributes *> manyTill anyChar (char '%') )
-
 -- | Some number of space chars
 whitespace :: Parser [Char] ParserState Inlines
 whitespace = many1 spaceChar >> return B.space <?> "whitespace"
-- 
cgit v1.2.3