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/editor.ml | |
| parent | a6e30a95b5dcd34fb9e65d9a26f0844ec75bb004 (diff) | |
Update editor
Diffstat (limited to 'editor/editor.ml')
| -rwxr-xr-x | editor/editor.ml | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/editor/editor.ml b/editor/editor.ml index 9eee49e..8dc13e8 100755 --- a/editor/editor.ml +++ b/editor/editor.ml @@ -137,18 +137,12 @@ let app id content = ~eq:State.eq init_state (Note.E.select - [ Brr_note.Evr.on_el Ev.focusout - (fun _ -> + [ Brr_note.Evr.on_els Ev.focusout + (fun _ _ -> State.E ( title , (module Store:State.Event with type t = Store.t))) - editor - ; Brr_note.Evr.on_el Ev.focusout - (fun _ -> - State.E - ( title - , (module Store:State.Event with type t = Store.t))) - title + [ editor ; title ] ; btn_events ]) in |