From 2b7769bb4a6a0afe2cab0c9064464eb58e645a00 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Tue, 7 Sep 2021 19:24:48 +0100 Subject: Fix consult buffer sources/narrowing --- .emacs.d/lisp/init-minibuffer.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index 4aa1f4c..541f249 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -295,7 +295,9 @@ ;; Copy of consult--source-project-file to use with perspective narrowing (identical except for narrowing key) ;; Put before consult--source-project-file so we get recentf behaviour here (defvar consult--source-perspective-files - (plist-put (copy-sequence consult--source-project-file) :narrow '(?x "Project Files"))) + (plist-put (plist-put (copy-sequence consult--source-project-file) + :name "Project File") + :narrow '(?x . "Perspective"))) (add-to-list 'consult-buffer-sources 'consult--source-perspective-files t) ;; Versions of consult--source-project-buffer and consult--source-project-file for use by consult-project-buffer @@ -304,11 +306,11 @@ (defvar consult--project-source-project-buffer (plist-put (plist-put (copy-sequence consult--source-project-buffer) :hidden nil) - :narrow '(?b . "Project Buffer"))) + :narrow '(?b . "Buffer"))) (defvar consult--project-source-project-file (plist-put (plist-put (plist-put (copy-sequence consult--source-project-file) :hidden nil) - :narrow '(?f . "Project File")) + :narrow '(?f . "File")) :items '(lambda () (when-let (root (consult--project-root)) (let ((len (length root)) -- cgit 1.4.1-2-gfad0