fix: keep proper alignment in unfoldable

这个提交包含在:
Simon Cruanes 2020-06-04 17:39:47 -04:00 提交者 Frédéric Bour
父节点 7d2e152839
当前提交 a24e7f421c
共有 1 个文件被更改,包括 1 次插入1 次删除

查看文件

@ -420,7 +420,7 @@ let unfoldable ?(folded_by_default=true) summary (f: unit -> Ui.t Lwd.t) : Ui.t
(* pad summary with a "> " when it's opened *)
let summary =
Lwd.get opened >>= function
| true -> Lwd.map (Ui.join_x (string "🔽")) summary
| true -> Lwd.map (Ui.join_x (string "🔽 ")) summary
| false -> Lwd.map (Ui.join_x (string "▶️ ")) summary
in
let cursor ~x:_ ~y:_ = function