emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

selectrum: update bindings

Browse source
This commit is contained in:
Itai Y. Efrat 2021-04-29 12:32:04 +03:00
parent a3c978ba36
commit b9e34835c7
3 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/completion/selectrum/config.el
View file

@ -13,7 +13,10 @@
selectrum-max-window-height 17) selectrum-max-window-height 17)
(defadvice! +selectrum-refresh-on-cycle (&rest _) (defadvice! +selectrum-refresh-on-cycle (&rest _)
:after 'marginalia-cycle :after 'marginalia-cycle
(when (bound-and-true-p selectrum-mode) (selectrum-exhibit)))) (when (bound-and-true-p selectrum-mode) (selectrum-exhibit)))
(map! :map selectrum-minibuffer-map
"C-o" #'embark-act
"C-c C-o" #'embark-export))
(use-package! selectrum-prescient (use-package! selectrum-prescient
:when (featurep! +prescient) :when (featurep! +prescient)
@ -70,7 +73,8 @@
[remap switch-to-buffer] #'consult-buffer [remap switch-to-buffer] #'consult-buffer
[remap switch-to-buffer-other-window] #'consult-buffer-other-window [remap switch-to-buffer-other-window] #'consult-buffer-other-window
[remap switch-to-buffer-other-frame] #'consult-buffer-other-frame [remap switch-to-buffer-other-frame] #'consult-buffer-other-frame
[remap yank-pop] #'consult-yank-pop) [remap yank-pop] #'consult-yank-pop
[remap describe-bindings] #'embark-bindings)
:config :config
(recentf-mode) (recentf-mode)
(setq consult-project-root-function #'doom-project-root) (setq consult-project-root-function #'doom-project-root)
@ -101,6 +105,13 @@
#'which-key--hide-popup-ignore-command) #'which-key--hide-popup-ignore-command)
embark-become-indicator embark-action-indicator) embark-become-indicator embark-action-indicator)
:config :config
(map!
:map embark-file-map
:desc "Open Dired on target" "j" #'ffap-dired
:desc "Open target with sudo" "s" #'sudo-edit
:desc "Open target with vlf" "l" #'vlf
:map embark-file-map
:desc "Cycle marginalia views" "A" #'marginalia-cycle )
(let ((embark-quit-after-action nil)) (let ((embark-quit-after-action nil))
(map! :map minibuffer-local-map "C-SPC" #'embark-default-action))) (map! :map minibuffer-local-map "C-SPC" #'embark-default-action)))

2
modules/config/default/+emacs-bindings.el
View file

@ -452,6 +452,8 @@
(:when (featurep! :completion helm) (:when (featurep! :completion helm)
"C-S-s" #'swiper-helm "C-S-s" #'swiper-helm
"C-S-r" #'helm-resume) "C-S-r" #'helm-resume)
(:when (featurep! :completion selectrum)
"C-S-r" #'selectrum-repeat)
;;; objed ;;; objed
(:when (featurep! :editor objed +manual) (:when (featurep! :editor objed +manual)

14
modules/config/default/+evil-bindings.el
View file

@ -204,7 +204,6 @@
(:when (featurep! :completion selectrum) (:when (featurep! :completion selectrum)
(:after selectrum (:after selectrum
"C-s-r" #'selectrum-repeat
:map selectrum-minibuffer-map :map selectrum-minibuffer-map
"M-RET" #'selectrum-submit-exact-input "M-RET" #'selectrum-submit-exact-input
"C-j" #'selectrum-next-candidate "C-j" #'selectrum-next-candidate
@ -212,18 +211,7 @@
"C-s-j" #'selectrum-goto-end "C-s-j" #'selectrum-goto-end
"C-k" #'selectrum-previous-candidate "C-k" #'selectrum-previous-candidate
"C-S-k" #'selectrum-previous-page "C-S-k" #'selectrum-previous-page
"C-s-k" #'selectrum-goto-beginning) "C-s-k" #'selectrum-goto-beginning)))
(:after embark
"C-o" #'embark-act
:map minibuffer-local-completion-map
"C-c C-o" #'embark-export
"C-c C-c" #'embark-act-noexit
:map embark-file-map
:desc "Open Dired on target" "j" #'ffap-dired
:desc "Open target with sudo" "s" #'sudo-edit
:desc "Open target with vlf" "l" #'vlf
:map embark-file-map
:desc "Cycle marginalia views" "A" #'marginalia-cycle)))
;;; :ui ;;; :ui
(map! (:when (featurep! :ui popup) (map! (:when (featurep! :ui popup)