Add mouse context-menu-mode config

1 files changed, 15 insertions, 5 deletions

@@ -328,6 +328,16 @@
   (:with-map minibuffer-local-map
     (:bind "M-/" #'+minibuffer-complete-history)))
 
+(setup mouse
+  ;; Brand new for Emacs 28: see https://ruzkuku.com/texts/emacs-mouse.html
+  (when (fboundp 'context-menu-mode)
+    ;; (:option context-menu-functions
+    ;;          '(context-menu-ffap
+    ;;            context-menu-region
+    ;;            context-menu-undo
+    ;;            context-menu-dictionary))
+    (context-menu-mode +1)))
+
 (setup org-agenda
   (:option org-agenda-skip-deadline-if-done t)
   (:+leader "a" #'org-agenda "C-a" #'org-agenda))
@@ -361,6 +371,11 @@
   (:face aw-mode-line-face ((t (:foreground "red"))))
   (+ace-window-display-mode +1))
 
+(setup (:straight (actually-selected-window
+                   :host github
+                   :repo "duckwork/actually-selected-window.el"))
+  (actually-selected-window-mode +1))
+
 (setup (:straight anzu)
   (:option anzu-cons-mode-line-p nil)
   (:+key [remap query-replace] #'anzu-query-replace-regexp
@@ -1050,8 +1065,3 @@ See also `crux-reopen-as-root-mode'."
                  (interactive "P")
                  (call-interactively
                   (if prefix #'zzz-up-to-char #'zzz-to-char)))))
-
-(setup (:straight (actually-selected-window
-                   :host github
-                   :repo "duckwork/actually-selected-window.el"))
-  (actually-selected-window-mode +1))