From 33fdb6bc1550de7cf1d5fa6735bb22adcbc0a7e9 Mon Sep 17 00:00:00 2001 From: Bryan O'Sullivan Date: Mon, 8 Dec 2014 22:26:09 -0800 Subject: DocBook reader: add support for calloutlist and callout We treat a calloutlist as a bulleted list. This works well in practice. --- tests/docbook-reader.native | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests/docbook-reader.native') diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native index 90d76b3c2..7edc15570 100644 --- a/tests/docbook-reader.native +++ b/tests/docbook-reader.native @@ -134,6 +134,12 @@ Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Spa ,Para [Str "Should",Space,Str "not",Space,Str "be",Space,Str "a",Space,Str "list",Space,Str "item:"] ,Para [Str "M.A.\160\&2007"] ,Para [Str "B.",Space,Str "Williams"] +,Header 2 ("",[],[]) [Str "Callout"] +,Para [Str "Simple."] +,BulletList + [[Para [Str "A",Space,Code ("",[],[]) "__letrec",Space,Str "is",Space,Str "equivalent",Space,Str "to",Space,Str "a",Space,Str "normal",Space,Str "Haskell",Space,Str "LET."]] + ,[Para [Str "GHC",Space,Str "compiled",Space,Str "the",Space,Str "body",Space,Str "of",Space,Str "our",Space,Str "list",Space,Str "comprehension",Space,Str "into",Space,Str "a",Space,Str "loop",Space,Str "named",Space,Code ("",[],[]) "go_s1YC",Str "."]] + ,[Para [Str "If",Space,Str "our",Space,Str "CASE",Space,Str "expression",Space,Str "matches",Space,Str "the",Space,Str "empty",Space,Str "list,",Space,Str "we",Space,Str "return",Space,Str "the",Space,Str "empty",Space,Str "list.",Space,Str "This",Space,Str "is",Space,Str "reassuringly",Space,Str "familiar."]]] ,Header 1 ("",[],[]) [Str "Definition",Space,Str "Lists"] ,DefinitionList [([Str "apple"], -- cgit v1.2.3