Move from Ivy to Consult+Vertico+Orderless
This commit is contained in:
parent
86eee97bd1
commit
4adf6f702d
@ -88,6 +88,15 @@
|
||||
#+begin_src emacs-lisp
|
||||
(use-package emacs
|
||||
:ensure nil
|
||||
:init
|
||||
(defun crm-indicator (args)
|
||||
(cons (format "[CRM%s] %s"
|
||||
(replace-regexp-in-string
|
||||
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\" ""
|
||||
crm-separator)
|
||||
(car args))
|
||||
(cdr args)))
|
||||
(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
|
||||
:custom
|
||||
(user-full-name "Gergely Polonkai")
|
||||
(user-mail-address "gergely@polonkai.eu")
|
||||
@ -110,7 +119,11 @@
|
||||
(8250 8249) ; ›‹
|
||||
(171 187) ; «»
|
||||
(187 171))) ; »«
|
||||
(initial-scratch-message ""))
|
||||
(initial-scratch-message "")
|
||||
(minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt))
|
||||
(enable-recursive-minibuffers t)
|
||||
:hook
|
||||
(minibuffer-setup . cursor-intangible-mode))
|
||||
#+end_src
|
||||
|
||||
** Set up some default faces
|
||||
@ -2357,6 +2370,15 @@ For all your spell-checking needs.
|
||||
(text-mode . flyspell-mode))
|
||||
#+END_SRC
|
||||
|
||||
*** FlySpell with Ace
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ace-flyspell
|
||||
:bind
|
||||
(:map flyspell-mode-map
|
||||
("C-M-i" . ace-flyspell-correct-word)))
|
||||
#+end_src
|
||||
|
||||
** Delete all the whitespace
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
@ -2577,7 +2599,7 @@ accompanying function will be added to ~mu4e-view-mode-hook~.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package mu4e
|
||||
:after ivy
|
||||
:after vertico
|
||||
:ensure nil
|
||||
:config
|
||||
(require 'org-mu4e)
|
||||
@ -2634,7 +2656,7 @@ accompanying function will be added to ~mu4e-view-mode-hook~.
|
||||
(message-sendmail-extra-arguments . ("--account=private" "--read-envelope-from")))))
|
||||
org-mu4e-link-query-in-headers-mode nil)
|
||||
:custom
|
||||
(mu4e-completing-read-function 'ivy-completing-read)
|
||||
(mu4e-completing-read-function vertico-completing-read)
|
||||
(mu4e-context-policy 'pick-first)
|
||||
(mu4e-confirm-quit nil)
|
||||
(mail-user-agent 'sendmail-user-agent)
|
||||
@ -2823,7 +2845,24 @@ I don’t always use the package menu, but when i do, i want to do it in style
|
||||
:global-prefix "S-SPC")
|
||||
(rune/leader-keys
|
||||
"t" '(:ignore t :which-key "toggles")
|
||||
"tt" '(counsel-load-theme :which-key "choose theme")))
|
||||
"tt" '(consult-theme :which-key "choose theme")))
|
||||
#+end_src
|
||||
|
||||
** BibTex
|
||||
|
||||
First, set up ~bibtex-completion~:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package bibtex-completion
|
||||
:after
|
||||
org
|
||||
:custom
|
||||
(bibtex-completion-bibliography (expand-file-name "references.bib" org-directory))
|
||||
(bibtex-completion-library-path (expand-file-name "bibtex-pdfs" org-directory))
|
||||
(bibtex-completion-pdf-open-function 'org-open-file)
|
||||
(bibtex-completion-notes-path (expand-file-name
|
||||
(convert-standard-filename "bibliography/bibtex-notes")
|
||||
org-directory)))
|
||||
#+end_src
|
||||
|
||||
* Dired related packages
|
||||
@ -3601,121 +3640,153 @@ See previous versions of the current file.
|
||||
(require 'company-web-html))
|
||||
#+END_SRC
|
||||
|
||||
* Ivy & Co.
|
||||
* Consult, Vertico, Orderless
|
||||
|
||||
** Ivy & Counsel
|
||||
The new completing system!
|
||||
|
||||
** Vertico
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ivy
|
||||
:config
|
||||
(ivy-mode 1)
|
||||
:custom
|
||||
(ivy-use-virtual-buffers t)
|
||||
(ivy-count-format "(%d/%d) ")
|
||||
(ivy-use-selectable-prompt t))
|
||||
(use-package counsel
|
||||
:config
|
||||
(counsel-mode)
|
||||
:bind
|
||||
(:map company-mode-map
|
||||
("C-c j" . counsel-company)
|
||||
:map company-active-map
|
||||
("C-c j" . counsel-company))
|
||||
:custom
|
||||
(counsel-find-file-ignore-regexp "\\(?:\\`\\|[/\\]\\)\\(?:[#.]\\)"))
|
||||
(use-package vertico
|
||||
:init
|
||||
(vertico-mode))
|
||||
#+end_src
|
||||
|
||||
** GNU Globals with Counsel
|
||||
** Consult
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(defun gpolonkai/enable-counsel-gtags-mode ()
|
||||
(counsel-gtags-mode t))
|
||||
|
||||
(use-package counsel-gtags
|
||||
:custom
|
||||
(counsel-gtags-auto-update t)
|
||||
(counsel-gtags-path-style 'relative)
|
||||
(use-package consult
|
||||
:bind (:map global-map
|
||||
([remap Info-search] . consult-info)
|
||||
("M-y" . consult-yank-pop)
|
||||
:map mode-specific-map
|
||||
("M-x" . consult-mode-command)
|
||||
("h" . consult-history)
|
||||
("k" . consult-kmacro)
|
||||
("m" . consult-man)
|
||||
("i" . consult-info)
|
||||
:map ctl-x-map
|
||||
("M-:" . consult-complex-command)
|
||||
("b" . consult-buffer)
|
||||
("4 b" . consult-buffer-other-window)
|
||||
("5 b" . consult-buffer-other-frame)
|
||||
("r b" . consult-bookmark)
|
||||
("x b" . consult-project-buffer)
|
||||
:map goto-map
|
||||
("e" . consult-compile-error)
|
||||
("f" . consult-flymake)
|
||||
("g" . consult-goto-line)
|
||||
("M-g" . consult-goto-line)
|
||||
("o" . consult-org-heading)
|
||||
("m" . consult-mark)
|
||||
("k" . consult-global-mark)
|
||||
("i" . consult-imenu)
|
||||
("I" . consult-imenu-multi)
|
||||
:map search-map
|
||||
("d" . consult-find)
|
||||
("D" . consult-locate)
|
||||
("g" . consult-grep)
|
||||
("G" . consult-git-grep)
|
||||
("r" . consult-ripgrep)
|
||||
("l" . consult-line)
|
||||
("L" . consult-line-multi)
|
||||
("k" . consult-keep-lines)
|
||||
("u" . consilt-focus-lines)
|
||||
("e" . consult-isearch-history)
|
||||
:map isearch-mode-map
|
||||
("M-e" . consult-isearch-history)
|
||||
:map minibuffer-local-map
|
||||
("M-s" . consult-history)
|
||||
("M-r" . consult-history))
|
||||
:hook
|
||||
(c-mode . gpolonkai/enable-counsel-gtags-mode)
|
||||
:bind
|
||||
(:map counsel-gtags-mode-map
|
||||
("M-t" . counsel-gtags-find-definition)
|
||||
("M-r" . counsel-gtags-find-reference)
|
||||
("M-s" . counsel-gtags-find-symbol)
|
||||
("C-c <" . counsel-gtags-go-backward)
|
||||
("C-c >" . counsel-gtags-go-forward)))
|
||||
#+end_src
|
||||
|
||||
** Ag with Counsel
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package counsel-ag-popup
|
||||
:bind
|
||||
(:map gpolonkai/pers-map
|
||||
("s" . counsel-ag-popup)))
|
||||
#+end_src
|
||||
|
||||
** Projectile with Counsel
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package counsel-projectile
|
||||
(completion-list-mode . consult-preview-at-point-mode)
|
||||
:custom
|
||||
(projectile-completion-system 'ivy)
|
||||
(consult-narrow-key "<")
|
||||
(consult-project-function (lambda (_) (projectile-project-root)))
|
||||
(register-preview-delay 0.5)
|
||||
(xref-show-xrefs-function #'consult-xref)
|
||||
(xref-show-definitions-function #'consult-xref)
|
||||
:init
|
||||
(setq register-preview-function #'consult-register-format)
|
||||
(advice-add #'register-preview :override #'consult-register-window)
|
||||
:config
|
||||
(counsel-projectile-mode))
|
||||
(defalias 'consult-line-thing-at-point 'consult-line)
|
||||
(consult-customize
|
||||
consult-theme :preview-key '(:debounce 0.2 any)
|
||||
consult-buffer :preview-key "M-."
|
||||
consult-line-thing-at-point :initial (thing-at-point 'symbol)
|
||||
consult-ripgrep
|
||||
consult-git-grep
|
||||
consult-grep
|
||||
consult-bookmark
|
||||
consult-recent-file
|
||||
consult-xref
|
||||
consult--source-bookmark
|
||||
consult--source-file-register
|
||||
consult--source-recent-file
|
||||
consult--source-project-recent-file
|
||||
:preview-key '(:debounce 0.4 any))
|
||||
(autoload 'projectile-project-root "projectile"))
|
||||
#+end_src
|
||||
|
||||
** FlySpell with Ace
|
||||
** Orderless
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ace-flyspell
|
||||
:bind
|
||||
(:map flyspell-mode-map
|
||||
("C-M-i" . ace-flyspell-correct-word)))
|
||||
(use-package orderless
|
||||
:init
|
||||
(setq completion-category-defaults nil)
|
||||
:custom
|
||||
(completion-styles '(orderless basic))
|
||||
(completion-category-overrides '((file (styles basic partial-completion)))))
|
||||
#+end_src
|
||||
|
||||
** C Yasnippets with Ivy
|
||||
** Marginalia
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ivy-yasnippet
|
||||
(use-package marginalia
|
||||
:bind (:map minibuffer-local-map
|
||||
("M-A" . marginalia-cycle))
|
||||
:init
|
||||
(marginalia-mode))
|
||||
#+end_src
|
||||
|
||||
** Embark
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package embark
|
||||
:bind (:map global-map
|
||||
("C-." . embark-act))
|
||||
:config
|
||||
(add-to-list 'display-buffer-alist
|
||||
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
|
||||
nil
|
||||
(window-parameters (mode-line-format . none)))))
|
||||
|
||||
(use-package embark-consult
|
||||
:hook
|
||||
(embark-collect-mode . consult-preview-at-point-mode))
|
||||
#+end_src
|
||||
|
||||
** Ag with Consult
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package consult-ag)
|
||||
#+end_src
|
||||
|
||||
** Projectile with Consult
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package consult-projectile)
|
||||
#+end_src
|
||||
|
||||
** Yasnippets with Consult
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package consult-yasnippet
|
||||
:after
|
||||
yasnippet
|
||||
:bind
|
||||
(("C-c y" . ivy-yasnippet)))
|
||||
#+end_src
|
||||
|
||||
** PyDoc with Counsel
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package counsel-pydoc)
|
||||
#+end_src
|
||||
|
||||
** BibTex with Ivy
|
||||
|
||||
First, set up ~bibtex-completion~:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package bibtex-completion
|
||||
:after
|
||||
org
|
||||
:custom
|
||||
(bibtex-completion-bibliography (expand-file-name "references.bib" org-directory))
|
||||
(bibtex-completion-library-path (expand-file-name "bibtex-pdfs" org-directory))
|
||||
(bibtex-completion-pdf-open-function 'org-open-file)
|
||||
(bibtex-completion-notes-path (expand-file-name
|
||||
(convert-standard-filename "bibliography/ivy-bibtex-notes")
|
||||
org-directory)))
|
||||
#+end_src
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ivy-bibtex
|
||||
:after bibtex-completion)
|
||||
#+end_src
|
||||
|
||||
** Access passwords in pass using Ivy
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ivy-pass)
|
||||
(("C-c y" . consult-yasnippet)))
|
||||
#+end_src
|
||||
|
||||
* Mode specific ~use-package~ calls
|
||||
@ -4068,7 +4139,7 @@ With the new Transient package it will be easier. I just don’t know how to us
|
||||
("C-e" . gpolonkai/move-to-end-of-line)
|
||||
("M-q" . sachachua/fill-or-unfill-paragraph)
|
||||
("C-c r" . round-number-at-point-to-decimals)
|
||||
("C-s" . swiper)
|
||||
("C-s" . consult-line)
|
||||
("C-r" . gpolonkai/isearch-regexp)
|
||||
("C-M-s" . isearch-forward)
|
||||
("C-M-r" . isearch-backward)
|
||||
@ -4086,8 +4157,6 @@ With the new Transient package it will be easier. I just don’t know how to us
|
||||
("M-k" . gpolonkai/undo-buffer-kill)
|
||||
("C-b" . bury-buffer)
|
||||
("/" . repeat)
|
||||
("C-f" . counsel-find-file)
|
||||
("b" . counsel-switch-buffer)
|
||||
:map isearch-mode-map
|
||||
("<C-return>" . isearch-exit-other-end)
|
||||
("<S-return>" . isearch-exit-mark-match)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user