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

config/default: autoload +default/easymotion

Browse source
This commit is contained in:
Henrik Lissner 2018-03-20 15:56:37 -04:00
parent 940ba05e6a
commit 0156c67ad0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -319,6 +319,7 @@
:n "gr" #'+eval:region :n "gr" #'+eval:region
:n "gR" #'+eval/buffer :n "gR" #'+eval/buffer
:v "gR" #'+eval:replace-region :v "gR" #'+eval:replace-region
:m "gs" #'+default/easymotion ; lazy-load `evil-easymotion'
:v "@" #'+evil:macro-on-all-lines :v "@" #'+evil:macro-on-all-lines
:n "g@" #'+evil:macro-on-all-lines :n "g@" #'+evil:macro-on-all-lines
;; repeat in visual mode (FIXME buggy) ;; repeat in visual mode (FIXME buggy)

21
modules/config/default/autoload/evil.el
View file

@ -36,3 +36,24 @@ buffers."
(interactive "<a>") (interactive "<a>")
(doom/kill-matching-buffers pattern bang)) (doom/kill-matching-buffers pattern bang))
;;;###autoload
(defun +default/easymotion ()
"TODO"
(interactive)
(let ((prefix (this-command-keys)))
(evilem-default-keybindings prefix)
(map! :map evilem-map
"n" (evilem-create #'evil-ex-search-next)
"N" (evilem-create #'evil-ex-search-previous)
"s" (evilem-create #'evil-snipe-repeat
:pre-hook (save-excursion (call-interactively #'evil-snipe-s))
:bind ((evil-snipe-scope 'buffer)
(evil-snipe-enable-highlight)
(evil-snipe-enable-incremental-highlight)))
"S" (evilem-create #'evil-snipe-repeat-reverse
:pre-hook (save-excursion (call-interactively #'evil-snipe-s))
:bind ((evil-snipe-scope 'buffer)
(evil-snipe-enable-highlight)
(evil-snipe-enable-incremental-highlight))))
(set-transient-map evilem-map)
(which-key-reload-key-sequence prefix)))

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

@ -109,26 +109,4 @@
(do-repeat! evil-visualstar/begin-search-forward (do-repeat! evil-visualstar/begin-search-forward
evil-ex-search-next evil-ex-search-previous) evil-ex-search-next evil-ex-search-previous)
(do-repeat! evil-visualstar/begin-search-backward (do-repeat! evil-visualstar/begin-search-backward
evil-ex-search-previous evil-ex-search-next)) evil-ex-search-previous evil-ex-search-next))))
;; lazy-load `evil-easymotion'
(map! :m "gs" #'+default/easymotion)
(defun +default/easymotion ()
(interactive)
(let ((prefix (this-command-keys)))
(evilem-default-keybindings prefix)
(map! :map evilem-map
"n" (evilem-create #'evil-ex-search-next)
"N" (evilem-create #'evil-ex-search-previous)
"s" (evilem-create #'evil-snipe-repeat
:pre-hook (save-excursion (call-interactively #'evil-snipe-s))
:bind ((evil-snipe-scope 'buffer)
(evil-snipe-enable-highlight)
(evil-snipe-enable-incremental-highlight)))
"S" (evilem-create #'evil-snipe-repeat-reverse
:pre-hook (save-excursion (call-interactively #'evil-snipe-s))
:bind ((evil-snipe-scope 'buffer)
(evil-snipe-enable-highlight)
(evil-snipe-enable-incremental-highlight))))
(set-transient-map evilem-map)
(which-key-reload-key-sequence prefix)))))