Rearrange xcb bindings

src/main.ml

@@ -1,22 +1,29 @@
 let spawn cmd =
-  match Unix.fork () with 0 -> Unix.execvp cmd.(0) cmd | _pid -> ()
+  match Unix.fork () with
+  | 0 ->
+      let devnull = Unix.openfile "/dev/null" [ Unix.O_WRONLY ] 0o666 in
+      Unix.dup2 devnull Unix.stdout;
+      Unix.dup2 devnull Unix.stderr;
+      Unix.close devnull;
+      Unix.execvp cmd.(0) cmd
+  | _pid -> ()
 
 let () =
-  let conn = Xcb.connect () in
+  let conn = Xcb.Functions.connect () in
 
   print_endline "connected";
 
-  let _ = Xcb.window_attribute_setup conn in
+  Xcb.Functions.window_attribute_setup conn;
 
-  Xcb.flush conn;
+  if Xcb.Functions.flush conn <= 0 then exit 1;
 
   spawn [| "kitty" |];
 
   while true do
-    Xcb.flush conn;
+    if Xcb.Functions.flush conn <= 0 then exit 1;
     Unix.sleepf 0.01
   done;
 
-  Xcb.disconnect conn;
+  Xcb.Functions.disconnect conn;
 
   print_endline "done"