Print 'git clone' output

Author: chshersh

lib/shell/shell.ml

@@ -1,3 +1,8 @@
+let proc cmd =
+  Printf.eprintf "🐚  %s\n%!" cmd;
+  let _exit_code = Unix.system cmd in
+  ()
+
 let collect_chan (channel : in_channel) : string =
   let rec loop acc =
     match input_line channel with

lib/shell/shell.mli

@@ -1,2 +1,11 @@
+(** Run a given string as an external process with arguments.
+
+Redirect the called process stdout and stderr to the current process stdout.
+
+Also print the command with a pretty prompt.
+
+*)
+val proc : string -> unit
+
 (** Run the given CLI command as external process and collect its stdout to the resulting string. *)
 val proc_stdout : string -> string

lib/tui/tui.ml

@@ -14,7 +14,7 @@ let clone_repo ~repo ~local_path =
         Printf.sprintf "git clone git@github.com:%s/%s.git %s" owner repo
           temp_dir
       in
-      let _ = Shell.proc_stdout cmd in
+      Shell.proc cmd;
       temp_dir
 
 let read_root_tree ~root_dir_path =