lisp/init-project.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

(defun project-git-grep ()
  (interactive)
  (vc-git-grep-root (project-root (project-current t))))

(use-package project
  :ensure t
  :init
  ;; commands to show when switching projects
  (setq project-switch-commands '((?f "Find file" project-find-file)
                                  (?d "Dired" project-dired)
                                  (?g "Grep" project-git-grep)
                                  (?m "Magit" magit-status)))

  :bind (;; C-x f finds file in project
         ("C-x f" . project-find-file)
         ;; C-c p switches project
         ("C-c p" . project-switch-project)
         ;; C-c m compiles project
         ("C-c m" . project-compile)))

(provide 'init-project)