From 1f374307bbf30ede855bb2a8adee5403ba2f913e Mon Sep 17 00:00:00 2001 From: Eric Danan Date: Thu, 15 Sep 2016 08:58:09 +0200 Subject: [PATCH] add counsel-projectile-map --- counsel-projectile.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/counsel-projectile.el b/counsel-projectile.el index dea31c5..8fae82c 100644 --- a/counsel-projectile.el +++ b/counsel-projectile.el @@ -39,6 +39,20 @@ (require 'counsel) (require 'projectile) +;;; counsel-projectile-map + +(defun counsel-projectile-drop-to-switch-project () + "For use in minibuffer maps. Quit and call `counsel-projectile-switch-project'." + (interactive) + (ivy-quit-and-run + (counsel-projectile-switch-project))) + +(defvar counsel-projectile-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "M-SPC") 'counsel-projectile-drop-to-switch-project) + map) + "Keymap used in the minibuffer.") + ;;; counsel-projectile-find-file ;;;###autoload @@ -54,6 +68,7 @@ With a prefix ARG invalidates the cache first." :action (lambda (x) (find-file (projectile-expand-root x))) :require-match t + :keymap counsel-projectile-map :caller 'counsel-projectile-find-file) (run-hooks 'projectile-find-file-hook)) @@ -79,6 +94,7 @@ With a prefix ARG invalidates the cache first." :action (lambda (x) (dired (projectile-expand-root x))) :require-match t + :keymap counsel-projectile-map :caller 'counsel-projectile-find-dir) (run-hooks 'projectile-find-dir-hook)) @@ -145,6 +161,7 @@ If optional argument VIRTUAL is non-nil, add project files as virtual buffers." :matcher #'ivy--switch-buffer-matcher :action #'counsel-projectile--switch-buffer-action :require-match t + :keymap counsel-projectile-map :caller 'counsel-projectile-switch-to-buffer)) (ivy-set-actions