git.iko.soy/typeable/pandoc
on master help sign in
Textile reader: parse raw by default.
f415e9eJohn MacFarlane
src/Text/Pandoc/Readers/Textile.hs+2
compare with master
unifiedsplit
@@ -90,6 +90,8 @@ specialChars = "\\[]<>*#_@~-+^&,.;:!?|\"'%"
90-- | Generate a Pandoc ADT from a textile document
90-- | Generate a Pandoc ADT from a textile document
91parseTextile :: GenParser Char ParserState Pandoc
91parseTextile :: GenParser Char ParserState Pandoc
92parseTextile = do
92parseTextile = do
93+ -- textile allows raw HTML
94+ updateState (\state -> state { stateParseRaw = True })
93 many blankline
95 many blankline
94 blocks <- parseBlocks
96 blocks <- parseBlocks
95 return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME
97 return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME
tests/RunTests.hs+1−1
@@ -105,7 +105,7 @@ main = do
105 "html-reader.html" "html-reader.native"
105 "html-reader.html" "html-reader.native"
106 r10 <- runTest "latex reader" ["-r", "latex", "-w", "native", "-s", "-R"]
106 r10 <- runTest "latex reader" ["-r", "latex", "-w", "native", "-s", "-R"]
107 "latex-reader.latex" "latex-reader.native"
107 "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"]
109 "textile-reader.textile" "textile-reader.native"
109 "textile-reader.textile" "textile-reader.native"
110 r11 <- runTest "native reader" ["-r", "native", "-w", "native", "-s"]
110 r11 <- runTest "native reader" ["-r", "native", "-w", "native", "-s"]
111 "testsuite.native" "testsuite.native"
111 "testsuite.native" "testsuite.native"