Replace ace-jump-mode with avy

This commit is contained in:
Wojciech Kozlowski 2022-04-12 16:11:22 +02:00
parent e681fa8b12
commit 54bb9f5379
2 changed files with 32 additions and 5 deletions

View File

@ -46,6 +46,25 @@
:inherit ,(remq 'hl-line (internal-get-lisp-face-attribute
'line-number-current-line
:inherit))))
(after! avy
(let ((avy-lead-face-fg (internal-get-lisp-face-attribute 'avy-lead-face
:background))
(avy-lead-face-0-fg (internal-get-lisp-face-attribute 'avy-lead-face-0
:background))
(avy-lead-face-1-fg (internal-get-lisp-face-attribute 'avy-lead-face-1
:background))
(avy-lead-face-2-fg (internal-get-lisp-face-attribute 'avy-lead-face-2
:background)))
(custom-theme-set-faces! 'doom-one
`(avy-lead-face :foreground ,avy-lead-face-fg
:background nil
:weight bold)
`(avy-lead-face-0 :foreground ,avy-lead-face-0-fg
:inherit avy-lead-face)
`(avy-lead-face-1 :foreground ,avy-lead-face-1-fg
:inherit avy-lead-face)
`(avy-lead-face-2 :foreground ,avy-lead-face-2-fg
:inherit avy-lead-face))))
;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
@ -92,6 +111,9 @@
;; Override doom configuration.
;; -----------------------------------------------------------------------------
;; Remove background from `avy'.
(after! avy (setq avy-background t))
;; Remove org-agenda from dashboard.
(let ((org-agenda-section
(seq-find (lambda (item) (string= (nth 0 item) "Open org-agenda"))
@ -208,9 +230,6 @@
;; Configuration for additional packages on top of doom and its modules.
;; -----------------------------------------------------------------------------
;; Faster navigation.
(use-package! ace-jump-mode
:bind (("C-c SPC" . ace-jump-mode)))
;; A nicer interface for ripgrep. Note that since doom required rg we don't
;; consider the case if it's not installed.
@ -294,6 +313,16 @@
"C-<" #'+x/scroll-down-one
"C->" #'+x/scroll-up-one
"M-Q" #'+x/unfill-paragraph
;; Faster navigation with avy.
"M-g M-c" #'avy-goto-char
"M-g M-v" #'avy-goto-char-2
"M-g M-l" #'avy-goto-line
"M-g M-e" #'avy-goto-word-0
"M-g M-w" #'avy-goto-word-1
"M-g M-t" #'avy-goto-char-timer
"M-g M-j" #'avy-resume
(:map isearch-mode-map
"C-'" #'avy-isearch)
;; Create binding before dired is loaded.
"C-x C-j" #'dired-jump
;; More convenient window switching.

View File

@ -8,8 +8,6 @@
;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
;;(package! some-package)
(package! ace-jump-mode
:recipe (:local-repo "repos/ace-jump-mode"))
(package! box-comment
:recipe (:local-repo "repos/x-lib"))
(package! deadgrep)