(failed?) attempt to use Inuit with Format.symbolic_output_buffer

dune

@@ -58,6 +58,7 @@
   zed
   lambda-term
   irmin-unix
+  inuit
   irc-client
   irc-client-lwt
   irc-client-unix

irc.ml

@@ -22,25 +22,22 @@ module Communicator = struct
   type channel =
     { mutable name: string
     ; mutable content: msg list
-    ; mutable sender: string -> unit }
+    ; mutable recv: msg -> unit }
 
   let add_msg (c : channel) msg = c.content <- msg :: c.content
 
-  type c = {mutable channel: channel; mutable subs: c list}
+  type t = {mutable channel: channel; mutable subs: t list}
   type protocol = Irc | Email | Rss | Mublog
 
-  let make_channel (c : c) ?(sender = fun _ -> ()) name =
-    c.subs <-
-      {channel= {name; content= []; sender}; subs= []} :: c.subs
+  let make_channel ?(recv = add_msg) name =
+    let c = {name; content= []; recv= (fun _ -> ())} in
+    {c with recv= recv c}
 
-  let make () : c =
-    let c =
-      { name= "top"
-      ; content= [create_msg "Wecome to the Communicator"]
-      ; sender= (fun _ -> ()) } in
-    c.sender <- (fun s -> c.content <- create_msg s :: c.content) ;
-    c.sender "Currently only IRC is implemented" ;
-    {channel= c; subs= []}
+  let make () : t =
+    let channel = make_channel "top" in
+    channel.recv (create_msg "Wecome to the Communicator") ;
+    channel.recv (create_msg "Currently only IRC is implemented") ;
+    {channel; subs= []}
 
   type connection = unit Lwt.t
 
@@ -48,7 +45,7 @@ module Communicator = struct
     module C = Irc_client_tls
     module M = Irc_message
 
-    let connection (c : c) server port nick channels : unit Lwt.t =
+    let connection (c : t) server port nick channels : unit Lwt.t =
       let add_msg cn str = add_msg cn.channel (create_msg str) in
       C.reconnect_loop ~after:30
         ~connect:(fun () ->
@@ -88,12 +85,22 @@ module Communicator = struct
   end
 
   module Panel = struct
-    let panel c =
-      Panel.prettyprint ~height:20. ~tag:"Communicator" (fun pp ->
-          F.pf pp " <><><> COMMUNICATOR <><><> @.@." ;
+    let panel (c : t) =
+      let open Panel in
+      let te = Textedit.make "" () in
+      Textedit.panel ~height:20. te
+      >>= fun p ->
+      Lwt.return
+        { p with
+          act=
+            (fun panel events ->
+              Textedit.clear te ;
               List.iter
-            (fun msg -> F.pf pp "[%s] %s@." msg.time msg.content)
-            (List.rev c.channel.content) )
+                (fun m ->
+                  Textedit.insert te
+                    (F.str "[%s] %s\n" m.time m.content) )
+                c.channel.content ;
+              p.act panel events ) }
   end
 end