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

---
 editor/editor.ml | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'editor/editor.ml')

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
 
-- 
cgit v1.2.3