terminal user interface to jujutsu. Focused on speed and clarity
progress
+10
-1
+10
-1
bin/main.ml
+10
-1
bin/main.ml
···
12
12
let (stdout,stderr)=Feather.process "jj" []|>Feather.collect stdout_and_stderr in
13
13
stdout^stderr
14
14
15
+
let ()=
16
+
(* sys.Command.exec *)
17
+
(* let res=Jj_tui.Process.proc_stdOutAndErr "jj --no-pager help" in *)
18
+
let (stdout,stderr)=Feather.process "jj" []|>Feather.collect stdout_and_stderr in
19
+
stdout^stderr
20
+
15
21
16
22
let vcount = Lwd.var "";;
17
23
···
43
49
) ui
44
50
;;
45
51
let mainUi=
46
-
Lwd.map ~f:inputs @@Nottui_widgets.vbox [
52
+
Lwd.map ~f:inputs @@
53
+
W.h_pane
54
+
Nottui_widgets.vbox [
47
55
button;
48
56
W.string <-$ vcount;
49
57
quitButton]
58
+
W.string
50
59
;;
51
60
52
61