From: Steve Ball <balls@users.sourceforge.net>
Date: Sun, 17 Aug 2008 22:39:58 +0000 (+0000)
Subject: Improved support for personname inlines.
X-Git-Tag: release/1.79.1~6^2~1269
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=a8dab38eb8b27f0cf72483902cf36ae108081abf;p=docbook-dsssl

Improved support for personname inlines.
---

diff --git a/xsl/roundtrip/blocks2dbk.xsl b/xsl/roundtrip/blocks2dbk.xsl
index b8b1fa85e..ae86e472f 100644
--- a/xsl/roundtrip/blocks2dbk.xsl
+++ b/xsl/roundtrip/blocks2dbk.xsl
@@ -31,7 +31,7 @@
   <xsl:param name="nest.sections">1</xsl:param>
 
   <xsl:strip-space elements='*'/>
-  <xsl:preserve-space elements='dbk:para'/>
+  <xsl:preserve-space elements='dbk:para dbk:emphasis'/>
 
   <xsl:template match="&components; |
                        &blocks;">
@@ -632,6 +632,21 @@
   </xsl:template>
   <xsl:template match='*|text()' mode='rnd:emphasis'/>
 
+  <xsl:template match='dbk:emphasis' mode='rnd:personname-emphasis'>
+    <xsl:param name='style'/>
+
+    <xsl:choose>
+      <xsl:when test='@rnd:style = $style'>
+        <xsl:apply-templates/>
+        <xsl:apply-templates select='following-sibling::dbk:emphasis[1]'
+          mode='rnd:personname-emphasis'>
+          <xsl:with-param name='style' select='$style'/>
+        </xsl:apply-templates>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+  <xsl:template match='*|text()' mode='rnd:emphasis'/>
+
   <xsl:template match='dbk:subscript|dbk:superscript'>
     <xsl:copy>
       <xsl:apply-templates select='@*' mode='rnd:copy'/>
@@ -1174,7 +1189,16 @@
 
   <xsl:template match='dbk:footnote' mode='rnd:personname'/>
   <xsl:template match='dbk:emphasis' mode='rnd:personname'>
+    <!-- Need to check preceding emphasis for same style,
+         but blocks pretty-prints and all text nodes
+         are preserved in paragraph content.
+      -->
+    <xsl:variable name='previous'
+      select='preceding-sibling::node()[not(self::text()) or (self::text() and normalize-space() != "")]'/>
+
     <xsl:choose>
+      <!-- inlines are coalesced -->
+      <xsl:when test='@rnd:style = $previous[1][self::dbk:emphasis]/@rnd:style'/>
       <xsl:when test='@rnd:style = "honorific" or
                       @rnd:style = "firstname" or
                       @rnd:style = "lineage" or
@@ -1183,6 +1207,10 @@
         <xsl:element name='{@rnd:style}'
           namespace='http://docbook.org/ns/docbook'>
           <xsl:apply-templates/>
+          <xsl:apply-templates select='following-sibling::dbk:emphasis[1]'
+            mode='rnd:personname-emphasis'>
+            <xsl:with-param name='style' select='@rnd:style'/>
+          </xsl:apply-templates>
         </xsl:element>
       </xsl:when>
       <xsl:otherwise>
diff --git a/xsl/roundtrip/normalise2sections.xsl b/xsl/roundtrip/normalise2sections.xsl
index 283873113..3855a8c48 100644
--- a/xsl/roundtrip/normalise2sections.xsl
+++ b/xsl/roundtrip/normalise2sections.xsl
@@ -15,7 +15,7 @@
 <!--====================================-->
   <axsl:output indent="yes"/>
   <axsl:strip-space elements="*"/>
-  <axsl:preserve-space elements="dbk:para"/>
+  <axsl:preserve-space elements="dbk:para dbk:emphasis"/>
   <axsl:template match="dbk:article">
     <axsl:copy>
       <axsl:for-each select="@*">
diff --git a/xsl/roundtrip/sections2blocks.xsl b/xsl/roundtrip/sections2blocks.xsl
index a0755692f..7d9455a71 100644
--- a/xsl/roundtrip/sections2blocks.xsl
+++ b/xsl/roundtrip/sections2blocks.xsl
@@ -19,7 +19,7 @@
 <!--====================================-->
   <axsl:output indent="yes"/>
   <axsl:strip-space elements="*"/>
-  <axsl:preserve-space elements="dbk:para"/>
+  <axsl:preserve-space elements="dbk:para dbk:emphasis"/>
   <axsl:template match="dbk:appendix |&#10;  dbk:article |&#10;  dbk:book |&#10;  dbk:chapter |&#10;  dbk:part |&#10;  dbk:preface |&#10;  dbk:section |&#10;  dbk:sect1 |&#10;  dbk:sect2 |&#10;  dbk:sect3 |&#10;  dbk:sect4 |&#10;  dbk:sect5">
     <axsl:variable name="subsections" select="dbk:para[@rnd:style = &quot;bibliography&quot; or @rnd:style = &quot;bibliography-title&quot; or @rnd:style = &quot;glossary&quot; or @rnd:style = &quot;glossary-title&quot; or @rnd:style = &quot;qandaset&quot; or @rnd:style = &quot;qandaset-title&quot;]"/>
     <axsl:copy>