X-Git-Url: https://git.ladys.computer/LesML/blobdiff_plain/413e1ccc2a7a78b79f37e96c86bbb62b54ccb961b08cde449e19d78464c6491d..e50fffd0fbb3d55c7e2aff90e7f3a24283bef20bde4c70daf0de890638481f2f:/parser.xslt

diff --git a/parser.xslt b/parser.xslt
index 7a30b3c..489b1e0 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>
@@ -450,6 +460,11 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 									</html:p>
 								</html:div>
 							</when>
+							<when test="starts-with($text, '# ')">
+								<comment>
+									<value-of select="substring-after($text, '# ')"/>
+								</comment>
+							</when>
 							<otherwise>
 								<html:p>
 									<call-template name="LesML:id-and-contents">