f415e9e · typeable/pandoc

git.iko.soy/typeable/pandoc

Textile reader: parse raw by default.

It's part of the textile spec to allow raw HTML, just as with markdown. -R is no longer needed in test suite.

commitf415e9e1194972baa2743a5c63cb07023d494925 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 3 Dec 2010, 22:14 (16 years ago) parentc3866f3

2 files changed+3−1

unifiedsplit

src/Text/Pandoc/Readers/Textile.hs+2

@@ -90,6 +90,8 @@ specialChars = "\\[]<>*#_@~-+^&,.;:!?|\"'%"

9090-- | Generate a Pandoc ADT from a textile document

9191parseTextile :: GenParser Char ParserState Pandoc

9292parseTextile = do

93+ -- textile allows raw HTML

94+ updateState (\state -> state { stateParseRaw = True })

9395 many blankline

9496 blocks <- parseBlocks

9597 return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME

tests/RunTests.hs+1−1

@@ -105,7 +105,7 @@ main = do

105105 "html-reader.html" "html-reader.native"

106106 r10 <- runTest "latex reader" ["-r", "latex", "-w", "native", "-s", "-R"]

107107 "latex-reader.latex" "latex-reader.native"

108− rTextile1 <- runTest "textile reader" ["-r", "textile", "-w", "native", "-s", "-R"]

108+ rTextile1 <- runTest "textile reader" ["-r", "textile", "-w", "native", "-s"]

109109 "textile-reader.textile" "textile-reader.native"

110110 r11 <- runTest "native reader" ["-r", "native", "-w", "native", "-s"]

111111 "testsuite.native" "testsuite.native"