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

allow to remove current buffer or project from candidates

Browse source
This commit is contained in:
Eric Danan 2017-11-05 21:00:15 +01:00
parent 88a16cb753
commit 56c0e3a521
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
counsel-projectile.el
View file

@ -161,12 +161,19 @@ With a prefix ARG invalidates the cache first."
;;; counsel-projectile-switch-to-buffer ;;; counsel-projectile-switch-to-buffer
(defvar counsel-projectile-remove-current-buffer nil
"Non-nil if current buffer should be removed from the
candidates list of `counsel-projectile-switch-to-buffer' and
`counsel-projectile'.")
(defun counsel-projectile--buffer-list () (defun counsel-projectile--buffer-list ()
"Get a list of project buffer names. "Get a list of project buffer names.
Like `projectile-project-buffer-names', but propertize buffer Like `projectile-project-buffer-names', but propertize buffer
names as in `ivy--buffer-list'." names as in `ivy--buffer-list'."
(let ((buffer-names (projectile-project-buffer-names))) (let ((buffer-names (projectile-project-buffer-names)))
(when counsel-projectile-remove-current-buffer
(setq buffer-names (delete (buffer-name (current-buffer)) buffer-names)))
(ivy--buffer-list "" nil (ivy--buffer-list "" nil
(lambda (x) (lambda (x)
(member (car x) buffer-names))))) (member (car x) buffer-names)))))
@ -280,6 +287,10 @@ hitting \"M-n\" in the minibuffer.")
;;; counsel-projectile-switch-project ;;; counsel-projectile-switch-project
(defvar counsel-projectile-remove-current-project nil
"Non-nil if current project should be removed from the
candidates list of `counsel-projectile-switch-project'.")
(defun counsel-projectile-switch-project-action (project) (defun counsel-projectile-switch-project-action (project)
"Switch to PROJECT. "Switch to PROJECT.
Invokes the command referenced by `projectile-switch-project-action' on switch. Invokes the command referenced by `projectile-switch-project-action' on switch.
@ -394,7 +405,9 @@ Invokes the command referenced by
`projectile-switch-project-action' on switch." `projectile-switch-project-action' on switch."
(interactive) (interactive)
(ivy-read (projectile-prepend-project-name "Switch to project: ") (ivy-read (projectile-prepend-project-name "Switch to project: ")
projectile-known-projects (if counsel-projectile-remove-current-project
(projectile-relevant-known-projects)
projectile-known-projects)
:preselect (and (projectile-project-p) :preselect (and (projectile-project-p)
(abbreviate-file-name (projectile-project-root))) (abbreviate-file-name (projectile-project-root)))
:action #'counsel-projectile-switch-project-action :action #'counsel-projectile-switch-project-action