summaryrefslogtreecommitdiff
path: root/emacs/inits/11-completion.el
diff options
context:
space:
mode:
authortslil clingman <>2021-09-27 08:53:17 -0400
committertslil clingman <>2021-09-27 08:53:17 -0400
commitfa49aa2b985398b3da4379efc46198ba6497bdfc (patch)
tree28997c5d3947394cc66ad3a1a131c44f975256cf /emacs/inits/11-completion.el
parentc69f17c5d36fa7a4a95701f915c727b076981f2f (diff)
Fixed tabs!
Diffstat (limited to 'emacs/inits/11-completion.el')
-rw-r--r--emacs/inits/11-completion.el58
1 files changed, 29 insertions, 29 deletions
diff --git a/emacs/inits/11-completion.el b/emacs/inits/11-completion.el
index 2c57c88..a885f79 100644
--- a/emacs/inits/11-completion.el
+++ b/emacs/inits/11-completion.el
@@ -1,25 +1,25 @@
-;; Time-stamp: <2021-09-09 21h27 EDT (hobbies)>
+;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>
;; -----------------------------------------------------------------------------
;; Vertico
(use-package vertico
- :ensure t
- :bind (:map vertico-map ("<tab>" . vertico-insert))
+ :ensure t
+ :bind (:map vertico-map ("<tab>" . vertico-insert))
:init
- (vertico-mode)
+ (vertico-mode)
(setq vertico-cycle t)
- (setq completion-styles '(substring)))
+ (setq completion-styles '(substring)))
(use-package orderless
- :ensure t
+ :ensure t
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles . (partial-completion))))))
(use-package savehist
- :ensure t
+ :ensure t
:init (savehist-mode))
(use-package emacs
@@ -44,7 +44,7 @@
;; Consult
(use-package consult
- :ensure t
+ :ensure t
:bind (;; C-c bindings (mode-specific-map)
("C-c h" . consult-history)
("C-c m" . consult-mode-command)
@@ -66,7 +66,7 @@
("M-g e" . consult-compile-error)
("M-g f" . consult-flymake) ;; Alternative: consult-flycheck
("C-s" . consult-line) ;; orig. goto-line
- ("C-r" . isearch-forward-regexp)
+ ("C-r" . isearch-forward-regexp)
("M-g M-g" . consult-goto-line) ;; orig. goto-line
("M-g o" . consult-outline) ;; Alternative: consult-org-heading
("M-g m" . consult-mark)
@@ -75,9 +75,9 @@
("M-g I" . consult-project-imenu)
;; M-s bindings (search-map)
("M-s f" . consult-find)
- ("M-s L" . consult-locate)
- ("C-c g" . consult-ripgrep)
- ("C-c G" . consult-git-grep)
+ ("M-s L" . consult-locate)
+ ("C-c g" . consult-ripgrep)
+ ("C-c G" . consult-git-grep)
("M-s l" . consult-line)
("M-s m" . consult-multi-occur)
("M-s k" . consult-keep-lines)
@@ -107,27 +107,27 @@
:config
(consult-customize
consult-theme
- :preview-key '(:debounce 0.2 any)
+ :preview-key '(:debounce 0.2 any)
consult-ripgrep consult-git-grep consult-grep
consult-bookmark consult-recent-file consult-xref
consult--source-file consult--source-project-file consult--source-bookmark
:preview-key (kbd "M-."))
- (defun previous-history-or-next ()
- (interactive)
- (if (string= "" (minibuffer-contents-no-properties))
- (progn
- (previous-history-element 1)
- (end-of-line))
- (vertico-next)))
+ (defun previous-history-or-next ()
+ (interactive)
+ (if (string= "" (minibuffer-contents-no-properties))
+ (progn
+ (previous-history-element 1)
+ (end-of-line))
+ (vertico-next)))
- (defvar my-consult-line-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-s" #'previous-history-or-next)
- map))
+ (defvar my-consult-line-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\C-s" #'previous-history-or-next)
+ map))
- (consult-customize consult-line :keymap my-consult-line-map)
+ (consult-customize consult-line :keymap my-consult-line-map)
;; Optionally configure the narrowing key.
;; Both < and C-+ work reasonably well.
@@ -137,17 +137,17 @@
;; You may want to use `embark-prefix-help-command' or which-key instead.
;; (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
- ;; Projectile integration
+ ;; Projectile integration
(autoload 'projectile-project-root "projectile")
(setq consult-project-root-function #'projectile-project-root)
- ;; Ues consult for capfs
- (setq completion-in-region-function #'consult-completion-in-region))
+ ;; Ues consult for capfs
+ (setq completion-in-region-function #'consult-completion-in-region))
;; -----------------------------------------------------------------------------
;; Marginalia
(use-package marginalia
- :ensure t
+ :ensure t
:bind (:map minibuffer-local-map ("M-A" . marginalia-cycle))
:init (marginalia-mode))