Add some commands to embark keymaps

This commit is contained in:
David Morgan 2022-10-05 20:06:50 +01:00
parent 4e6a993aa9
commit 515f4b6278
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 8 additions and 1 deletions

View File

@ -424,7 +424,10 @@ DEFS is a plist associating completion categories to commands."
("C-h b" . embark-bindings) ("C-h b" . embark-bindings)
("C-h B" . describe-bindings) ("C-h B" . describe-bindings)
(:map minibuffer-local-map (:map minibuffer-local-map
("M-." . embark-preview))) ("M-." . embark-preview))
(:map embark-become-file+buffer-map
("e" . consult-project-extra-find)
("E" . project-switch-consult-project-extra-find)))
:init :init
(setq prefix-help-command #'embark-prefix-help-command) (setq prefix-help-command #'embark-prefix-help-command)
:config :config
@ -446,6 +449,10 @@ DEFS is a plist associating completion categories to commands."
:demand t ; only necessary if you have the hook below :demand t ; only necessary if you have the hook below
;; if you want to have consult previews as you move around an ;; if you want to have consult previews as you move around an
;; auto-updating embark collect buffer ;; auto-updating embark collect buffer
:bind
(:map embark-consult-async-search-map
("^" . consult-ripgrep-parent)
("R" . consult-ripgrep-unrestricted))
:hook :hook
(embark-collect-mode . consult-preview-at-point-mode)) (embark-collect-mode . consult-preview-at-point-mode))