From f061ae88e2bc6b09176e8e31fc9337070a29d0be Mon Sep 17 00:00:00 2001 From: Eric Danan Date: Tue, 12 Dec 2017 21:12:12 +0100 Subject: [PATCH] cp-switch-project: add actions to compile / configure project --- counsel-projectile.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/counsel-projectile.el b/counsel-projectile.el index 8027847..fa263e2 100644 --- a/counsel-projectile.el +++ b/counsel-projectile.el @@ -729,6 +729,10 @@ candidates list of `counsel-projectile-switch-project'." "kill all project buffers") ("K" counsel-projectile-switch-project-action-remove-known-project "remove project from known projects") + ("c" counsel-projectile-switch-project-action-compile + "run project compilation command") + ("C" counsel-projectile-switch-project-action-configure + "run project configure command") ("E" counsel-projectile-switch-project-action-edit-dir-locals "edit project dir-locals") ("v" counsel-projectile-switch-project-action-vc @@ -832,6 +836,20 @@ action." (delete project ivy--all-candidates)) (ivy--reset-state ivy-last)) +(defun counsel-projectile-switch-project-action-compile (project) + "Run PROJECT compliation command." + (let ((projectile-switch-project-action + (lambda () + (projectile-compile-project ivy-current-prefix-arg)))) + (counsel-projectile-switch-project-by-name project))) + +(defun counsel-projectile-switch-project-action-configure (project) + "Run PROJECT configure command." + (let ((projectile-switch-project-action + (lambda () + (projectile-configure-project ivy-current-prefix-arg)))) + (counsel-projectile-switch-project-by-name project))) + (defun counsel-projectile-switch-project-action-edit-dir-locals (project) "Edit PROJECT's dir-locals." (let ((projectile-switch-project-action 'projectile-edit-dir-locals))