diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:14:09 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
| commit | bf94695abeda0d7bb296ae4cd0f9a53782587d4a (patch) | |
| tree | 06dac432cfaa57dc6ad428b116332fdf777c84d8 /editor/forms/delete_page.ml | |
| parent | 4d35508a76676a548ac45e0bff2d63eafaf014e2 (diff) | |
Update editor organisation
Diffstat (limited to 'editor/forms/delete_page.ml')
| -rwxr-xr-x | editor/forms/delete_page.ml | 10 |
1 files changed, 9 insertions, 1 deletions
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 |