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

Fix consult buffer sources/narrowing

This commit is contained in:
David Morgan 2021-09-07 19:24:48 +01:00
parent e1835dfcc3
commit 2b7769bb4a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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))