diff options
| author | tslil clingman <> | 2021-09-27 08:53:17 -0400 |
|---|---|---|
| committer | tslil clingman <> | 2021-09-27 08:53:17 -0400 |
| commit | fa49aa2b985398b3da4379efc46198ba6497bdfc (patch) | |
| tree | 28997c5d3947394cc66ad3a1a131c44f975256cf /emacs/inits/11-completion.el | |
| parent | c69f17c5d36fa7a4a95701f915c727b076981f2f (diff) | |
Fixed tabs!
Diffstat (limited to 'emacs/inits/11-completion.el')
| -rw-r--r-- | emacs/inits/11-completion.el | 58 |
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)) |
