From 27169438551c1edfb8a2251a70ae607a7db36b29 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 1 Jan 2007 22:07:19 +0000
Subject: Changed representation of code blocks to use <screen> and escaped
 characters rather than <programlisting> and CDATA. Reason:  XML source more
 easily editable and readable.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@393 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/Docbook.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs
index d025b7ac2..3916aa214 100644
--- a/src/Text/Pandoc/Writers/Docbook.hs
+++ b/src/Text/Pandoc/Writers/Docbook.hs
@@ -158,7 +158,7 @@ blockToDocbook options (Para lst) =
 blockToDocbook options (BlockQuote blocks) =
   indentedInTags options "blockquote" (blocksToDocbook options blocks)
 blockToDocbook options (CodeBlock str) = 
-  text "<programlisting>" <> (cdata str) <> text "</programlisting>"
+  text "<screen>\n" <> text (codeStringToXML str) <> text "\n</screen>"
 blockToDocbook options (BulletList lst) = 
   indentedInTags options "itemizedlist" $ listItemsToDocbook options lst 
 blockToDocbook options (OrderedList lst) = 
-- 
cgit v1.2.3