diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-07-24 23:36:30 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-24 23:36:30 -0700 |
| commit | a3327835be6caf6f09941c1317b224d34d241c29 (patch) | |
| tree | bd4f882243be7e154f2e5a6f947f091d61b178c4 /src/Text | |
| parent | 07c7cd19459da37372fc888e3e34e7feee284aec (diff) | |
| download | pandoc-a3327835be6caf6f09941c1317b224d34d241c29.tar.gz | |
Docbook writer: Use programlisting for code blocks.
Instead of screen, as before.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 1ca76bfd6..29c042cf9 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -147,9 +147,9 @@ blockToDocbook opts (Para lst) = inTagsIndented "para" $ inlinesToDocbook opts lst blockToDocbook opts (BlockQuote blocks) = inTagsIndented "blockquote" $ blocksToDocbook opts blocks -blockToDocbook _ (CodeBlock (_,classes,_) str) = - text ("<screen" ++ lang ++ ">") <> cr <> - flush (text (escapeStringForXML str) <> cr <> text "</screen>") +blockToDocbook _ (CodeBlock (_,classes,_) str) = + text ("<programlisting" ++ lang ++ ">") <> cr <> + flush (text (escapeStringForXML str) <> cr <> text "</programlisting>") where lang = if null langs then "" else " language=\"" ++ escapeStringForXML (head langs) ++ |