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

cp-switch-project: fix (e)shell/(v)term actions

Browse source 
Following a recent commit in projectile, the corresonding projectile
actions now take a mandatory argument.

[Fixes #144]
This commit is contained in:
Eric Danan 2020-01-30 10:27:54 +00:00
parent cadc6de707
commit 47fcb4e0eb
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
counsel-projectile.el
View file

@ -1329,24 +1329,30 @@ action."
(defun counsel-projectile-switch-project-action-run-shell (project) (defun counsel-projectile-switch-project-action-run-shell (project)
"Invoke `shell' from PROJECT's root." "Invoke `shell' from PROJECT's root."
(let ((projectile-switch-project-action 'projectile-run-shell)) (let ((projectile-switch-project-action
(lambda ()
(projectile-run-shell ivy-current-prefix-arg))))
(counsel-projectile-switch-project-by-name project))) (counsel-projectile-switch-project-by-name project)))
(defun counsel-projectile-switch-project-action-run-eshell (project) (defun counsel-projectile-switch-project-action-run-eshell (project)
"Invoke `eshell' from PROJECT's root." "Invoke `eshell' from PROJECT's root."
(let ((projectile-switch-project-action 'projectile-run-eshell)) (let ((projectile-switch-project-action
(lambda ()
(projectile-run-eshell ivy-current-prefix-arg))))
(counsel-projectile-switch-project-by-name project))) (counsel-projectile-switch-project-by-name project)))
(defun counsel-projectile-switch-project-action-run-term (project) (defun counsel-projectile-switch-project-action-run-term (project)
"Invoke `term' from PROJECT's root." "Invoke `term' from PROJECT's root."
(let ((projectile-switch-project-action (let ((projectile-switch-project-action
(lambda () (lambda ()
(projectile-run-term nil)))) (projectile-run-term ivy-current-prefix-arg))))
(counsel-projectile-switch-project-by-name project))) (counsel-projectile-switch-project-by-name project)))
(defun counsel-projectile-switch-project-action-run-vterm (project) (defun counsel-projectile-switch-project-action-run-vterm (project)
"Invoke `vterm' from PROJECT's root." "Invoke `vterm' from PROJECT's root."
(let ((projectile-switch-project-action 'projectile-run-vterm)) (let ((projectile-switch-project-action
(lambda ()
(projectile-run-vterm ivy-current-prefix-arg))))
(counsel-projectile-switch-project-by-name project))) (counsel-projectile-switch-project-by-name project)))
(defun counsel-projectile-switch-project-action-grep (project) (defun counsel-projectile-switch-project-action-grep (project)