diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-08-07 14:30:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-08-07 14:30:47 -0700 |
| commit | bb61624bb2bba416e1992ecdf101f9660a3edcae (patch) | |
| tree | 681d88755bcbf2ab6f2f7dd3995ed71fc2f18129 /src/Text/Pandoc | |
| parent | d44d1664312f0d05ada61eb49a678ef8a04d90d0 (diff) | |
| download | pandoc-bb61624bb2bba416e1992ecdf101f9660a3edcae.tar.gz | |
Textile reader: Removed raw LaTeX parsing.
This isn't part of Textile.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 9191f6908..d4f092d07 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -56,7 +56,6 @@ import Text.Pandoc.Shared import Text.Pandoc.Options import Text.Pandoc.Parsing import Text.Pandoc.Readers.HTML ( htmlTag, isInlineTag, isBlockTag ) -import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXBlock ) import Text.HTML.TagSoup (parseTags, innerText, fromAttrib, Tag(..)) import Text.HTML.TagSoup.Match import Data.List ( intercalate ) @@ -126,7 +125,6 @@ blockParsers = [ codeBlock , commentBlock , anyList , rawHtmlBlock - , rawLaTeXBlock' , maybeExplicitBlock "table" table , maybeExplicitBlock "p" para ] @@ -292,13 +290,6 @@ rawHtmlBlock = try $ do optional blanklines return $ RawBlock "html" b --- | Raw block of LaTeX content -rawLaTeXBlock' :: Parser [Char] ParserState Block -rawLaTeXBlock' = do - guardEnabled Ext_raw_tex - RawBlock "latex" <$> (rawLaTeXBlock <* spaces) - - -- | In textile, paragraphs are separated by blank lines. para :: Parser [Char] ParserState Block para = try $ Para . normalizeSpaces <$> manyTill inline blockBreak @@ -373,7 +364,6 @@ inlineParsers = [ str , escapedInline , htmlSpan , rawHtmlInline - , rawLaTeXInline' , note , try $ (char '[' *> inlineMarkup <* char ']') , inlineMarkup @@ -489,12 +479,6 @@ endline = try $ do rawHtmlInline :: Parser [Char] ParserState Inline rawHtmlInline = RawInline "html" . snd <$> htmlTag isInlineTag --- | Raw LaTeX Inline -rawLaTeXInline' :: Parser [Char] ParserState Inline -rawLaTeXInline' = try $ do - guardEnabled Ext_raw_tex - rawLaTeXInline - -- | Textile standard link syntax is "label":target. But we -- can also have ["label":target]. link :: Parser [Char] ParserState Inline |