From fe2cced55e1b44dbae57e55fe0f459c85e7369cb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:21:26 +0100
Subject: Application unification

---
 editor/forms/add_page.ml | 40 ++++++----------------------------------
 1 file changed, 6 insertions(+), 34 deletions(-)

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

diff --git a/editor/forms/add_page.ml b/editor/forms/add_page.ml
index edcbc37..08fb5d7 100755
--- a/editor/forms/add_page.ml
+++ b/editor/forms/add_page.ml
@@ -1,34 +1,10 @@
 open Brr
 open Brr_note
-open Note
-module Js = Js_of_ocaml.Js
 
-
-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
+type t = { title : Jstr.t }
 
 let create
-  : unit -> Events.t
+  : unit -> t Note.signal * El.t
   = fun () ->
 
     (* The element which contains the information *)
@@ -37,18 +13,14 @@ let create
     in
 
     let init =
-      Events.Event
-        ( Handler.{ title = Jstr.empty }
-        , (module Handler : Events.Handler with type t = Handler.t)) in
+      ( { title = Jstr.empty }
+      ) in
 
     let state =
-      S.hold init
+      Note.S.hold init
       @@ Evr.on_el
         (Ev.input)
-        (fun _ ->
-           Events.Event
-             ( Handler.{ title = El.prop El.Prop.value input }
-             , (module Handler : Events.Handler with type t = Handler.t)) )
+        (fun _ -> { title = El.prop El.Prop.value input })
         input in
 
     ( state
-- 
cgit v1.2.3