Update for consult changes

This commit is contained in:
David Morgan 2021-12-22 13:00:48 +00:00
parent 0baa06d84c
commit 1906a446f8
1 changed files with 5 additions and 5 deletions

View File

@ -161,8 +161,8 @@ DEFS is a plist associating completion categories to commands."
("M-g i" . consult-imenu) ("M-g i" . consult-imenu)
("M-g I" . consult-imenu-multi) ("M-g I" . consult-imenu-multi)
:map isearch-mode-map :map isearch-mode-map
("M-e" . consult-isearch) ;; orig. isearch-edit-string ("M-e" . consult-isearch-history) ;; orig. isearch-edit-string
("M-s e" . consult-isearch) ;; orig. isearch-edit-string ("M-s e" . consult-isearch-history) ;; orig. isearch-edit-string
("M-s l" . consult-line) ;; needed by consult-line to detect isearch ("M-s l" . consult-line) ;; needed by consult-line to detect isearch
(:map vertico-map (:map vertico-map
;; These are used for previewing with some consult commands (see consult-customize call below) ;; These are used for previewing with some consult commands (see consult-customize call below)
@ -323,7 +323,7 @@ DEFS is a plist associating completion categories to commands."
;; Copy of consult--source-project-file to use with perspective narrowing (identical except for narrowing key) ;; 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 ;; Put before consult--source-project-file so we get recentf behaviour here
(defvar consult--source-perspective-files (defvar consult--source-perspective-files
(plist-put (plist-put (copy-sequence consult--source-project-file) (plist-put (plist-put (copy-sequence consult--source-project-recent-file)
:name "Project File") :name "Project File")
:narrow '(?x . "Perspective"))) :narrow '(?x . "Perspective")))
(add-to-list 'consult-buffer-sources 'consult--source-perspective-files t) (add-to-list 'consult-buffer-sources 'consult--source-perspective-files t)
@ -337,11 +337,11 @@ DEFS is a plist associating completion categories to commands."
:hidden nil) :hidden nil)
:narrow '(?b . "Buffer"))) :narrow '(?b . "Buffer")))
(defvar consult--project-source-project-file-recentf (defvar consult--project-source-project-file-recentf
(plist-put (plist-put (copy-sequence consult--source-project-file) (plist-put (plist-put (copy-sequence consult--source-project-recent-file)
:hidden nil) :hidden nil)
:narrow '(?f . "File (Recentf)"))) :narrow '(?f . "File (Recentf)")))
(defvar consult--project-source-project-file-all (defvar consult--project-source-project-file-all
(plist-put (plist-put (copy-sequence consult--source-project-file) (plist-put (plist-put (copy-sequence consult--source-project-recent-file)
:narrow '(?a . "File (All)")) :narrow '(?a . "File (All)"))
:items '(lambda () :items '(lambda ()
(when (eq 0 (call-process-shell-command "fd")) (when (eq 0 (call-process-shell-command "fd"))