vertico: add consult buffer source for org buffers
This commit is contained in:
parent
f8a64c8767
commit
099f8510bb
2 changed files with 29 additions and 3 deletions
|
@ -85,8 +85,6 @@ Currently we only use =vertico-repeat=, and after the next bump I'll replace
|
||||||
~+vertico/backward-updir~ with the =vertico-directory= implementation. Do we
|
~+vertico/backward-updir~ with the =vertico-directory= implementation. Do we
|
||||||
want to use any other ones or leave that to users?
|
want to use any other ones or leave that to users?
|
||||||
** TODO Decide what to do with ~embark-package-map~
|
** TODO Decide what to do with ~embark-package-map~
|
||||||
** TODO =SPC b B= currently displays recent files and bookmarks by default
|
|
||||||
We can have it only display buffers by setting an initial narrowing
|
|
||||||
** TODO Company completion style
|
** TODO Company completion style
|
||||||
Currently we advise ~company-capf--candidates~ to try the default emacs
|
Currently we advise ~company-capf--candidates~ to try the default emacs
|
||||||
completion styles before orderless, since trying orderless first leads to a
|
completion styles before orderless, since trying orderless first leads to a
|
||||||
|
@ -94,6 +92,25 @@ bunch of junk candidates. We could let the company completion style here be a
|
||||||
variable for mildly easy customization, and we could also use orderless but use
|
variable for mildly easy customization, and we could also use orderless but use
|
||||||
a custom sorting function like ~vertico-sort-length-alpha~ which has decent
|
a custom sorting function like ~vertico-sort-length-alpha~ which has decent
|
||||||
results ([[https://github.com/hlissner/doom-emacs/pull/4664#discussion_r668897763][see here]]).
|
results ([[https://github.com/hlissner/doom-emacs/pull/4664#discussion_r668897763][see here]]).
|
||||||
|
** TODO ~consult-buffer~ considerations
|
||||||
|
~consult-buffer~ is what the vertico module uses on =SPC b B=.
|
||||||
|
*** What should be shown by default?
|
||||||
|
Currently it just uses the default settings of showing open buffers, recent
|
||||||
|
files, and bookmarks by default. It's possible to have it only show buffers by
|
||||||
|
setting the recent files and bookmarks sources to be hidden, or pre-narrowing
|
||||||
|
the command.
|
||||||
|
*** Org buffer source
|
||||||
|
I've added a [[https://github.com/minad/consult#narrowing-and-grouping][consult source]] that lets you narrow for org-mode buffers. Originally
|
||||||
|
I did this by autoloading ~org-buffers-list~, but beyond potential snappiness
|
||||||
|
considerations regarding loading org too early, I would also occasionally get
|
||||||
|
nondeterministic void variable errors on ~org-buffers-list~, which I suspect are
|
||||||
|
caused by the use of ~:defer-incrementally~ in the org ~use-package!~ statement.
|
||||||
|
|
||||||
|
This is currently implemented by only adding the buffer source in an ~after!
|
||||||
|
org~ statement, but per minad every additional buffer source slows
|
||||||
|
~consult-buffer~ down, so it is worth consideration if this option is desired at
|
||||||
|
all. I haven't noticed a difference, but it might be noticible on slower
|
||||||
|
machines.
|
||||||
|
|
||||||
* PROJ HACKs that need looking over
|
* PROJ HACKs that need looking over
|
||||||
** TODO ~fboundp~ issues
|
** TODO ~fboundp~ issues
|
||||||
|
|
|
@ -81,7 +81,16 @@
|
||||||
consult-theme
|
consult-theme
|
||||||
:preview-key
|
:preview-key
|
||||||
(list (kbd "C-SPC") (kbd "C-M-j") (kbd "C-M-k")
|
(list (kbd "C-SPC") (kbd "C-M-j") (kbd "C-M-k")
|
||||||
:debounce 0.5 'any)))
|
:debounce 0.5 'any))
|
||||||
|
(after! org
|
||||||
|
(defvar +vertico--consult-org-source
|
||||||
|
`(:name "Org"
|
||||||
|
:narrow ?o
|
||||||
|
:hidden t
|
||||||
|
:category buffer
|
||||||
|
:state ,#'consult--buffer-state
|
||||||
|
:items ,(lambda () (mapcar #'buffer-name (org-buffer-list)))))
|
||||||
|
(add-to-list 'consult-buffer-sources '+vertico--consult-org-source 'append)))
|
||||||
|
|
||||||
(use-package! consult-flycheck
|
(use-package! consult-flycheck
|
||||||
:when (featurep! :checkers syntax)
|
:when (featurep! :checkers syntax)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue