From 33fdb6bc1550de7cf1d5fa6735bb22adcbc0a7e9 Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
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.docbook | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'tests/docbook-reader.docbook')

diff --git a/tests/docbook-reader.docbook b/tests/docbook-reader.docbook
index 9ba965d9b..8fe2a6ddb 100644
--- a/tests/docbook-reader.docbook
+++ b/tests/docbook-reader.docbook
@@ -509,6 +509,25 @@ These should not be escaped:  \$ \\ \&gt; \[ \{
       B. Williams
     </para>
   </sect2>
+  <sect2 id="callout">
+    <title>Callout</title>
+    <para>Simple.</para>
+      <calloutlist>
+	<callout arearefs="loop1-letrec-co" id="loop1-letrec">
+	  <para id="x_QA1">A <code>__letrec</code> is equivalent to a normal
+	    Haskell &let;.</para>
+	</callout>
+	<callout arearefs="loop1-def-co" id="loop1-def">
+	  <para id="x_RA1">&GHC; compiled the body of our list comprehension into
+	    a loop named <function>go_s1YC</function>.</para>
+	</callout>
+	<callout arearefs="loop1-pat-empty-co" id="loop1-pat-empty">
+	  <para id="x_SA1">If our &case; expression matches the empty list, we
+	    return the empty list.  This is reassuringly
+	    familiar.</para>
+	</callout>
+      </calloutlist>
+  </sect2>
 </sect1>
 <sect1 id="definition-lists">
   <title>Definition Lists</title>
-- 
cgit v1.2.3