Fix stylized-framed unfolded empty header trees

c-cube · Jan 21, 2024 · 8795d98 · 8795d98
1 parent 05d5ca2
commit 8795d98
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/src/printbox-md/PrintBox_md.ml b/src/printbox-md/PrintBox_md.ml
@@ -103,7 +103,8 @@ let pp c out b =
   (* We cannot use Format for indentation, because we need to insert ">" at the right places. *)
   let rec loop ~in_html ~prefix b =
     match B.view b with
-    | B.Empty -> ()
+    | B.Empty ->
+      if not in_html && c.Config.frames = `Stylized then fprintf out "@,%s" prefix
     | B.Text {l; style} ->
       let l = break_lines l in
       let multiline = List.length l > 1 in

diff --git a/test/test_md.expected b/test/test_md.expected
@@ -31,9 +31,11 @@ Test uniform unfolded:
   line 2<br>
   line 3
 - <span style="border:thin solid">
+
   - <span style="border:thin solid">header 3</span>
     - <span style="border:thin solid">subchild 3</span></span>
 - 
+
   - <span style="border:thin solid">header 4</span>
     - subchild 4
 - <span style="border:thin solid"><span style="font-family: monospace">header 5</span>

diff --git a/test/test_md.expected.md b/test/test_md.expected.md
@@ -31,9 +31,11 @@ Test uniform unfolded:
   line 2<br>
   line 3
 - <span style="border:thin solid">
+  
   - <span style="border:thin solid">header 3</span>
     - <span style="border:thin solid">subchild 3</span></span>
 - 
+  
   - <span style="border:thin solid">header 4</span>
     - subchild 4
 - <span style="border:thin solid"><span style="font-family: monospace">header 5</span>