diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 14:58:00 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | cee939ada70967b70fe92ca24b3428cc8c8b7c38 (patch) | |
tree | cb8df06a6d93c94c221eb2209dee048d04df4bd5 /editor/actions/add_page.ml | |
parent | a6e30a95b5dcd34fb9e65d9a26f0844ec75bb004 (diff) |
Update editor
Diffstat (limited to 'editor/actions/add_page.ml')
-rwxr-xr-x | editor/actions/add_page.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml index ec9768b..fcad87f 100755 --- a/editor/actions/add_page.ml +++ b/editor/actions/add_page.ml @@ -21,9 +21,16 @@ let create : unit -> State.event Note.event = fun () -> let title = Jstr.v "Nouvelle page" in + let form = Forms.Add_page.create () in + + let valid_on = Note.S.map + (fun Forms.Add_page.{title} -> not @@ Jstr.equal Jstr.empty title) + (fst form) + in let ev = Elements.Popup.create ~title - ~form:(Forms.Add_page.create ()) + ~form + ~valid_on () in Note.E.map |