From f6103b68d5430251028a615c51bd97c0f5b452f6 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 30 Dec 2021 12:27:55 -0600
Subject: Add mouse context-menu-mode config

---
 init.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/init.el b/init.el
index 6e45383..925dc87 100644
--- a/init.el
+++ b/init.el
@@ -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))
-- 
cgit 1.4.1-21-gabe81