Vlf: Use evil-define-key
This commit is contained in:
parent
bf95226f83
commit
87c6ff3462
45
evil-vlf.el
45
evil-vlf.el
|
@ -32,21 +32,44 @@
|
||||||
|
|
||||||
(defvar vlf-mode-map)
|
(defvar vlf-mode-map)
|
||||||
|
|
||||||
|
(defun evil-vlf-decrease-batch-size ()
|
||||||
|
"Decrease vlf batch size by factor of 2."
|
||||||
|
(interactive)
|
||||||
|
(when (fboundp 'vlf-change-batch-size)
|
||||||
|
(vlf-change-batch-size t)))
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(defun evil-vlf-setup ()
|
(defun evil-vlf-setup ()
|
||||||
"Set up `evil' bindings for `vlf'."
|
"Set up `evil' bindings for `vlf'."
|
||||||
(evil-collection-util-evilify-map
|
(evil-set-initial-state 'vlf-mode 'normal)
|
||||||
vlf-mode-map
|
|
||||||
:mode vlf-mode
|
|
||||||
:bindings
|
|
||||||
"C-j" 'vlf-next-batch
|
|
||||||
"C-k" 'vlf-prev-batch
|
|
||||||
"f" 'evil-find-char
|
|
||||||
"F" 'vlf-toggle-follow
|
|
||||||
"e" 'vlf-ediff-buffers
|
|
||||||
|
|
||||||
;; refresh
|
(evil-define-key 'normal vlf-mode-map
|
||||||
"gr" 'vlf-revert))
|
"gj" 'vlf-next-batch
|
||||||
|
"gk" 'vlf-prev-batch
|
||||||
|
(kbd "C-j") 'vlf-next-batch
|
||||||
|
(kbd "C-k") 'vlf-prev-batch
|
||||||
|
"]" 'vlf-next-batch
|
||||||
|
"[" 'vlf-prev-batch
|
||||||
|
|
||||||
|
"+" 'vlf-change-batch-size
|
||||||
|
"-" 'evil-vlf-decrease-batch-size
|
||||||
|
"=" 'vlf-next-batch-from-point
|
||||||
|
|
||||||
|
;; refresh
|
||||||
|
"gr" 'vlf-revert
|
||||||
|
|
||||||
|
"s" 'vlf-re-search-forward
|
||||||
|
"S" 'vlf-re-search-backward
|
||||||
|
|
||||||
|
"gg" 'vlf-beginning-of-file
|
||||||
|
"G" 'vlf-end-of-file
|
||||||
|
"J" 'vlf-jump-to-chunk
|
||||||
|
"E" 'vlf-ediff-buffers
|
||||||
|
|
||||||
|
"g%" 'vlf-query-replace
|
||||||
|
"go" 'vlf-occur
|
||||||
|
"L" 'vlf-goto-line
|
||||||
|
"F" 'vlf-toggle-follow))
|
||||||
|
|
||||||
(provide 'evil-vlf)
|
(provide 'evil-vlf)
|
||||||
;;; evil-vlf.el ends here
|
;;; evil-vlf.el ends here
|
||||||
|
|
Loading…
Reference in New Issue