feat(blog/nuldoc): fix processing of tight list

1 files changed, 8 insertions, 7 deletions

diff --git a/vhosts/blog/nuldoc-src/djot/to_html.ts b/vhosts/blog/nuldoc-src/djot/to_html.ts
index f31408da..3c95c14b 100644
--- a/vhosts/blog/nuldoc-src/djot/to_html.ts
+++ b/vhosts/blog/nuldoc-src/djot/to_html.ts
@@ -283,14 +283,15 @@ function removeUnnecessaryParagraphNode(doc: Document) {
       if (child.kind !== "element" || child.name !== "li") {
         continue;
       }
-      if (child.children.length !== 1) {
-        continue;
-      }
-      const grandChild = child.children[0];
-      if (grandChild.kind !== "element" || grandChild.name !== "p") {
-        continue;
+      const newGrandChildren: Node[] = [];
+      for (const grandChild of child.children) {
+        if (grandChild.kind === "element" && grandChild.name === "p") {
+          newGrandChildren.push(...grandChild.children);
+        } else {
+          newGrandChildren.push(grandChild);
+        }
       }
-      child.children = grandChild.children;
+      child.children = newGrandChildren;
     }
   });
 }