18 lines
678 B
EmacsLisp
18 lines
678 B
EmacsLisp
(setq project-roots
|
|
`(("Django project"
|
|
:root-contains-files ("manage.py")
|
|
:filename-regex ,(regexify-ext-list '(py html css js sh))
|
|
:exclude-paths '("contrib"))))
|
|
|
|
(global-set-key (kbd "C-c p f") 'project-root-find-file)
|
|
(global-set-key (kbd "C-c p g") 'project-root-grep)
|
|
(global-set-key (kbd "C-c p a") 'project-root-ack)
|
|
(global-set-key (kbd "C-c p d") 'project-root-goto-root)
|
|
(global-set-key (kbd "C-c p l") 'project-root-browse-seen-projects)
|
|
|
|
(global-set-key (kbd "C-c p s")
|
|
(lambda () (interactive)
|
|
(with-project-root
|
|
(ansi-term (getenv "SHELL")
|
|
(concat (car project-details) "-shell")))
|