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/delete_page.ml | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

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

diff --git a/editor/forms/delete_page.ml b/editor/forms/delete_page.ml
index 3328dd7..7c973c2 100755
--- a/editor/forms/delete_page.ml
+++ b/editor/forms/delete_page.ml
@@ -1,17 +1,27 @@
 open Brr
 open Note
 
-type t = Jstr.t
+module Handler = struct
 
-type Events.kind +=
-  | DeletePage of t [@@unboxed]
+  type t = Jstr.t
+
+  let on_close
+    : t -> State.t -> State.t
+    = fun id state ->
+      State.Storage.delete (fun () -> Some id);
+      let json = State.Storage.load None in
+      State.load_page None state json
+end
 
 let create
   : Jstr.t -> Events.t
   = fun name ->
 
     let state =
-      S.const (DeletePage name) in
+      S.const
+        (Events.Event
+           ( name
+           , (module Handler: Events.Handler with type t = Handler.t))) in
 
     let message = begin
       let open Jstr in
@@ -25,9 +35,3 @@ let create
     , El.txt message
     )
 
-let on_close
-  : t -> State.t -> State.t
-  = fun id state ->
-    State.Storage.delete (fun () -> Some id);
-    let json = State.Storage.load None in
-    State.load_page None state json
-- 
cgit v1.2.3