git.iko.soy/typeable/pandoc
on master help sign in
Added support for definition lists to RST reader.

Added a relevant test to the test suite. git-svn-id: https://pandoc.googlecode.com/svn/trunk@782 788f1e2b-df1e-0410-8736-df70ead52e1b

commit6a6b1a5842e6218168bca1bf6f04c8d395b60441 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateMon 23 Jul 2007, 01:35 (19 years ago) parentf69d9ef
3 files changed+40−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/RST.hs+15−1 tests/rst-reader.native+11 tests/rst-reader.rst+14
src/Text/Pandoc/Readers/RST.hs+15−1
@@ -355,7 +355,21 @@ blockQuote = try (do
355355-- list blocks
356356--
357357
358−list = choice [ bulletList, orderedList ] <?> "list"
358+list = choice [ bulletList, orderedList, definitionList ] <?> "list"
359+
360+definitionListItem = try $ do
361+ term <- many1Till inline endline
362+ raw <- indentedBlock True
363+ -- parse the extracted block, which may contain various block elements:
364+ rest <- getInput
365+ setInput $ raw ++ "\n\n"
366+ contents <- parseBlocks
367+ setInput rest
368+ return (normalizeSpaces term, contents)
369+
370+definitionList = try $ do
371+ items <- many1 definitionListItem
372+ return (DefinitionList items)
359373
360374-- parses bullet list start and returns its length (inc. following whitespace)
361375bulletListStart = try (do
tests/rst-reader.native+11
@@ -117,6 +117,17 @@ Pandoc (Meta [Str "Pandoc",Space,Str "Test",Space,Str "Suite",Str ":",Space,Str
117117 [ [ Plain [Str "Fee"] ]
118118 , [ Plain [Str "Fie"] ]
119119 , [ Plain [Str "Foe"] ] ] ] ], [ Para [Str "Third"] ] ]
120+, Header 2 [Str "Definition"]
121+, DefinitionList
122+ [ ([Str "term",Space,Str "1"],
123+ [ Para [Str "Definition",Space,Str "1."] ]
124+ ),
125+ ([Str "term",Space,Str "2"],
126+ [ Para [Str "Definition",Space,Str "2,",Space,Str "paragraph",Space,Str "1."]
127+ , Para [Str "Definition",Space,Str "2,",Space,Str "paragraph",Space,Str "2."] ] ),
128+ ([Str "term",Space,Str "with",Space,Emph [Str "emphasis"]],
129+ [ Para [Str "Definition",Space,Str "3."] ]
130+ ) ]
120131, Header 1 [Str "HTML",Space,Str "Blocks"]
121132, Para [Str "Simple",Space,Str "block",Space,Str "on",Space,Str "one",Space,Str "line",Str ":"]
122133, RawHtml "<div>foo</div>\n"
tests/rst-reader.rst+14
@@ -211,6 +211,20 @@ Here's another:
211211
2122123. Third
213213
214+Definition
215+----------
216+
217+term 1
218+ Definition 1.
219+
220+term 2
221+ Definition 2, paragraph 1.
222+
223+ Definition 2, paragraph 2.
224+
225+term with *emphasis*
226+ Definition 3.
227+
214228HTML Blocks
215229===========
216230