emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

evil-helm: Add support for numeric prefix in mark commands

This commit is contained in:
Pierre Neidhardt 2017-11-29 14:50:39 +01:00
parent 44983c4f28
commit 0aef7f5bde
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
evil-helm.el
View File

@ -42,6 +42,18 @@
(defvar helm-find-files-map)
(defvar helm-read-file-map)
(defun evil-helm-toggle-visible-mark-backwards (&optional args)
(interactive "p")
(evil-helm-toggle-visible-mark args t))
(defun evil-helm-toggle-visible-mark (&optional args backwards)
(interactive "p")
(unless (numberp args) (setq args 1))
(dotimes (_ (abs args))
(if (or (and (< args 0) (not backwards)) (and (> args 0) backwards))
(helm-toggle-visible-mark-backwards)
(helm-toggle-visible-mark))))
(defun evil-helm-setup ()
"Set up `evil' bindings for `helm'."
;; TODO: We should not modify helm-map in Emacs state but somehow it does not
@ -61,7 +73,8 @@
"k" 'helm-previous-line
"g" 'helm-beginning-of-buffer
"G" 'helm-end-of-buffer
(kbd "SPC") 'helm-toggle-visible-mark)
(kbd "SPC") 'evil-helm-toggle-visible-mark
(kbd "S-SPC") 'evil-helm-toggle-visible-mark-backwards)
(evil-define-key '(normal insert) helm-map
(kbd "M-j") 'helm-next-line