move focus event

Author: sprocketc

src/renderer/core.cljs

@@ -20,7 +20,6 @@
    [renderer.events]
    [renderer.frame.core]
    [renderer.history.core]
-   [renderer.menubar.core]
    [renderer.notification.core]
    [renderer.panel.core]
    [renderer.reepl.core]
@@ -48,7 +47,7 @@
 ██╔══██╗██╔══╝░░██╔═══╝░██╔══██║░░░██║░░░██╔══██║
 ██║░░██║███████╗██║░░░░░██║░░██║░░░██║░░░██║░░██║
 ╚═╝░░╚═╝╚══════╝╚═╝░░░░░╚═╝░░╚═╝░░░╚═╝░░░╚═╝░░╚═╝
- 
+
 ░██████╗████████╗██╗░░░██╗██████╗░██╗░█████╗░
 ██╔════╝╚══██╔══╝██║░░░██║██╔══██╗██║██╔══██╗
 ╚█████╗░░░░██║░░░██║░░░██║██║░░██║██║██║░░██║

src/renderer/events.cljs

@@ -218,3 +218,8 @@
  (fn [id]
    (when-let [element (if id (.getElementById js/document id) (dom/canvas-element))]
      (js/setTimeout #(.focus element)))))
+
+(rf/reg-event-fx
+ :focus
+ (fn [_ [_ id]]
+   {:focus id}))

src/renderer/menubar/core.cljs

@@ -528,7 +528,7 @@
   [:> Menubar/Item
    {:class "menu-item"
     :onSelect #(do (rf/dispatch action)
-                   (rf/dispatch [:menubar/focus nil]))
+                   (rf/dispatch [:focus nil]))
     :disabled (when disabled? @(rf/subscribe disabled?))}
    label
    [:div.right-slot

src/renderer/menubar/events.cljs

@@ -33,11 +33,11 @@
                                    (.-shiftKey e) (conj :shift))}]))
 
 (defn input-key-down-handler
-  "Generic on-key-down handler for input elements that dispatches an event `f` 
-   in order to update a db value on keyboard enter, or reset to the initial 
+  "Generic on-key-down handler for input elements that dispatches an event `f`
+   in order to update a db value on keyboard enter, or reset to the initial
    value `v` on escape.
 
-   We need this to avoid updating the canvas with incomplete values while the 
+   We need this to avoid updating the canvas with incomplete values while the
    user is typing, and also avoid polluting the history stack.
 
    The `default-value` attribute should be used to update the value reactively."
@@ -161,19 +161,19 @@
                 [[:element/select-all]
                  [{:keyCode (key-codes "A")
                    :ctrlKey true}]]
-                [[:menubar/focus "file"]
+                [[:focus "file"]
                  [{:keyCode (key-codes "F")
                    :altKey true}]]
-                [[:menubar/focus "edit"]
+                [[:focus "edit"]
                  [{:keyCode (key-codes "E")
                    :altKey true}]]
-                [[:menubar/focus "object"]
+                [[:focus "object"]
                  [{:keyCode (key-codes "O")
                    :altKey true}]]
-                [[:menubar/focus "view"]
+                [[:focus "view"]
                  [{:keyCode (key-codes "V")
                    :altKey true}]]
-                [[:menubar/focus "help"]
+                [[:focus "help"]
                  [{:keyCode (key-codes "H")
                    :altKey true}]]
                 [[:element/move-up]