From 97f3ac8054de22b94e4ae169dae33ed5b1b41a52 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 14 May 2021 14:02:53 +0200
Subject: Update popin events in editor

---
 editor/forms/add_page.ml | 53 ++++++++++++++++++++++++++++--------------------
 1 file changed, 31 insertions(+), 22 deletions(-)

(limited to 'editor/forms/add_page.ml')

diff --git a/editor/forms/add_page.ml b/editor/forms/add_page.ml
index ac45824..9786f47 100755
--- a/editor/forms/add_page.ml
+++ b/editor/forms/add_page.ml
@@ -3,10 +3,29 @@ open Brr_note
 open Note
 module Js = Js_of_ocaml.Js
 
-type t = { title : Jstr.t }
 
-type Events.kind +=
-  | AddPage of t [@@unboxed]
+module Handler = struct
+
+  type t = { title : Jstr.t }
+
+  let key_of_title
+    : Jstr.t -> Jstr.t
+    = fun title ->
+      title
+
+  let on_close
+    : t -> State.t -> State.t
+    = fun {title} state ->
+      let page_id = key_of_title title in
+      let new_date = (new%js Js.date_now)##getTime in
+      let content_obj = object%js
+        val content = Js.null
+        val title = Js.some title
+        val date = Js.some new_date
+      end in
+      State.load_page (Some page_id) state content_obj
+
+end
 
 let create
   : unit -> Events.t
@@ -17,13 +36,19 @@ let create
         ~at:At.[type' (Jstr.v "text")]
     in
 
+    let init =
+      Events.Event
+        ( Handler.{ title = Jstr.empty }
+        , (module Handler : Events.Handler with type t = Handler.t)) in
+
     let state =
-      S.hold (AddPage { title = Jstr.empty })
+      S.hold init
       @@ Evr.on_el
         (Ev.input)
         (fun _ ->
-           AddPage { title = El.prop El.Prop.value input }
-        )
+           Events.Event
+             ( Handler.{ title = El.prop El.Prop.value input }
+             , (module Handler : Events.Handler with type t = Handler.t)) )
         input in
 
     ( state
@@ -38,19 +63,3 @@ let create
             ]
         ] )
 
-let key_of_title
-  : Jstr.t -> Jstr.t
-  = fun title ->
-    title
-
-let on_close
-  : t -> State.t -> State.t
-  = fun {title} state ->
-    let page_id = key_of_title title in
-    let new_date = (new%js Js.date_now)##getTime in
-    let content_obj = object%js
-      val content = Js.null
-      val title = Js.some title
-      val date = Js.some new_date
-    end in
-    State.load_page (Some page_id) state content_obj
-- 
cgit v1.2.3