feat: add "Always on Top" in window menu.

2026-05-29 15:09:41 +00:00 · 2025-09-28 19:22:03 +08:00
parent ba3ff5e5a5
commit be34b7904a
1 changed files with 13 additions and 5 deletions
--- a/src/electron/electron/core.cljs
+++ b/src/electron/electron/core.cljs
@@ -206,11 +206,19 @@
                       {:role "editMenu"}
                       {:role "viewMenu"}
                       {:role "windowMenu"
-                        :submenu (when-not mac? [{:role "minimize"}
-                                                 {:role "zoom"}
-                                                 ;; Disable Control+W shortcut
-                                                 {:role "close"
-                                                  :accelerator false}])})
+                        :submenu
+                        (concat
+                          (when-not mac?
+                            [{:role "minimize"}
+                             {:role "zoom"}
+                             ;; Disable Control+W shortcut
+                             {:role "close"
+                              :accelerator false}])
+                          [{:label "Always on Top"
+                            :type "checkbox"
+                            :click (fn [menuItem browserWindow]
+                                     ;; switch alwaysOnTop state
+                                     (.setAlwaysOnTop browserWindow (.-checked menuItem)))}])})
        ;; Windows has no about role
        template (conj template
                       (if mac?