Fixes #28: no misleading uptick for empty tree nodes

Author: lukstafi

src/printbox-text/PrintBox_text.ml

@@ -623,10 +623,16 @@ end = struct
         assert (Array.length a > 0);
         if (size n).y > 0 && has_border (Pos.move_y pos' ~-1) conn_m.m then
            conn_m.m <- create_or_update ~ct:`Nontree ~bottom:true (Pos.move_y pos' ~-1) conn_m.m;
+        (* To blend-in an empty tree root with a "wall" to the left: *)
+        (* if (size n).y = 0 then
+          conn_m.m <- create_or_update ~ct:`Nontree ~right:true (Pos.move_x pos' ~-1) conn_m.m; *)
         let _ = _array_foldi
             (fun pos' i b ->
-               let s = "└─" in
-               conn_m.m <- create_or_update ~ct:`Tree ~top:true ~right:true pos' conn_m.m;
+               let s = if pos'.y = pos.y then "──" else "└─" in
+               if pos'.y <> pos.y then
+                 conn_m.m <- create_or_update ~ct:`Tree ~top:true ~right:true pos' conn_m.m
+               else
+                 conn_m.m <- create_or_update ~ct:`Tree ~left:true ~right:true pos' conn_m.m;
                conn_m.m <- create_or_update ~ct:`Tree ~left:true ~right:true (Pos.move_x pos' 1) conn_m.m;
                conn_m.m <- create_or_update ~ct:`Tree ~top:true (Pos.move_y pos' 1) conn_m.m;
                if i<Array.length a-1 then (

test/test_ann_0_3.expected

@@ -14,7 +14,7 @@
 │                 ├──────────────────────────────────────────────────────────────┤
 │                 │Matt                                                          │
 ├─────────────────┼──────────────────────────────────────────────────────────────┤
-│dependencies     │├─mandatory                                                   │
+│dependencies     │┬─mandatory                                                   │
 │                 ││ ├─dune                                                      │
 │                 ││ ├─bytes                                                     │
 │                 ││ ├─uutf                                                      │

test/test_blending.expected

@@ -6,19 +6,30 @@
 │ └───────┘
 ├─child 2
 ├─┬──────────────────┐
-│ │└─┬────────┐      │
+│ │──┬────────┐      │
 │ │  │header 3│      │
 │ │  ├────────┘      │
 │ │  └─┬──────────┐  │
 │ │    │subchild 3│  │
 │ │    └──────────┘  │
 │ └──────────────────┘
-├─└─┬────────┐
+├───┬────────┐
 │   │header 4│
 │   ├────────┘
 │   └─┬──────────┐
 │     │subchild 4│
 │     └──────────┘
-└─┬───────┐
-  │child 5│
-  └───────┘
+├─┬───────┐
+│ │child 5│
+│ └───────┘
+└─┬──────────────────┐
+  │┌────────┐        │
+  ││header 6│        │
+  │├────────┘        │
+  │└─┬───────┐       │
+  │  │child 6│       │
+  │  ├───────┘       │
+  │  └─┬──────────┐  │
+  │    │subchild 6│  │
+  │    └──────────┘  │
+  └──────────────────┘

test/test_blending.ml

@@ -9,7 +9,10 @@ let b =
     tree empty [
       tree (frame @@ text "header 4") [frame @@ text "subchild 4"]
     ];
-    frame @@ text "child 5"
+    frame @@ text "child 5";
+    frame @@ tree (frame @@ text "header 6") [
+      tree (frame @@ text "child 6") [frame @@ text "subchild 6"]
+    ]
   ]
 
 let () = print_endline @@ PrintBox_text.to_string b