feat: support routing messages as custom events

minttea/event.ml

@@ -1,9 +1,10 @@
 open Riot
 
-type t = KeyDown of string | Timer of unit Ref.t | Frame
+type t = KeyDown of string | Timer of unit Ref.t | Frame | Custom of Message.t
 
 let pp fmt t =
   match t with
   | KeyDown key -> Format.fprintf fmt "KeyDown(%s)" key
   | Timer ref -> Format.fprintf fmt "Timer(%a)" Ref.pp ref
   | Frame -> Format.fprintf fmt "Frame"
+  | Custom _msg -> Format.fprintf fmt "Custom"

minttea/minttea.mli

@@ -1,7 +1,11 @@
 open Riot
 
 module Event : sig
-  type t = KeyDown of string | Timer of unit Ref.t | Frame
+  type t =
+    | KeyDown of string
+    | Timer of unit Ref.t
+    | Frame
+    | Custom of Message.t
 
   val pp : Format.formatter -> t -> unit
 end

minttea/program.ml

@@ -8,10 +8,13 @@ let make ~app ~fps = { app; fps }
 exception Exit
 
 let rec loop renderer (app : 'model App.t) (model : 'model) =
-  match receive () with
-  | Timer ref -> handle_input renderer app model (Event.Timer ref)
-  | Io_loop.Input event -> handle_input renderer app model event
-  | _ -> loop renderer app model
+  let event =
+    match receive () with
+    | Timer ref -> Event.Timer ref
+    | Io_loop.Input event -> event
+    | message -> Event.Custom message
+  in
+  handle_input renderer app model event
 
 and handle_input renderer app model event =
   let model, cmd = app.update event model in