From f535a216b67b1b78546c47d26cbefd3ea46babe1 Mon Sep 17 00:00:00 2001
From: Bob Stayton <bobs@sagehill.net>
Date: Mon, 9 Mar 2009 17:06:48 +0000
Subject: [PATCH] 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.

---
 xsl/fo/verbatim.xsl | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

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>
-- 
2.50.1