emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add orderless style dispatchers

Browse source 
Adds style dispatchers, with the examples on the orderless README.

https://github.com/oantolin/orderless#style-dispatchers
This commit is contained in:
Bruce D'Arcus 2021-04-01 20:17:30 -04:00 • committed by Itai Y. Efrat
parent deed316283
commit 261927e9fb
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/completion/selectrum/config.el
View file

@ -24,6 +24,18 @@
(add-hook 'selectrum-candidate-selected-hook #'selectrum-prescient--remember)
(add-hook 'selectrum-candidate-inserted-hook #'selectrum-prescient--remember))
(defun flex-if-twiddle (pattern _index _total)
(when (string-suffix-p "~" pattern)
`(orderless-flex . ,(substring pattern 0 -1))))
(defun first-initialism (pattern index _total)
(if (= index 0) 'orderless-initialism))
(defun without-if-bang (pattern _index _total)
"Define a '!not' exclusion prefix for literal strings."
(when (string-prefix-p "!" pattern)
`(orderless-without-literal . ,(substring pattern 1))))
(use-package! orderless
:when (featurep! +orderless)
:defer t
@ -35,7 +47,10 @@
:config
(setq completion-styles '(orderless))
(setq orderless-skip-highlighting (lambda () selectrum-active-p))
(setq selectrum-highlight-candidates-function #'orderless-highlight-matches))
(setq selectrum-highlight-candidates-function #'orderless-highlight-matches)
(setq orderless-matching-styles '(orderless-regexp)
orderless-style-dispatchers '(flex-if-twiddle
without-if-bang)))
(use-package! consult
:defer t