diff options
Diffstat (limited to 'lisp/ravi-init-completion.el')
| -rw-r--r-- | lisp/ravi-init-completion.el | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/lisp/ravi-init-completion.el b/lisp/ravi-init-completion.el index 6adf270..a315f20 100644 --- a/lisp/ravi-init-completion.el +++ b/lisp/ravi-init-completion.el @@ -79,7 +79,7 @@ :config (marginalia-mode)) (use-package embark :if (member ravi/use-selection-system '(selectrum vertico)) - :after (sudo-edit vlf) + :after (sudo-edit vlf avy ace-window) :commands (embark-act) :bind (("H-t" . embark-act) :map @@ -140,7 +140,17 @@ (add-to-list 'display-buffer-alist '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*" nil - (window-parameters (mode-line-format . none))))) + (window-parameters (mode-line-format . none)))) + + ;; Integrate embark with avy + (defun avy-action-embark (pt) + (unwind-protect + (save-excursion + (goto-char pt) + (embark-act)) + (select-window (cdr (ring-ref avy-ring 0)))) + t) + (setf (alist-get ?E avy-dispatch-alist) 'avy-action-embark)) (use-package consult :if (member ravi/use-selection-system '(selectrum vertico)) @@ -324,6 +334,7 @@ (use-package dash-docs :if (member ravi/use-selection-system '(selectrum vertico)) + :after (avy) :bind (("M-s d" . 'ravi/dash) ("M-s D" . 'ravi/dash-at-point)) :config @@ -398,6 +409,14 @@ INITIAL will be used as the initial input, if given." (ravi/dash--browse-matching-result result) (add-to-list 'ravi/dash-history-input sym-only)) (user-error "No symbol at point or documentation not found"))) + + (defun avy-action-dash-at-point (pt) + (save-excursion + (goto-char pt) + (ravi/dash-at-point)) + (select-window (cdr (ring-ref avy-ring 0))) + t) + (setf (alist-get ?D avy-dispatch-alist) 'avy-action-dash-at-point) ) (use-package consult-dir |