menu bar: radio styling + help text

jinnovation · Apr 12, 2024 · 3d77417 · 3d77417
1 parent 71336c9
commit 3d77417
Showing 1 changed file with 14 additions and 9 deletions.
diff --git a/kele.el b/kele.el
@@ -1738,15 +1738,20 @@ Similar to `kele-dispatch'."
 
 (defun kele--update-contexts-menu ()
   "Fill in the context-switch sub-menu with candidate contexts."
-  (easy-menu-add-item
-   kele-menu-map
-   '("Configuration")
-   (append '("Switch context to...")
-           (mapcar (lambda (ctx)
-                     (vector ctx (lambda ()
-                                   (interactive)
-                                   (kele-context-switch ctx))))
-                   (kele-context-names)))))
+  (let ((ctx-current (kele-current-context-name :wait nil)))
+    (easy-menu-add-item
+     kele-menu-map
+     '("Configuration")
+     (append '("Switch context to...")
+             (mapcar (lambda (ctx)
+                       (vector ctx
+                               (lambda ()
+                                 (interactive)
+                                 (kele-context-switch ctx))
+                               :help (format "Switch to context `%s'" ctx)
+                               :style 'radio
+                               :selected (string-equal ctx ctx-current)))
+                     (kele-context-names))))))
 
 (provide 'kele)