Kosher way to communicate via subscriptions

This way we order Elm runtime to handle the message.
RailsEventStore · Apr 4, 2024 · 76b8c18 · 76b8c18
1 parent e2bdbe6
commit 76b8c18
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/ruby_event_store-browser/elm/src/Layout.elm b/ruby_event_store-browser/elm/src/Layout.elm
@@ -29,6 +29,7 @@ type Msg
     | OnSelect Search.Stream
     | OnQueryChanged Search.Stream
     | RequestSearch
+    | CloseSearch
     | ToggleBookmark String
 
 
@@ -52,12 +53,18 @@ port toggleDialog : String -> Cmd msg
 port requestSearch : (() -> msg) -> Sub msg
 
 
+port closeSearch : (() -> msg) -> Sub msg
+
+
 port toggleBookmark : String -> Cmd msg
 
 
 subscriptions : Sub Msg
 subscriptions =
-    requestSearch (always RequestSearch)
+    Sub.batch
+        [ requestSearch (always RequestSearch)
+        , closeSearch (always CloseSearch)
+        ]
 
 
 buildModel : Model
@@ -143,6 +150,9 @@ update msg model =
         RequestSearch ->
             ( model, toggleDialog searchModalId )
 
+        CloseSearch ->
+            ( model, toggleDialog searchModalId )
+
         ToggleBookmarksMenu ->
             ( { model | internal = Model model.internal.search (not model.internal.displayBookmarksMenu) model.internal.bookmarks }, Cmd.none )
 

diff --git a/ruby_event_store-browser/public/bootstrap.js b/ruby_event_store-browser/public/bootstrap.js
@@ -18,8 +18,7 @@ window.addEventListener("keydown", function (event) {
   }
 
   if (event.key === "Escape") {
-    const dialog = document.querySelector(`#${id}`);
-    dialog.open ? dialog.close() : null;
+    app.ports.closeSearch.send(null);
     event.preventDefault();
   }
 });