浏览代码

Autodoc: <code> and <p> fix

Arthur Yefimov 2 年之前
父节点
当前提交
5138ef5c50
共有 1 个文件被更改,包括 7 次插入1 次删除
  1. 7 1
      src/Autodoc/AutodocHtml.Mod

+ 7 - 1
src/Autodoc/AutodocHtml.Mod

@@ -206,7 +206,9 @@ BEGIN
       ELSIF ~pre & (c = '`') & (s[i + 1] # '`') &
             ((i = 0) OR (s[i - 1] # '`')) THEN
         IF code THEN Write('</code>'); code := FALSE
-        ELSE Write('<code>'); code := TRUE
+        ELSE
+          IF closed THEN WriteLn('<p>'); closed := FALSE END;
+          Write('<code>'); code := TRUE
         END
       ELSE
         IF closed THEN WriteLn('<p>'); closed := FALSE END;
@@ -770,6 +772,10 @@ BEGIN
     IF renderingIndex THEN PrintModIndex('', FALSE)
     ELSE PrintModIndex(M.name, TRUE)
     END
+  ELSIF tag = 'NAME' THEN
+    IF renderingIndex THEN Write('index')
+    ELSE Write(M.name)
+    END
   ELSIF tag = 'BODY' THEN
     IF renderingIndex THEN PrintIndexComment
     ELSE PrintBody(M)