store editor tree navigation works????

irc.ml

@@ -5,6 +5,10 @@ we need to design this somehow before implementing it
 really the graphical drawing / window management funcitons i think at this point.
 
 
+features:
+ - message drafts? more like, if you send too many messages to someone all at once it will hold them so you can respond later and not flood people.......
+   - i mean really what you want is an editable stream, so you can stage messages for later
+   - because i mean, if this is a bicycle, and you can make it however you want, you can just fuck with the conversation thread with computer assistance instaed of just relying on your memory.
 
 *)
 
@@ -34,7 +38,8 @@ let callback connection result =
       >>= fun () ->
       Lwt_io.flush Lwt_io.stdout
       >>= fun () ->
-      C.send_privmsg ~connection ~target:"cqc" ~message:("ack: " ^ data)
+      C.send_privmsg ~connection ~target:"cqc"
+        ~message:("ack: " ^ data)
   | Result.Ok msg ->
       Lwt_io.printf "Got message: %s\n" (M.to_string msg)
       >>= fun () -> Lwt_io.flush Lwt_io.stdout
@@ -44,15 +49,16 @@ let lwt_main () =
   C.reconnect_loop ~after:30
     ~connect:(fun () ->
       Lwt_io.printl "Connecting..."
-      >>= fun () -> C.connect_by_name ~server:!host ~port:!port ~nick:!nick ()
-      )
+      >>= fun () ->
+      C.connect_by_name ~server:!host ~port:!port ~nick:!nick () )
     ~f:(fun connection ->
       Lwt_io.printl "Connected"
       >>= fun () ->
       Lwt_io.printl "send join msg"
       >>= fun () ->
       C.send_join ~connection ~channel:!channel
-      >>= fun () -> C.send_privmsg ~connection ~target:!channel ~message )
+      >>= fun () ->
+      C.send_privmsg ~connection ~target:!channel ~message )
     ~callback ()
 
 let _ =