Configure completion framework

This commit is contained in:
Case Duckworth 2021-08-09 23:14:01 -05:00
parent d06004ca67
commit 6eaf17979c
1 changed files with 21 additions and 4 deletions

25
init.el
View File

@ -149,7 +149,7 @@
(setup completion
(:option completion-ignore-case t
read-buffer-completion-ignore-case t
completion-styles '(partial-completion substring flex)
completion-styles '(substring partial-completion)
completion-category-defaults nil
completion-category-overrides
'((file (styles . (partial-completion)))))
@ -929,9 +929,24 @@ if ripgrep is installed, otherwise `consult-grep'."
;; Competion-at-point (complete-region)
(:global "M-/" completion-at-point)
(:option completion-in-region-function #'consult-completion-in-region
(:option completion-in-region-function
(lambda (&rest args)
(apply (if vertico-mode
#'consult-completion-in-region
#'completion--in-region)
args))
completion-cycle-threshold 3
tab-always-indent 'complete))
tab-always-indent 'complete)
;; Completing-read-multple
(if (fboundp #'consult-completing-read-multiple)
(:advise completing-read-multple
:override #'consult-completing-read-multiple)
(defun crm-indicator (args)
(cons (concat "[CRM] " (car args)) (cdr args)))
(:advise completing-read-multiple
:filter-args #'crm-indicator)))
(setup (:straight crux)
@ -1139,7 +1154,7 @@ if ripgrep is installed, otherwise `consult-grep'."
:host github
:repo "oantolin/orderless"))
(require 'orderless)
(:option (prepend completion-styles) 'orderless))
(:option (append completion-styles) 'orderless))
(setup (:straight org)
(:straight org-contrib)
@ -1162,7 +1177,9 @@ if ripgrep is installed, otherwise `consult-grep'."
org-hide-emphasis-markers t
org-html-coding-system 'utf-8-unix
org-imenu-depth 3
org-outline-path-complete-in-steps nil
org-pretty-entities t
org-refile-use-outline-path 'file
org-special-ctrl-a/e t
org-special-ctrl-k t
org-src-fontify-natively t