style(emacs): format config.org

users/price/dots/.config/emacs/config.org

@@ -25,8 +25,8 @@
 #+begin_src emacs-lisp
   (set-face-attribute 'default nil :family "Fira Code" :height 130)
 #+end_src
-** Splash Screen
 
+** Splash Screen
 Remove splash screen and use a *scratch* buffer instead
 #+begin_src emacs-lisp
   (setq inhibit-startup-message t
@@ -34,7 +34,6 @@ Remove splash screen and use a *scratch* buffer instead
 #+end_src
 
 ** Line Numbers
-
 Default to enabling line numbers in all buffers
 #+begin_src emacs-lisp
   (setq display-line-numbers-type 'relative
@@ -43,14 +42,12 @@ Default to enabling line numbers in all buffers
 #+end_src
 
 ** Improved Tabs/Indentation
-
 #+begin_src emacs-lisp
   (setq-default indent-tabs-mode nil)
   (setq-default tab-width 4)
 #+end_src
 
 ** Improved default visuals
-
 #+begin_src emacs-lisp
   (menu-bar-mode -1)
   (scroll-bar-mode -1)
@@ -96,10 +93,9 @@ Default to enabling line numbers in all buffers
     :config
     (evil-mode 1))
 #+end_src
+
 * General.el
-
 Used for keybindings
-
 #+begin_src emacs-lisp
   (use-package general
     :ensure (:wait t)
@@ -115,7 +111,6 @@ Used for keybindings
 #+end_src
 
 * Which Key
-
 #+begin_src emacs-lisp
   (use-package which-key
     :defer nil
@@ -139,7 +134,6 @@ Used for keybindings
 
 * Treesitter
 ** Auto setup
-
 #+begin_src emacs-lisp
   (use-package treesit-auto
     :custom
@@ -148,8 +142,8 @@ Used for keybindings
     (treesit-auto-add-to-auto-mode-alist 'all)
     (global-treesit-auto-mode))
 #+end_src
-** Nix Integration
 
+** Nix Integration
 #+begin_src emacs-lisp
   (use-package nix-ts-mode
     :mode "\\.nix\\'")
@@ -158,7 +152,6 @@ Used for keybindings
 * Completion
 
 ** Orderless w/ Hotfuzz
-
 #+begin_src emacs-lisp
   (use-package hotfuzz
     :ensure (:host github
@@ -191,20 +184,6 @@ Used for keybindings
                  (derived-mode-p 'eshell-mode))
              (string-match-p "\\`\\.." word))
         `(orderless-regexp . ,(concat "\\." (substring word 1) (+orderless--consult-suffix))))))
-
-  (defun flex-if-twiddle (pattern _index _total)
-    (when (string-suffix-p "~" pattern)
-      `(orderless-flex . ,(substring pattern 0 -1))))
-
-  (defun first-initialism (pattern index _total)
-    (if (= index 0) 'orderless-initialism))
-
-  (defun not-if-bang (pattern _index _total)
-    (cond
-    ((equal "!" pattern)
-      #'ignore)
-    ((string-prefix-p "!" pattern)
-      `(orderless-not . ,(substring pattern 1)))))
     (setq
      completion-ignore-case t
      completion-styles '(hotfuzz orderless basic)
@@ -213,6 +192,10 @@ Used for keybindings
      orderless-component-separator #'orderless-escapable-split-on-space
      orderless-style-dispatchers (list #'+orderless-consult-dispatch
                                        #'orderless-affix-dispatch)
+     completion-category-overrides '((file (styles partial-completion))
+                                     (command (styles +orderless-with-initialism))
+                                     (variable (styles +orderless-with-initialism))
+                                     (symbol (styles +orderless-with-initialism)))
      orderless-matching-styles
      '(orderless-prefixes
        orderless-initialism
@@ -221,7 +204,6 @@ Used for keybindings
 #+end_src
 
 ** Corfu
-
 #+begin_src emacs-lisp
   (use-package corfu
     :custom
@@ -275,7 +257,6 @@ Used for keybindings
 #+end_src
 
 ** Marginalia
-
 #+begin_src emacs-lisp
   (use-package marginalia
                                           ; :ensure (:host github
@@ -292,7 +273,6 @@ Used for keybindings
 #+end_src
 
 ** Completion Icons
-
 #+begin_src emacs-lisp
   (use-package kind-icon
     :ensure t
@@ -349,7 +329,6 @@ Used for keybindings
 #+end_src
 
 ** Vertico
-
 #+begin_src emacs-lisp
   (use-package vertico
     :general
@@ -410,8 +389,28 @@ Used for keybindings
     (vertico-mouse-mode))
 #+end_src
 
-* Modeline
+** Consult
+#+begin_src emacs-lisp
+  (use-package consult
+    :init
+    (advice-add #'register-preview :override #'consult-register-window)
+    (setq register-preview-delay 0.5
+          register-preview-function #'consult-register-format
+          xref-show-xrefs-function #'consult-xref
+          xref-show-definitions-function #'consult-xref
+          consult-narrow-key "<"
+          completion-in-region-function #'consult-completion-in-region)
+    :general
+    (key-leader
+      :states 'normal
+      "c" '(nil :which-key "Consult")
+      "c b" '(consult-buffer :which-key "Consult: Buffers")
+      "c f" '(consult-fd :which-key "Consult: Find File")
+      "c r" '(consult-recent-file :which-key "Consult: Recent  Files")))
 
+#+end_src
+
+* Modeline
 #+begin_src emacs-lisp
   (use-package doom-modeline
     :custom
@@ -437,6 +436,14 @@ Used for keybindings
     (doom-modeline-mode))
 #+end_src
 
+* Save Hist
+#+begin_src emacs-lisp
+(use-package savehist
+  :ensure nil
+  :init
+  (savehist-mode))
+#+end_src
+
 * Org Mode
 #+begin_src emacs-lisp
   (use-package org