djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use strict (non-leading) initialism by default

This commit is contained in:
David Morgan 2022-11-30 16:14:35 +00:00
parent 5b7ad8fe32
commit b531403fee
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.emacs.d/lisp/init-completion.el
View File

@ -59,7 +59,7 @@
(completion-styles '(orderless partial-completion basic)) (completion-styles '(orderless partial-completion basic))
(completion-category-defaults nil) (completion-category-defaults nil)
(completion-category-overrides '((file (styles . (partial-completion orderless))))) (completion-category-overrides '((file (styles . (partial-completion orderless)))))
(orderless-matching-styles '(orderless-literal orderless-regexp orderless-strict-leading-initialism)) (orderless-matching-styles '(orderless-literal orderless-regexp orderless-strict-initialism))
(orderless-style-dispatchers '(+orderless-dispatch)) (orderless-style-dispatchers '(+orderless-dispatch))
:config :config
(defun my/orderless-match-components-literally () (defun my/orderless-match-components-literally ()
@ -89,7 +89,7 @@ no words in between, beginning with the first word."
(defvar +orderless-dispatch-alist (defvar +orderless-dispatch-alist
'((?% . char-fold-to-regexp) '((?% . char-fold-to-regexp)
(?! . orderless-without-literal) (?! . orderless-without-literal)
(?` . orderless-strict-initialism) (?` . orderless-strict-leading-initialism)
(?= . orderless-literal) (?= . orderless-literal)
(?_ . orderless-prefix) (?_ . orderless-prefix)
(?~ . orderless-flex))) (?~ . orderless-flex)))
@ -106,7 +106,7 @@ no words in between, beginning with the first word."
;; * =literal literal= ;; * =literal literal=
;; * _prefix prefix_ ;; * _prefix prefix_
;; * %char-fold char-fold% ;; * %char-fold char-fold%
;; * `strict-initialism strict-initialism` ;; * `strict-leading-initialism strict-leading-initialism`
;; * !without-literal without-literal! ;; * !without-literal without-literal!
;; * .ext (file extension) ;; * .ext (file extension)
;; * regexp$ (regexp matching at end) ;; * regexp$ (regexp matching at end)