diff options
| author | David Morgan <djm_uk@protonmail.com> | 2021-09-07 19:24:48 +0100 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2021-09-07 19:24:48 +0100 |
| commit | 2b7769bb4a6a0afe2cab0c9064464eb58e645a00 (patch) | |
| tree | a919d51ccf3f30132e4200a7c1e4be374c165271 | |
| parent | e1835dfcc338ddadc2e2c327ec957afb9b508cfa (diff) | |
| download | dotfiles-2b7769bb4a6a0afe2cab0c9064464eb58e645a00.tar.gz | |
Fix consult buffer sources/narrowing
| -rw-r--r-- | .emacs.d/lisp/init-minibuffer.el | 8 |
1 files 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)) |