diff options
| author | Guangxiong Lin <[email protected]> | 2022-03-19 22:07:30 +0800 |
|---|---|---|
| committer | Guangxiong Lin <[email protected]> | 2022-03-19 22:07:30 +0800 |
| commit | 1f5be956ef77ebaaf425bc7a4de5a49f5a8e63ca (patch) | |
| tree | bdddedb04fb5e9e2815d504eaec174ab1a19e3a5 /.emacs.d/lisp/init-minibuffer.el | |
| parent | e0a16decc8972e8dbe3b9cb54fb950e682c4a3fa (diff) | |
| download | dotfiles-1f5be956ef77ebaaf425bc7a4de5a49f5a8e63ca.tar.gz dotfiles-1f5be956ef77ebaaf425bc7a4de5a49f5a8e63ca.tar.bz2 dotfiles-1f5be956ef77ebaaf425bc7a4de5a49f5a8e63ca.zip | |
Improve minibuffer related commands (emacs)
Diffstat (limited to '.emacs.d/lisp/init-minibuffer.el')
| -rw-r--r-- | .emacs.d/lisp/init-minibuffer.el | 46 |
1 files changed, 45 insertions, 1 deletions
diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index a0a5c98..83a2498 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -1,3 +1,5 @@ +;; -*- lexical-binding: t -*- + (gx/maybe-require-package 'consult) (when (gx/maybe-require-package 'vertico) @@ -8,6 +10,22 @@ vertico-cycle t) (when (gx/maybe-require-package 'orderless) + (setq orderless-matching-styles '(orderless-literal orderless-regexp)) + + (defun gx/orderless-without-if-bang (pattern _index _total) + (cond + ((equal "!" pattern) + '(orderless-literal . "")) + ((string-prefix-p "!" pattern) + `(orderless-without-literal . ,(substring pattern 1))))) + + (defun gx/orderless-flex-if-twiddle (pattern _index _total) + (when (string-suffix-p "~" pattern) + `(orderless-flex . ,(substring pattern 0 -1)))) + + (setq orderless-style-dispatchers '(gx/orderless-without-if-bang + gx/orderless-flex-if-twiddle)) + (defun gx/setup-completion-in-minibuffer () (setq-local completion-styles '(substring orderless) completion-category-defaults nil @@ -21,10 +39,36 @@ (kbd "<leader>fm") 'consult-recent-file (kbd "<leader>fc") 'execute-extended-command (kbd "<leader>fl") 'consult-line - (kbd "<leader>fs") 'consult-imenu) + (kbd "<leader>fs") 'consult-imenu + (kbd "<leader>fa") 'consult-org-agenda) (evil-define-key 'normal 'eglot--managed-mode (kbd "<leader>fS") 'consult-eglot-symbols))) +(when (executable-find "rg") + (setq affe-grep-command + "rg --null --line-buffered --color=never --max-columns=1000 \ +--path-separator / -v ^$ \ +--smart-case --no-heading --line-number --hidden --glob !.git .")) + +(when (executable-find "fd") + (setq affe-find-command + "fd --type f --hidden --follow --exclude .git")) + +(when (gx/maybe-require-package 'affe) + (with-eval-after-load 'evil + (evil-define-key 'normal 'global + (kbd "<leader>ff") 'affe-find + (kbd "<leader>fr") 'affe-grep)) + (with-eval-after-load 'orderless + (defun gx/affe-orderless-regexp-compiler (input _type _ignorecase) + (setq input (orderless-pattern-compiler input)) + (cons input (lambda (str) (orderless--highlight input str)))) + (setq affe-regexp-compiler #'gx/affe-orderless-regexp-compiler)) + (with-eval-after-load 'consult + (consult-customize + affe-grep affe-find + :preview-key (kbd "C-c C-p")))) + (setq consult-preview-key (kbd "C-c C-p")) (when (gx/maybe-require-package 'savehist) |