Update for consult changes
This commit is contained in:
parent
0baa06d84c
commit
1906a446f8
|
@ -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"))
|
||||||
|
|
Loading…
Reference in New Issue