From: Lady <redacted>
Date: Sat, 20 Jan 2024 17:02:11 +0000 (-0500)
Subject: Better wrapper support for plural result trees
X-Git-Tag: 0.4.2~1
X-Git-Url: https://git.ladys.computer/Shushe/commitdiff_plain/3b97090500b8714bd32d01e4e4ac2c10cdbdf713

Better wrapper support for plural result trees

It’s not unsensible for a result tree to consist of both a
`<html:body>` and an `<html:head>` without a wrapping `<html:html>`
element, assuming that the result is going to be wrapped. This commit
improves support for this pattern in the wrapper.
---

diff --git a/lib/catalog2transform.xslt b/lib/catalog2transform.xslt
index 22e71c8..1d36bb1 100644
--- a/lib/catalog2transform.xslt
+++ b/lib/catalog2transform.xslt
@@ -122,7 +122,7 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 			<xslt:template match="text()" mode="书社:metadata"/>
 			<xslt:template match="/" mode="书社:wrap">
 				<xslt:variable name="metadata">
-					<xslt:copy-of select="html:html/html:head/node()"/>
+					<xslt:copy-of select="html:html/html:head/node()|html:head/node()"/>
 					<xslt:apply-templates select="." mode="书社:metadata"/>
 					<xslt:apply-templates select="document('')/xslt:transform/xslt:include" mode="书社:metadata"/>
 				</xslt:variable>
@@ -132,15 +132,25 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 							<xslt:value-of select="$VERSION"/>
 						</xslt:attribute>
 					</xslt:if>
-					<xslt:copy-of select="html:html/@*|*/@xml:lang|html:*/@lang|svg:*/@lang"/>
+					<xslt:copy-of select="html:html/@*"/>
+					<xslt:if test="not(html:html/@lang) and (html:*/@lang|svg:*/@lang|*/@xml:lang)">
+						<xslt:attribute name="lang">
+							<xslt:value-of select="html:*/@lang|svg:*/@lang|*/@xml:lang"/>
+						</xslt:attribute>
+					</xslt:if>
+					<xslt:if test="not(html:html/@xml:lang) and (html:*/@lang|svg:*/@lang|*/@xml:lang)">
+						<xslt:attribute name="xml:lang">
+							<xslt:value-of select="html:*/@lang|svg:*/@lang|*/@xml:lang"/>
+						</xslt:attribute>
+					</xslt:if>
 					<html:head>
-						<xslt:copy-of select="html:html/html:head/@*"/>
+						<xslt:copy-of select="html:html/html:head/@*|html:head/@*"/>
 						<html:title>
 							<xslt:for-each select="exsl:node-set($metadata)/html:title">
 								<xslt:value-of select="."/>
 							</xslt:for-each>
 						</html:title>
-						<xslt:copy-of select="exsl:node-set($metadata)/node()[self::comment() or self::* and not(self::html:title)]"/>
+						<xslt:copy-of select="exsl:node-set($metadata)/node()[not(self::*) or not(self::html:title)]"/>
 						<xslt:if test="not(exsl:node-set($metadata)/html:meta[@name='generator'])">
 							<html:meta name="generator">
 								<xslt:attribute name="content">
@@ -158,7 +168,7 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 						<xslt:copy-of select="html:html/html:body/@*|html:body/@*"/>
 						<xslt:apply-templates select="document('')/xslt:transform/xslt:include" mode="书社:header"/>
 						<xslt:apply-templates select="." mode="书社:header"/>
-						<xslt:copy-of select="node()[not(self::html:html or self::html:body)]|html:html/node()[not(self::html:head or self::html:body)]|html:html/html:body/node()|html:body/node()"/>
+						<xslt:copy-of select="node()[not(self::html:html or self::html:head or self::html:body)]|html:html/node()[not(self::html:head or self::html:body)]|html:html/html:body/node()|html:body/node()"/>
 						<xslt:apply-templates select="." mode="书社:footer"/>
 						<xslt:apply-templates select="document('')/xslt:transform/xslt:include" mode="书社:footer"/>
 					</html:body>