diff options
| -rw-r--r-- | lisp/init-projectile.el | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/lisp/init-projectile.el b/lisp/init-projectile.el index ec311e6..c70240e 100644 --- a/lisp/init-projectile.el +++ b/lisp/init-projectile.el @@ -6,31 +6,6 @@ projectile-find-dir-includes-top-level t projectile-use-git-grep t) -;; Default binding is D. -(def-projectile-commander-method ?r - "Open project root in dired." - (projectile-dired)) - -(def-projectile-commander-method ?c - "Run project compilation command." - (call-interactively 'projectile-compile-project)) - -(def-projectile-commander-method ?F - "Find project file in other window." - (call-interactively 'projectile-find-file-other-window)) - -(def-projectile-commander-method ?B - "Find project buffer in other window." - (call-interactively 'projectile-switch-to-buffer-other-window)) - -(def-projectile-commander-method ?D - "Find a project directory in other window." - (call-interactively 'projectile-find-dir-other-window)) - -(def-projectile-commander-method ?O - "Display a project buffer in other window." - (call-interactively 'projectile-display-buffer)) - (defun km/projectile-switch-project-to-file () "Provide access to the of default `projectile-find-file'. @@ -47,9 +22,6 @@ I have set `projectile-switch-project-action' to (let ((default-directory (projectile-project-root))) (km/open-external-terminal))) -(define-key projectile-mode-map (kbd "C-c p j") - 'km/projectile-switch-project-to-file) - (defun km/dired-copy-project-filename-as-kill () "Copy names of marked project files into kill ring. This is similar to `dired-copy-filename-as-kill', but the leading @@ -69,6 +41,31 @@ path is always relative to `projectile-project-root'." (after 'dired (define-key dired-mode-map "W" 'km/dired-copy-project-filename-as-kill)) +;; Default binding is D. +(def-projectile-commander-method ?r + "Open project root in dired." + (projectile-dired)) + +(def-projectile-commander-method ?D + "Find a project directory in other window." + (call-interactively 'projectile-find-dir-other-window)) + +(def-projectile-commander-method ?c + "Run project compilation command." + (call-interactively 'projectile-compile-project)) + +(def-projectile-commander-method ?F + "Find project file in other window." + (call-interactively 'projectile-find-file-other-window)) + +(def-projectile-commander-method ?B + "Find project buffer in other window." + (call-interactively 'projectile-switch-to-buffer-other-window)) + +(def-projectile-commander-method ?O + "Display a project buffer in other window." + (call-interactively 'projectile-display-buffer)) + (key-chord-define-global ";s" 'projectile-switch-project) (key-chord-define-global ";f" 'projectile-find-file) (key-chord-define-global ";d" 'projectile-find-dir) @@ -78,6 +75,9 @@ path is always relative to `projectile-project-root'." (key-chord-define-global ";r" 'projectile-recentf) (key-chord-define-global ";c" 'projectile-commander) +(define-key projectile-mode-map (kbd "C-c p j") + 'km/projectile-switch-project-to-file) + (define-prefix-command 'projectile-ctl-x-4-map) (define-key ctl-x-4-map "p" 'projectile-ctl-x-4-map) |