Introduced a new layer of "panels" that produce panes

irc.ml

@@ -0,0 +1,103 @@
+(*
+
+when all you can do is type, making things more complicated than a list is hard?
+we need to design this somehow before implementing it
+really the graphical drawing / window management funcitons i think at this point.
+
+
+
+*)
+
+open Lwt
+module C = Irc_client_tls
+module M = Irc_message
+
+let host = ref "irc.hackint.org"
+let port = ref 6697
+let nick = ref "cqcaml"
+let channel = ref "#freeside"
+let message = "Hello, world!  This is a test from ocaml-irc-client"
+
+let output_channel_of_ppf ppf =
+  Lwt_io.make ~mode:Output (fun b o l ->
+      let s = String.sub (Lwt_bytes.to_string b) o l in
+      Fmt.pf ppf "%s" s ;
+      Lwt.return (String.length s) )
+
+let callback connection result =
+  match result with
+  | Result.Ok ({M.command= M.Other _; _} as msg) ->
+      Lwt_io.printf "Got unknown message: %s\n" (M.to_string msg)
+      >>= fun () -> Lwt_io.flush Lwt_io.stdout
+  | Result.Ok ({M.command= M.PRIVMSG (_target, data); _} as msg) ->
+      Lwt_io.printf "Got message: %s\n" (M.to_string msg)
+      >>= fun () ->
+      Lwt_io.flush Lwt_io.stdout
+      >>= fun () ->
+      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
+  | Result.Error e -> Lwt_io.printl e
+
+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 ()
+      )
+    ~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 )
+    ~callback ()
+
+let _ =
+  Lwt_main.run
+    (Lwt.catch lwt_main (fun e ->
+         Printf.printf "exception: %s\n" (Printexc.to_string e) ;
+         exit 1 ) )
+
+(* ocamlfind ocamlopt -package irc-client.lwt -linkpkg code.ml *)
+
+(*open Lwt
+  module C = Irc_client_lwt
+
+  let host = "irc.hackint.org"
+  let port = 6697
+  let realname = "Demo IRC bot"
+  let nick = "cqcqcqcqc"
+  let username = nick
+  let channel = "#freeside"
+  let message = "Hello, world!  This is a test from ocaml-irc-client"
+
+  let callback oc _connection result =
+    let open Irc_message in
+    match result with
+    | Result.Ok msg ->
+        Fmt.epr "irc msg: msg" ;
+        Lwt_io.fprintf oc "Got message: %s\n" (to_string msg)
+    | Result.Error e -> Lwt_io.fprintl oc e
+
+  let lwt_main =
+    let oc = output_channel_of_ppf !Topinf.ppf in
+    Lwt_unix.gethostbyname host
+    >>= fun he ->
+    C.connect
+      ~addr:he.Lwt_unix.h_addr_list.(0)
+      ~port ~username ~mode:0 ~realname ~nick ()
+    >>= fun connection ->
+    Lwt_io.fprintl oc "Connected"
+    >>= fun () ->
+    C.send_join ~connection ~channel
+    >>= fun () ->
+    C.send_privmsg ~connection ~target:channel ~message
+    >>= fun () ->
+    C.listen ~connection ~callback:(callback oc) ()
+    >>= fun () -> C.send_quit ~connection ()
+
+  let _ = Lwt_main.run lwt_main
+*)