From 09d5653a8bb0d5ad4372dc80c65a1109129b93df Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Mon, 13 May 2002 13:38:31 +0000
Subject: [PATCH] Support spacing=compact on itemizedlist and orderedlist (Bug
 #501063)

---
 xsl/fo/lists.xsl                         | 34 +++++++++++++++++++++---
 xsl/fo/param.ent                         |  1 +
 xsl/fo/param.xweb                        |  2 ++
 xsl/params/compact.list.item.spacing.xml | 19 +++++++++++++
 4 files changed, 52 insertions(+), 4 deletions(-)
 create mode 100644 xsl/params/compact.list.item.spacing.xml

diff --git a/xsl/fo/lists.xsl b/xsl/fo/lists.xsl
index 51272646a..ea1dff01e 100644
--- a/xsl/fo/lists.xsl
+++ b/xsl/fo/lists.xsl
@@ -50,7 +50,7 @@
     </xsl:call-template>
   </xsl:variable>
 
-  <fo:list-item id="{$id}" xsl:use-attribute-sets="list.item.spacing">
+  <xsl:variable name="item.contents">
     <fo:list-item-label end-indent="label-end()">
       <fo:block>
         <xsl:choose>
@@ -70,7 +70,20 @@
     <fo:list-item-body start-indent="body-start()">
       <xsl:apply-templates/>
     </fo:list-item-body>
-  </fo:list-item>
+  </xsl:variable>
+
+  <xsl:choose>
+    <xsl:when test="parent::*/@spacing = 'compact'">
+      <fo:list-item id="{$id}" xsl:use-attribute-sets="compact.list.item.spacing">
+        <xsl:copy-of select="$item.contents"/>
+      </fo:list-item>
+    </xsl:when>
+    <xsl:otherwise>
+      <fo:list-item id="{$id}" xsl:use-attribute-sets="list.item.spacing">
+        <xsl:copy-of select="$item.contents"/>
+      </fo:list-item>
+    </xsl:otherwise>
+  </xsl:choose>
 </xsl:template>
 
 <xsl:template match="orderedlist">
@@ -114,7 +127,7 @@
     </xsl:choose>
   </xsl:variable>
 
-  <fo:list-item id="{$id}" xsl:use-attribute-sets="list.item.spacing">
+  <xsl:variable name="item.contents">
     <fo:list-item-label end-indent="label-end()">
       <fo:block>
         <xsl:choose>
@@ -130,7 +143,20 @@
     <fo:list-item-body start-indent="body-start()">
       <xsl:apply-templates/>
     </fo:list-item-body>
-  </fo:list-item>
+  </xsl:variable>
+
+  <xsl:choose>
+    <xsl:when test="parent::*/@spacing = 'compact'">
+      <fo:list-item id="{$id}" xsl:use-attribute-sets="compact.list.item.spacing">
+        <xsl:copy-of select="$item.contents"/>
+      </fo:list-item>
+    </xsl:when>
+    <xsl:otherwise>
+      <fo:list-item id="{$id}" xsl:use-attribute-sets="list.item.spacing">
+        <xsl:copy-of select="$item.contents"/>
+      </fo:list-item>
+    </xsl:otherwise>
+  </xsl:choose>
 </xsl:template>
 
 <xsl:template match="listitem/para[1]
diff --git a/xsl/fo/param.ent b/xsl/fo/param.ent
index 8ac9b16d6..50cc99983 100644
--- a/xsl/fo/param.ent
+++ b/xsl/fo/param.ent
@@ -29,6 +29,7 @@
 <!ENTITY chapter.autolabel SYSTEM "../params/chapter.autolabel.xml">
 <!ENTITY column.count SYSTEM "../params/column.count.xml">
 <!ENTITY column.count.of.index SYSTEM "../params/column.count.of.index.xml">
+<!ENTITY compact.list.item.spacing SYSTEM "../params/compact.list.item.spacing.xml">
 <!ENTITY component.title.properties SYSTEM "../params/component.title.properties.xml">
 <!ENTITY default.table.width SYSTEM "../params/default.table.width.xml">
 <!ENTITY default.units SYSTEM "../params/default.units.xml">
diff --git a/xsl/fo/param.xweb b/xsl/fo/param.xweb
index feac37e96..4f6294c08 100644
--- a/xsl/fo/param.xweb
+++ b/xsl/fo/param.xweb
@@ -302,6 +302,7 @@ zero by default, so this is simply the page-master region-left.
 <reference><title>Lists</title>
 &list.block.spacing;
 &list.item.spacing;
+&compact.list.item.spacing;
 </reference>
 
 <reference><title>Cross References</title>
@@ -399,6 +400,7 @@ around all these parameters.</para>
 <src:fragref linkend="chapter.autolabel.frag"/>
 <src:fragref linkend="column.count.frag"/>
 <src:fragref linkend="column.count.of.index.frag"/>
+<src:fragref linkend="compact.list.item.spacing.frag"/>
 <src:fragref linkend="component.title.properties.frag"/>
 <src:fragref linkend="default.table.width.frag"/>
 <src:fragref linkend="default.units.frag"/>
diff --git a/xsl/params/compact.list.item.spacing.xml b/xsl/params/compact.list.item.spacing.xml
new file mode 100644
index 000000000..43a1b6951
--- /dev/null
+++ b/xsl/params/compact.list.item.spacing.xml
@@ -0,0 +1,19 @@
+<refentry id="compact.list.item.spacing">
+<refnamediv>
+<refname>compact.list.item.spacing</refname>
+<refpurpose>What space do you want between list items (when spacing=compact)?</refpurpose>
+</refnamediv>
+
+<refsynopsisdiv>
+<src:fragment id='compact.list.item.spacing.frag'><xsl:attribute-set name="compact.list.item.spacing">
+  <xsl:attribute name="space-before.optimum">0em</xsl:attribute>
+  <xsl:attribute name="space-before.minimum">0em</xsl:attribute>
+  <xsl:attribute name="space-before.maximum">0.2em</xsl:attribute>
+</xsl:attribute-set></src:fragment>
+</refsynopsisdiv>
+<refsect1><title>Description</title>
+<para>Specify what spacing you want between each list item when
+<sgmltag class="attribute">spacing</sgmltag> is
+<quote><literal>compact</literal></quote>.</para>
+</refsect1>
+</refentry>
-- 
2.40.0