From bf94695abeda0d7bb296ae4cd0f9a53782587d4a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:14:09 +0100
Subject: Update editor organisation

---
 editor/forms/delete_page.ml | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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

diff --git a/editor/forms/delete_page.ml b/editor/forms/delete_page.ml
index 701162c..3328dd7 100755
--- a/editor/forms/delete_page.ml
+++ b/editor/forms/delete_page.ml
@@ -1,8 +1,10 @@
 open Brr
 open Note
 
+type t = Jstr.t
+
 type Events.kind +=
-  | DeletePage of Jstr.t [@@unboxed]
+  | DeletePage of t [@@unboxed]
 
 let create
   : Jstr.t -> Events.t
@@ -23,3 +25,9 @@ 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