emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Appease byte-compiler-sama

Browse source
This commit is contained in:
Henrik Lissner 2018-05-14 20:35:26 +02:00
parent 6e3f500a39
commit e44fd886f2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/config/default/+bindings.el
View file

@ -747,7 +747,7 @@
;;
(when (featurep 'evil-collection)
(defun +config|deal-with-evil-collections-bs (feature keymaps)
(defun +config|deal-with-evil-collections-bs (_feature keymaps)
"Unmap keys that conflict with Doom's defaults."
(dolist (map keymaps)
(evil-define-key '(normal visual motion) map

19
modules/config/default/config.el
View file

@ -76,15 +76,16 @@
(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 +default-repeat-forward-key ',next-func)
(define-key evil-motion-state-map +default-repeat-backward-key ',prev-func))
(advice-add #',command :before #',fn-sym))))
(eval-and-compile
;; 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" (doom-unquote command)))))
`(progn
(defun ,fn-sym (&rest _)
(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
(do-repeat! evil-ex-search-next evil-ex-search-next evil-ex-search-previous)