Add mouse context-menu-mode config

This commit is contained in:
Case Duckworth 2021-12-30 12:27:55 -06:00
parent d71d36267e
commit f6103b68d5
1 changed files with 15 additions and 5 deletions

20
init.el
View File

@ -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))