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

Fall back to perspective name for finding project root

This commit is contained in:
David Morgan 2021-09-18 15:32:09 +01:00
parent dddd349714
commit f785ddb846
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -282,8 +282,10 @@ DEFS is a plist associating completion categories to commands."
(setq consult-project-root-function
(lambda ()
(when-let (project (project-current))
(project-root project))))
(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)))))))
;; 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