···1616 | Filler of Ui.t Lwd.t
17171818module MyMap = Map.Make (Int)
1919+let singe_space= Shared.string " ";;
19202021(** Get a map of all the selectable items*)
2122let get_selectable_items_map (items : 'a maybe_multi_selectable array Lwd.t) =
···152153 items
153154 |> Array.mapi (fun i x ->
154155 match x with
155155- | Filler ui -> ui
156156+ (*Becasue selectable has a space used for the selection pointer, filler also needs a space*)
157157+ | Filler ui -> ui|>$(fun x-> Ui.hcat[ singe_space ; x])
156158 | Selectable x ->
157159 let hovered = hovered_id == x.id in
158160 let selected = selected_items |> MyMap.mem x.id in
···297299 items
298300 |> Array.mapi (fun i x ->
299301 match x with
300300- | Filler ui -> ui
302302+ (*Becasue selectable has a space used for the selection pointer, filler also needs a space*)
303303+ | Filler ui -> ui|>$(fun x-> Ui.hcat[ singe_space ; x])
301304 | Selectable x ->
302305 if hovered == i
303306 then
+3-2
jj_tui/bin/graph_view.ml
···481481 | `Selectable x ->
482482 let ui =
483483 W.Lists.selectable_item
484484- (x ^ "\n"
484484+ (
485485+ x ^ "\n"
485486 (* TODO This won't work if we are on a branch, because that puts the @ further out*)
486487 |> Jj_tui.AnsiReverse.colored_string
487488 |> Ui.atom)
···501502 W.Lists.(Selectable data)
502503 | `Filler x ->
503504 W.Lists.(
504504- Filler (" " ^ x |> Jj_tui.AnsiReverse.colored_string |> Ui.atom |> Lwd.pure)))
505505+ Filler ( x |> Jj_tui.AnsiReverse.colored_string |> Ui.atom |> Lwd.pure)))
505506 in
506507 items
507508 in