X-Git-Url: https://git.ladys.computer/LesML/blobdiff_plain/80c75b24c821e3d8a1d5d1a460304f8c8d35179c..53bc356da387358f0580b3e56df9d692f6bab7b9:/parser.xslt

diff --git a/parser.xslt b/parser.xslt
index d35d53b..a93f425 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">