project: Set custom switch commands

1 files changed, 10 insertions, 1 deletions

diff --git a/lisp/init-project.el b/lisp/init-project.el
index 68d1956..2067a83 100644
--- a/lisp/init-project.el
+++ b/lisp/init-project.el
@@ -1,3 +1,7 @@
+(defun project-magit-status ()
+  (interactive)
+  (magit-status (project-root (project-current t))))
+
 (use-package project
   :ensure t
   :init
@@ -10,6 +14,11 @@
          ("C-c p" . project-switch-project)
          ;; C-c m compiles project
          ;; C-u C-c m will force reading command
-         ("C-c m" . project-compile)))
+         ("C-c m" . project-compile))
+
+  :config
+  (setq project-switch-commands '((?f "Find file" project-find-file)
+                                  (?d "Dired" project-dired)
+                                  (?m "Magit" project-magit-status))))
 
 (provide 'init-project)