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

execute find-file/dir/buffer action in ivy-state-buffer

Browse source 
needed since swiper commit 6519ecc
This commit is contained in:
Eric Danan 2016-12-02 22:17:10 +01:00
parent 36abb1f2c0
commit ada2ae0a0f
1 changed files with 20 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
counsel-projectile.el
View file

@ -78,11 +78,12 @@ Like `projectile-current-project-files', but fontifies non-visited file names wi
(defun counsel-projectile--find-file-action (file &optional other-window) (defun counsel-projectile--find-file-action (file &optional other-window)
"Find FILE and run `projectile-find-file-hook'." "Find FILE and run `projectile-find-file-hook'."
(with-current-buffer (ivy-state-buffer ivy-last)
(funcall (if other-window (funcall (if other-window
'find-file-other-window 'find-file-other-window
'find-file) 'find-file)
(projectile-expand-root file)) (projectile-expand-root file))
(run-hooks 'projectile-find-file-hook)) (run-hooks 'projectile-find-file-hook)))
(defun counsel-projectile--find-file-other-window-action (file) (defun counsel-projectile--find-file-other-window-action (file)
"Find FILE in another window and run `projectile-find-file-hook'." "Find FILE in another window and run `projectile-find-file-hook'."
@ -119,11 +120,12 @@ With a prefix ARG invalidates the cache first."
(defun counsel-projectile--find-dir-action (dir &optional other-window) (defun counsel-projectile--find-dir-action (dir &optional other-window)
"Visit DIR with dired and run `projectile-find-dir-hook'." "Visit DIR with dired and run `projectile-find-dir-hook'."
(with-current-buffer (ivy-state-buffer ivy-last)
(funcall (if other-window (funcall (if other-window
'dired-other-window 'dired-other-window
'dired) 'dired)
(projectile-expand-root dir)) (projectile-expand-root dir))
(run-hooks 'projectile-find-dir-hook)) (run-hooks 'projectile-find-dir-hook)))
(defun counsel-projectile--find-dir-other-window-action (dir) (defun counsel-projectile--find-dir-other-window-action (dir)
"Visit DIR with dired in another window and run `projectile-find-dir-hook'." "Visit DIR with dired in another window and run `projectile-find-dir-hook'."
@ -161,13 +163,14 @@ Like `projectile-project-buffer-names', but propertize buffer names as in `ivy--
(defun counsel-projectile--switch-buffer-action (buffer &optional other-window) (defun counsel-projectile--switch-buffer-action (buffer &optional other-window)
"Switch to BUFFER. "Switch to BUFFER.
BUFFER may be a string or nil." BUFFER may be a string or nil."
(with-current-buffer (ivy-state-buffer ivy-last)
(cond (cond
((zerop (length buffer)) ((zerop (length buffer))
(switch-to-buffer ivy-text nil 'force-same-window)) (switch-to-buffer ivy-text nil 'force-same-window))
(other-window (other-window
(switch-to-buffer-other-window buffer)) (switch-to-buffer-other-window buffer))
(t (t
(switch-to-buffer buffer nil 'force-same-window)))) (switch-to-buffer buffer nil 'force-same-window)))))
(defun counsel-projectile--switch-buffer-other-window-action (buffer) (defun counsel-projectile--switch-buffer-other-window-action (buffer)
"Switch to BUFFER in other window. "Switch to BUFFER in other window.