awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

config/default: add +default-repeat-{forward,backward}-key options

Browse Source
This commit is contained in:
Henrik Lissner
2018-03-25 22:39:03 -04:00
parent e41212bb7b
commit 1983363f9c
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/config/default/config.el
View File

@ -74,14 +74,17 @@
(load! +evil-commands))
(when (featurep! +bindings)
(defvar +default-repeat-forward-key ";")
(defvar +default-repeat-backward-key ",")
;; Makes ; and , the universal repeat-keys in evil-mode
(defmacro do-repeat! (command next-func prev-func)
"Repeat motions with ;/,"
(let ((fn-sym (intern (format "+evil*repeat-%s" command))))
`(progn
(defun ,fn-sym (&rest _)
(define-key evil-motion-state-map ";" ',next-func)
(define-key evil-motion-state-map "," ',prev-func))
(define-key evil-motion-state-map +default-repeat-forward-key ',next-func)
(define-key evil-motion-state-map +default-repeat-backward-key ',prev-func))
(advice-add #',command :before #',fn-sym))))
;; n/N