maciej/counsel-projectile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make all action lists customizable

Browse source
This commit is contained in:
Eric Danan 2017-09-06 12:49:09 +02:00
parent fe524f7fcd
commit 6db57ff445
1 changed files with 52 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

76
counsel-projectile.el
View file

@ -100,10 +100,17 @@ invalidates the cache first."
:action #'counsel-projectile-action-find-file :action #'counsel-projectile-action-find-file
:caller 'counsel-projectile-find-file)) :caller 'counsel-projectile-find-file))
(defvar counsel-projectile-find-file-actions
'(("j" counsel-projectile-action-find-file-other-window
"other window"))
"List of actions for `counsel-projecile-find-file'. If
you modify this variable after loading counsel-projectile, then
you should call `ivy-set-actions' afterwards to apply your
changes.")
(ivy-set-actions (ivy-set-actions
'counsel-projectile-find-file 'counsel-projectile-find-file
'(("j" counsel-projectile-action-find-file-other-window counsel-projectile-find-file-actions)
"other window")))
(ivy-set-display-transformer (ivy-set-display-transformer
'counsel-projectile-find-file 'counsel-projectile-find-file
@ -144,10 +151,17 @@ With a prefix ARG invalidates the cache first."
:action #'counsel-projectile-action-find-dir :action #'counsel-projectile-action-find-dir
:caller 'counsel-projectile-find-dir)) :caller 'counsel-projectile-find-dir))
(defvar counsel-projectile-find-dir-actions
'(("j" counsel-projectile-action-find-dir-other-window
"other window"))
"List of actions for `counsel-projecile-find-dir'. If
you modify this variable after loading counsel-projectile, then
you should call `ivy-set-actions' afterwards to apply your
changes.")
(ivy-set-actions (ivy-set-actions
'counsel-projectile-find-dir 'counsel-projectile-find-dir
'(("j" counsel-projectile-action-find-dir-other-window counsel-projectile-find-dir-actions)
"other window")))
;;; counsel-projectile-switch-to-buffer ;;; counsel-projectile-switch-to-buffer
@ -191,14 +205,21 @@ BUFFER may be a string or nil."
:action #'counsel-projectile-action-switch-buffer :action #'counsel-projectile-action-switch-buffer
:caller 'counsel-projectile-switch-to-buffer)) :caller 'counsel-projectile-switch-to-buffer))
(ivy-set-display-transformer (defvar counsel-projectile-switch-to-buffer-actions
'counsel-projectile-switch-to-buffer '(("j" counsel-projectile-action-switch-buffer-other-window
'ivy-switch-buffer-transformer) "other window"))
"List of actions for `counsel-projecile-switch-to-buffer'. If
you modify this variable after loading counsel-projectile, then
you should call `ivy-set-actions' afterwards to apply your
changes.")
(ivy-set-actions (ivy-set-actions
'counsel-projectile-switch-to-buffer 'counsel-projectile-switch-to-buffer
'(("j" counsel-projectile-action-switch-buffer-other-window counsel-projectile-switch-to-buffer-actions)
"other window")))
(ivy-set-display-transformer
'counsel-projectile-switch-to-buffer
'ivy-switch-buffer-transformer)
;;; counsel-projectile-ag ;;; counsel-projectile-ag
@ -457,16 +478,6 @@ already being visited by a buffer."
(add-text-properties 0 1 '(type file) file)) (add-text-properties 0 1 '(type file) file))
(counsel-projectile--unvisited-file-list)))) (counsel-projectile--unvisited-file-list))))
(defun counsel-projectile-transformer (str)
"Fontifies modified, file-visiting buffers.
Relies on `ivy-switch-buffer-transformer'."
(let ((type (get-text-property 0 'type str)))
(cond
((eq type 'buffer) (ivy-switch-buffer-transformer str))
((eq type 'file) (propertize str 'face 'ivy-virtual))
(t str))))
(defun counsel-projectile--matcher (regexp candidates) (defun counsel-projectile--matcher (regexp candidates)
"Return REGEXP-matching CANDIDATES. "Return REGEXP-matching CANDIDATES.
@ -494,6 +505,16 @@ Relies on `ivy--switch-buffer-matcher` and
"Switch to buffer or find file named NAME in another window." "Switch to buffer or find file named NAME in another window."
(counsel-projectile-action name t)) (counsel-projectile-action name t))
(defun counsel-projectile-transformer (str)
"Fontifies modified, file-visiting buffers.
Relies on `ivy-switch-buffer-transformer'."
(let ((type (get-text-property 0 'type str)))
(cond
((eq type 'buffer) (ivy-switch-buffer-transformer str))
((eq type 'file) (propertize str 'face 'ivy-virtual))
(t str))))
;;;###autoload ;;;###autoload
(defun counsel-projectile (&optional arg) (defun counsel-projectile (&optional arg)
"Use projectile with Ivy instead of ido. "Use projectile with Ivy instead of ido.
@ -511,14 +532,21 @@ With a prefix ARG invalidates the cache first."
:action #'counsel-projectile-action :action #'counsel-projectile-action
:caller 'counsel-projectile))) :caller 'counsel-projectile)))
(ivy-set-display-transformer (defvar counsel-projectile-actions
'counsel-projectile '(("j" counsel-projectile-action-other-window
'counsel-projectile-transformer) "other window"))
"List of actions for `counsel-projecile'. If
you modify this variable after loading counsel-projectile, then
you should call `ivy-set-actions' afterwards to apply your
changes.")
(ivy-set-actions (ivy-set-actions
'counsel-projectile 'counsel-projectile
'(("j" counsel-projectile-action-other-window counsel-projectile-actions)
"other window")))
(ivy-set-display-transformer
'counsel-projectile
'counsel-projectile-transformer)
;;; key bindings ;;; key bindings