Rudimentary support for programlisting in docbook reader.

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