X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/2258dea3cedb63cc7b0f0bcacec6d863381d42ca..2c0f1a1f4d11d1507705de614771e20dab83de17:/librarian/fb2/poems.xslt?ds=inline

diff --git a/librarian/fb2/poems.xslt b/librarian/fb2/poems.xslt
index d276ebf..257795b 100644
--- a/librarian/fb2/poems.xslt
+++ b/librarian/fb2/poems.xslt
@@ -25,29 +25,19 @@
 	<!-- regular poem elements -->
 	<xsl:template mode="para" match="strofa">
 		<stanza>
-			<xsl:call-template name="split-poem">
-				<xsl:with-param name="list" select="."/>
-			</xsl:call-template>
+			<xsl:apply-templates mode="poem"/>
 		</stanza>
 	</xsl:template>
 
-	<!-- split into verses -->
-	<xsl:template name="split-poem">
-		<xsl:param name="list"></xsl:param>
-
-		<xsl:if test="$list != ''">
-			<xsl:variable name="before"
-				select="substring-before(concat($list, '/'), '/')"/>
-			<xsl:variable name="after"
-				select="substring-after($list, '/')"/>
+	<xsl:template mode="inline" match="strofa">
+		<xsl:apply-templates select="." mode="para"/>
+	</xsl:template>
 
-			<v>
-				<xsl:value-of select="$before"/>
-			</v>
+	<!-- XXX: it should be done elsewhere but our cheap verse splitting
+		puts it here -->
+	<xsl:template match="motyw" mode="poem"/>
 
-			<xsl:call-template name="split-poem">
-				<xsl:with-param name="list" select="$after"/>
-			</xsl:call-template>
-		</xsl:if>
+	<xsl:template mode="poem" match="wers_normalny|wers_cd|wers_wciety|wers_akap|wers_do_prawej">
+		<v><xsl:apply-templates mode="inline"/></v>
 	</xsl:template>
 </xsl:stylesheet>