Enabled vanilla anzu.
This commit is contained in:
parent
a55fe9d43d
commit
5c5cbe23db
2 changed files with 30 additions and 1 deletions
|
@ -2,6 +2,34 @@
|
||||||
|
|
||||||
;; anzu and evil-anzu expose current/total state that can be displayed in the
|
;; anzu and evil-anzu expose current/total state that can be displayed in the
|
||||||
;; mode-line.
|
;; mode-line.
|
||||||
|
|
||||||
|
(def-package! anzu
|
||||||
|
:defer t
|
||||||
|
:commands 'isearch
|
||||||
|
:config
|
||||||
|
(setq anzu-cons-mode-line-p nil
|
||||||
|
anzu-minimum-input-length 1
|
||||||
|
anzu-search-threshold 250)
|
||||||
|
(global-anzu-mode +1)
|
||||||
|
|
||||||
|
(defun +doom-modeline*fix-anzu-count (positions here)
|
||||||
|
(cl-loop for (start . end) in positions
|
||||||
|
collect t into before
|
||||||
|
when (and (>= here start) (<= here end))
|
||||||
|
return (length before)
|
||||||
|
finally return 0))
|
||||||
|
(advice-add #'anzu--where-is-here :override #'+doom-modeline*fix-anzu-count)
|
||||||
|
|
||||||
|
;; Avoid anzu conflicts across buffers
|
||||||
|
(mapc #'make-variable-buffer-local
|
||||||
|
'(anzu--total-matched anzu--current-position anzu--state
|
||||||
|
anzu--cached-count anzu--cached-positions anzu--last-command
|
||||||
|
anzu--last-isearch-string anzu--overflow-p))
|
||||||
|
;; Ensure anzu state is cleared when searches & iedit are done
|
||||||
|
(add-hook 'isearch-mode-end-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'doom-escape-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'iedit-mode-end-hook #'anzu--reset-status))
|
||||||
|
|
||||||
(def-package! evil-anzu
|
(def-package! evil-anzu
|
||||||
:requires evil
|
:requires evil
|
||||||
:init
|
:init
|
||||||
|
|
|
@ -9,10 +9,11 @@
|
||||||
|
|
||||||
;; Optional
|
;; Optional
|
||||||
;;(require 'flycheck)
|
;;(require 'flycheck)
|
||||||
;;(require 'anzu)
|
|
||||||
;;(require 'iedit)
|
;;(require 'iedit)
|
||||||
;;(require 'evil-multiedit)
|
;;(require 'evil-multiedit)
|
||||||
|
|
||||||
|
(require 'anzu)
|
||||||
|
|
||||||
(when (featurep! :feature evil)
|
(when (featurep! :feature evil)
|
||||||
(package! evil-anzu))
|
(package! evil-anzu))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue