diff options
| author | Case Duckworth | 2021-08-11 22:06:11 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-11 22:06:11 -0500 |
| commit | b5e070b137fd61cc66278635a3da0b31e6c4ebea (patch) | |
| tree | f304d3f5e1ed4aa5f67e81c0428a898ec52ac9c2 | |
| parent | Use Orderless Regexp Compiler for consult (diff) | |
| download | emacs-b5e070b137fd61cc66278635a3da0b31e6c4ebea.tar.gz emacs-b5e070b137fd61cc66278635a3da0b31e6c4ebea.zip | |
Add vertico crm integration
I still don't know what crm is....
| -rw-r--r-- | init.el | 11 |
1 files changed, 10 insertions, 1 deletions
| diff --git a/init.el b/init.el index 9aa18a4..79fb0ff 100644 --- a/init.el +++ b/init.el | |||
| @@ -995,7 +995,16 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
| 995 | (defun crm-indicator (args) | 995 | (defun crm-indicator (args) |
| 996 | (cons (concat "[CRM] " (car args)) (cdr args))) | 996 | (cons (concat "[CRM] " (car args)) (cdr args))) |
| 997 | (:advise completing-read-multiple | 997 | (:advise completing-read-multiple |
| 998 | :filter-args #'crm-indicator))) | 998 | :filter-args #'crm-indicator)) |
| 999 | |||
| 1000 | (with-eval-after-load 'vertico | ||
| 1001 | (with-eval-after-load 'consult | ||
| 1002 | (define-key consult-crm-map "\r" #'+vertico-crm-exit) | ||
| 1003 | (define-key consult-crm-map "\t" #'vertico-exit) | ||
| 1004 | (defun +vertico-crm-exit () | ||
| 1005 | (interactive) | ||
| 1006 | (run-at-time 0 nil #'vertico-exit) | ||
| 1007 | (funcall #'vertico-exit))))) | ||
| 999 | 1008 | ||
| 1000 | (setup (:straight crux) | 1009 | (setup (:straight crux) |
| 1001 | 1010 | ||