djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add persp-current-project-root

This commit is contained in:
David Morgan 2021-10-05 08:07:10 +01:00
parent 96c97971ed
commit 8420a8cb9b
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.emacs.d/lisp/init-minibuffer.el
View File

@ -280,12 +280,7 @@ DEFS is a plist associating completion categories to commands."
(setq consult-narrow-key "<")
(setq consult-project-root-function
(lambda ()
(if-let (project (project-current))
(project-root project)
(when-let (persp (persp-name (persp-curr)))
(car (seq-filter (lambda (pr) (string-match-p persp pr)) (project-known-project-roots)))))))
(setq consult-project-root-function #'persp-current-project-root)
;; Switches perspective if we select a buffer from another perspective, but note that previewing
;; a buffer adds it to the current perspective, so preview should be disabled before removing

6
.emacs.d/lisp/init-project.el
View File

@ -84,6 +84,12 @@
(persp-buffers-in-mode (seq-filter mode-pred persp-buffers)))
(when (not (seq-empty-p persp-buffers-in-mode))
(switch-to-buffer (car persp-buffers-in-mode)))))
(defun persp-current-project-root ()
"Return the current project root, falling back to finding it using the perpsective"
(if-let (project (project-current))
(project-root project)
(when-let (persp (persp-name (persp-curr)))
(car (seq-filter (lambda (pr) (string-match-p persp pr)) (project-known-project-roots))))))
(defun switch-project (proj)
"Switch to project or already open project perspective."
(interactive (list (project-prompt-project-dir)))