diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 18:35:43 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 18:35:43 -0700 |
| commit | c747665ad75e073bbfa55e4d29d0eaea6eb9db17 (patch) | |
| tree | 783146c0582cbd54a6c912b770fbcedb7534ad88 /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | 7c3e2670a8707e0fd3a5ccba781c8c676ea68e54 (diff) | |
| download | pandoc-c747665ad75e073bbfa55e4d29d0eaea6eb9db17.tar.gz | |
Rudimentary support for programlisting in docbook reader.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |