evil: factor out bind

This commit is contained in:
Henrik Lissner 2015-10-28 17:26:54 -04:00
parent 3e11c7404d
commit ca4942bdaa

View file

@ -211,24 +211,28 @@
(use-package evil-snipe (use-package evil-snipe
:diminish evil-snipe-mode :diminish evil-snipe-mode
:commands (evil-snipe-f evil-snipe-F evil-snipe-t evil-snipe-T evil-snipe-s evil-snipe-S evil-snipe-x evil-snipe-X) :commands (evil-snipe-f evil-snipe-F evil-snipe-t evil-snipe-T evil-snipe-s evil-snipe-S evil-snipe-x evil-snipe-X )
:init :init
(setq-default (setq-default
evil-snipe-smart-case t evil-snipe-smart-case t
evil-snipe-repeat-keys nil ; using evil-space to repeat evil-snipe-repeat-keys nil ; using space to repeat
evil-snipe-scope 'line evil-snipe-scope 'line
evil-snipe-repeat-scope 'visible evil-snipe-repeat-scope 'visible
evil-snipe-override-evil-repeat-keys nil ; causes problems with remapped ; evil-snipe-override-evil-repeat-keys nil ; causes problems with remapped ;
evil-snipe-symbol-groups '((?\[ "[[{(]") evil-snipe-symbol-groups '((?\[ "[[{(]")
(?\] "[]})]"))) (?\] "[]})]")
(bind! :m "f" 'evil-snipe-f (?\; "[;:]")))
:m "F" 'evil-snipe-F
:m "t" 'evil-snipe-t (define-key evil-normal-state-map (kbd "s") nil)
:m "T" 'evil-snipe-T (define-key evil-normal-state-map (kbd "S") nil)
:m "s" 'evil-snipe-s (define-key evil-motion-state-map (kbd "s") 'evil-snipe-s)
:m "S" 'evil-snipe-S (define-key evil-motion-state-map (kbd "S") 'evil-snipe-S)
:o "x" 'evil-snipe-x (define-key evil-motion-state-map (kbd "f") 'evil-snipe-f)
:o "X" 'evil-snipe-X) (define-key evil-motion-state-map (kbd "F") 'evil-snipe-F)
(define-key evil-motion-state-map (kbd "t") 'evil-snipe-t)
(define-key evil-motion-state-map (kbd "T") 'evil-snipe-T)
(define-key evil-operator-state-map (kbd "z") 'evil-snipe-s)
(define-key evil-operator-state-map (kbd "Z") 'evil-snipe-S)
:config :config
(evil-snipe-mode 1) (evil-snipe-mode 1)
(evil-snipe-override-mode 1)) (evil-snipe-override-mode 1))