From 318a5ebdbbc15e58495405f6bcb7c5cd9624f66a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <id@rbenencia.name>
Date: Mon, 28 Oct 2024 20:58:23 -0700
Subject: emacs: add rul-completion to literate config

---
 .emacs.d/rul-lisp/packages/rul-completion.el | 48 +++++++---------------------
 1 file changed, 12 insertions(+), 36 deletions(-)

(limited to '.emacs.d/rul-lisp/packages/rul-completion.el')

diff --git a/.emacs.d/rul-lisp/packages/rul-completion.el b/.emacs.d/rul-lisp/packages/rul-completion.el
index 2b3afa1..3412354 100644
--- a/.emacs.d/rul-lisp/packages/rul-completion.el
+++ b/.emacs.d/rul-lisp/packages/rul-completion.el
@@ -1,5 +1,14 @@
 (use-package orderless :ensure t)
 
+(setq completion-styles '(basic substring initials orderless))
+(setq completion-category-overrides
+      '(
+        (file (styles . (basic partial-completion orderless)))
+        (project-file (styles . (flex basic substring partial-completion orderless)))
+        ))
+
+(setq completion-ignore-case t)
+
 ;; Enable vertico
 (use-package vertico
   :ensure t
@@ -7,50 +16,18 @@
   (vertico-mode)
 
   :config
-  (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)
-
-  ;; Different scroll margin
-  ;; (setq vertico-scroll-margin 0)
-
-  ;; Show more candidates
-  ;; (setq vertico-count 20)
-
-  ;; Grow and shrink the Vertico minibuffer
-  ;; (setq vertico-resize t)
-
-  ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
-  ;; (setq vertico-cycle t)
-  )
+  (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
 
 ;; Enable rich annotations using the Marginalia package
 (use-package marginalia
   :ensure t
-  ;; Bind `marginalia-cycle' locally in the minibuffer.  To make the binding
-  ;; available in the *Completions* buffer, add it to the
-  ;; `completion-list-mode-map'.
   :bind (:map minibuffer-local-map
          ("M-A" . marginalia-cycle))
-
-  ;; The :init section is always executed.
   :init
-
-  ;; Marginalia must be actived in the :init section of use-package such that
-  ;; the mode gets enabled right away. Note that this forces loading the
-  ;; package.
   (marginalia-mode))
 
-(setq completion-styles '(basic substring initials orderless))
-(setq completion-category-overrides
-      '(
-        (file (styles . (basic partial-completion orderless)))
-        (project-file (styles . (flex basic substring partial-completion orderless)))
-        ))
-
-(setq completion-ignore-case t)
-
 (use-package consult
   :ensure t
-  ;; Replace bindings. Lazily loaded due by `use-package'.
   :bind (;; C-c bindings in `mode-specific-map'
          ("C-c M-x" . consult-mode-command)
          ("C-c h" . consult-history)
@@ -126,7 +103,7 @@
 
   :bind
   (("C-." . embark-act)         ;; pick some comfortable binding
-   ("C-;" . embark-dwim)        ;; good alternative: M-.
+   ("M-." . embark-dwim)        ;; good alternative: M-.
    ("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
 
   :init
@@ -139,9 +116,8 @@
                  nil
                  (window-parameters (mode-line-format . none)))))
 
-;; Consult users will also want the embark-consult package.
 (use-package embark-consult
-  :ensure t ; only need to install it, embark loads it after consult if found
+  :ensure t
   :hook
   (embark-collect-mode . consult-preview-at-point-mode))
 
-- 
cgit v1.2.3