git.iko.soy/typeable/pandoc
on master help sign in
Textile reader: added hrule parser.
commitd4e512776d9e38ef613167dd48fda17104ff25d9 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 3 Dec 2010, 22:56 (16 years ago) parent4bf9d36
2 files changed+14−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Textile.hs+13 tests/textile-reader.native+1−1
src/Text/Pandoc/Readers/Textile.hs+13
@@ -106,6 +106,7 @@ blockParsers :: [GenParser Char ParserState Block]
106106blockParsers = [ codeBlock
107107 , header
108108 , blockQuote
109+ , hrule
109110 , anyList
110111 , rawHtmlBlock'
111112 , maybeExplicitBlock "table" table
@@ -151,6 +152,18 @@ blockQuote = try $ do
151152 whitespace
152153 para >>= return . BlockQuote . (:[])
153154
155+-- Horizontal rule
156+
157+hrule :: GenParser Char st Block
158+hrule = try $ do
159+ skipSpaces
160+ start <- oneOf "-*"
161+ count 2 (skipSpaces >> char start)
162+ skipMany (spaceChar <|> char start)
163+ newline
164+ optional blanklines
165+ return HorizontalRule
166+
154167-- Lists handling
155168
156169-- | Can be a bullet list or an ordered list. This implementation is
tests/textile-reader.native+1−1
@@ -1,6 +1,6 @@
11Pandoc (Meta {docTitle = [Str ""], docAuthors = [[Str ""]], docDate = [Str ""]})
22[ Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc",Space,Str "Textile",Space,Str "Reader",Str ".",Space,Str "Part",Space,Str "of",Space,Str "it",Space,Str "comes",LineBreak,Str "from",Space,Str "John",Space,Str "Gruber",Str "'",Str "s",Space,Str "markdown",Space,Str "test",Space,Str "suite",Str "."]
3−, Para [Strikeout [Str "-"],Str "-",Str "-"]
3+, HorizontalRule
44, Header 1 [Str "Headers"]
55, Header 2 [Str "Level",Space,Str "2",Space,Str "with",Space,Str "an",Space,Link [Str "embeded",Space,Str "link"] ("http://www.example.com","")]
66, Header 3 [Str "Level",Space,Str "3",Space,Str "with",Space,Strong [Str "emphasis"]]