X-Git-Url: https://git.ladys.computer/LesML/blobdiff_plain/3f804e091cd6eb683e6854e0349d3ddd4178104612c5a58f4fe311ccf8aa9efe..33d2a2fe3248db2a2427270db8cb2a7e543163b604895600eb5172af76375ea5:/parser.xslt

diff --git a/parser.xslt b/parser.xslt
index 5d34ce0..8677452 100644
--- a/parser.xslt
+++ b/parser.xslt
@@ -48,6 +48,24 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 			</otherwise>
 		</choose>
 	</template>
+	<template name="LesML:break-and-unescape">
+		<param name="source"/>
+		<variable name="broken-fragment">
+			<call-template name="LesML:split">
+				<with-param name="source" select="$source"/>
+				<with-param name="separator" select="'&#xA;'"/>
+			</call-template>
+		</variable>
+		<variable name="broken" select="exsl:node-set($broken-fragment)/node()"/>
+		<for-each select="$broken">
+			<call-template name="LesML:unescape">
+				<with-param name="source" select="string()"/>
+			</call-template>
+			<if test="position()!=count($broken)">
+				<html:br/>
+			</if>
+		</for-each>
+	</template>
 	<template name="LesML:unescape">
 		<param name="source"/>
 		<choose>
@@ -105,9 +123,12 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 			<when test="starts-with($source, '¶')">
 				<choose>
 					<when test="contains($source, ' ')">
-						<attribute name="id">
-							<value-of select="substring-before(substring-after($source, '¶'), ' ')"/>
-						</attribute>
+						<variable name="id" select="substring-before(substring-after($source, '¶'), ' ')"/>
+						<if test="$id!=''">
+							<attribute name="id">
+								<value-of select="$id"/>
+							</attribute>
+						</if>
 						<value-of select="substring-after($source, ' ')"/>
 					</when>
 					<otherwise>
@@ -297,17 +318,39 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 				<variable name="prev-last" select="$last-lines[($position)-1]"/>
 				<variable name="linespans" select="$lines[following-sibling::*[generate-id()=generate-id(current())] and (not($prev-last) or preceding-sibling::*[generate-id()=generate-id($prev-last)]) and normalize-space()!='']|."/>
 				<variable name="quoted" select="not($linespans[not(starts-with(., ' ') or starts-with(., '&#x9;'))])"/>
+				<variable name="preformatted" select="not($linespans[not(starts-with(normalize-space(), '|'))])"/>
 				<variable name="text">
 					<for-each select="$linespans">
-						<value-of select="normalize-space()"/>
+						<choose>
+							<when test="$preformatted">
+								<value-of select="substring-after(., '|')"/>
+							</when>
+							<otherwise>
+								<value-of select="normalize-space()"/>
+							</otherwise>
+						</choose>
 						<if test="position()!=count($linespans)">
-							<text> </text>
+							<choose>
+								<when test="$preformatted">
+									<text>&#xA;</text>
+								</when>
+								<otherwise>
+									<text> </text>
+								</otherwise>
+							</choose>
 						</if>
 					</for-each>
 				</variable>
 				<if test="string($text)!=''">
 					<variable name="par">
 						<choose>
+							<when test="$preformatted">
+								<html:pre>
+									<call-template name="LesML:id-and-contents">
+										<with-param name="source" select="$text"/>
+									</call-template>
+								</html:pre>
+							</when>
 							<when test="starts-with($text, '⁌') and &sigiled-text;">
 								<html:h1>
 									<call-template name="LesML:id-and-contents">
@@ -517,7 +560,7 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 		</copy>
 	</template>
 	<template match="text()" mode="LesML:finalize-tree">
-		<call-template name="LesML:unescape">
+		<call-template name="LesML:break-and-unescape">
 			<with-param name="source" select="string(.)"/>
 		</call-template>
 	</template>