From: Bob Stayton <bobs@sagehill.net>
Date: Mon, 9 Mar 2009 17:06:48 +0000 (+0000)
Subject: Put programlisting in fo:block-container with writing-mode="lr-tb"
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=f535a216b67b1b78546c47d26cbefd3ea46babe1;p=docbook-dsssl

Put programlisting in fo:block-container with writing-mode="lr-tb"
when text direction is right to left because all program languages
are left-to-right.
---

diff --git a/xsl/fo/verbatim.xsl b/xsl/fo/verbatim.xsl
index 2ac4eb968..82355f17a 100644
--- a/xsl/fo/verbatim.xsl
+++ b/xsl/fo/verbatim.xsl
@@ -99,11 +99,21 @@
   </xsl:variable>
 
   <xsl:choose>
-    <xsl:when test="@width != ''">
+    <!-- Need a block-container for these features -->
+    <xsl:when test="@width != '' or
+                    (self::programlisting and
+                    starts-with($writing.mode, 'rl'))">
       <fo:block-container start-indent="0pt" end-indent="0pt">
-        <xsl:attribute name="width">
-          <xsl:value-of select="concat(@width, '*', $monospace.verbatim.font.width)"/>
-        </xsl:attribute>
+        <xsl:if test="@width != ''">
+          <xsl:attribute name="width">
+            <xsl:value-of select="concat(@width, '*', $monospace.verbatim.font.width)"/>
+          </xsl:attribute>
+        </xsl:if>
+        <!-- All known program code is left-to-right -->
+        <xsl:if test="self::programlisting and
+                      starts-with($writing.mode, 'rl')">
+          <xsl:attribute name="writing-mode">lr-tb</xsl:attribute>
+        </xsl:if>
         <xsl:copy-of select="$block.content"/>
       </fo:block-container>
     </xsl:when>