From f785ddb8468e77f17f178f5a687684702feb8529 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Sat, 18 Sep 2021 15:32:09 +0100 Subject: [PATCH] Fall back to perspective name for finding project root --- .emacs.d/lisp/init-minibuffer.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index fcad4fa..90cb79b 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -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