From: Lady <redacted>
Date: Sat, 19 Oct 2024 19:37:08 +0000 (-0400)
Subject: Preserve document and record‐jar comments
X-Git-Tag: 0.3.0~3
X-Git-Url: https://git.ladys.computer/LesML/commitdiff_plain/41ef5d0d082b6949d5d03a523e7a0d9592d220394684b3a2b880820145c17605

Preserve document and record‐jar comments
---

diff --git a/parser.xslt b/parser.xslt
index 7a30b3c..de158ec 100644
--- a/parser.xslt
+++ b/parser.xslt
@@ -189,6 +189,11 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 		<variable name="noshebang" select="$lines[position()>1 or not(starts-with(., '#!lesml') or starts-with(., '##'))]"/>
 		<variable name="docsep" select="$noshebang[starts-with(., '#!lesml') or starts-with(., '##')][1]"/>
 		<variable name="doclines" select="$noshebang[not($docsep) or following-sibling::*[generate-id()=generate-id($docsep)]]"/>
+		<if test="starts-with($first-line, '##') and $first-line!='##'">
+			<comment>
+				<value-of select="substring-after($first-line, '##')"/>
+			</comment>
+		</if>
 		<if test="$shebang!='' or $doclines[normalize-space()!='']">
 			<variable name="record-separators" select="$doclines[starts-with(., '%%')]"/>
 			<html:article>
@@ -259,6 +264,11 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 									</for-each>
 								</html:dl>
 							</if>
+							<if test=".!='%%'">
+								<comment>
+									<value-of select="substring-after(., '%%')"/>
+								</comment>
+							</if>
 						</for-each>
 					</html:footer>
 				</if>