From c747665ad75e073bbfa55e4d29d0eaea6eb9db17 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Apr 2012 18:35:43 -0700
Subject: Rudimentary support for programlisting in docbook reader.

---
 src/Text/Pandoc/Readers/DocBook.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 59830c3dd..5cb41638a 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -46,6 +46,7 @@ parseBlock (Elem e) =
         "section" -> gets dbSectionLevel >>= sect . (+1)
         "itemizedlist" -> bulletList <$> listitems
         "articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty
+        "programlisting" -> return $ codeBlock $ strContent e
         "title" -> return mempty -- processed by sect
         "?xml"  -> return mempty
         _       -> getBlocks e
-- 
cgit v1.2.3