1 files changed, 39 insertions, 96 deletions

@@ -4,24 +4,23 @@
 
 ;;; Code:
 
-;;; Remove when done bankrupting
-
-(defkeys t "C-x C-c" #'restart-emacs)
-
 ;;; My extras
 
 (push (expand-file-name (locate-user-emacs-file "lisp")) load-path)
 (require 'acdw)                         ; Omnibus fun stuff
 
+;;; Remove when done bankrupting
+
+(defkeys t "C-x C-c" #'restart-emacs)
+
 ;;; Basic defaults
 
 (use-package no-littering
-  :ensure t
-  :demand t
+  :ensure t :demand t
+  :preface
+  (setq no-littering-etc-directory etc/
+        no-littering-var-directory var/)
   :custom
-  (no-littering-etc-directory etc/)
-  (no-littering-var-directory var/)
-  (custom-file (etc/ "custom.el"))
   (auto-save-file-name-transforms `(("." ,(var/ "auto-save/") t)))
   (auto-save-list-file-prefix (var/ "auto-save/.saves-" t))
   (backup-directory-alist `(("." . ,(var/ "backup/" t)))))
@@ -82,30 +81,28 @@
 ;;; Completions
 
 (use-package vertico
-  :ensure t
+  :ensure t :demand t
   :custom
   (resize-mini-windows 'grow-only)
   (vertico-cycle t)
-  :init
+  :config
   (use-package vertico-directory
     :after vertico
-    :config
-    (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
+    :hook (rfn-eshadow-update-overlay-hook . vertico-directory-tidy))
   (vertico-mode))
 
 (use-package marginalia
-  :ensure t
-  :demand t
+  :ensure t :demand t
   :config
   (add-hook 'minibuffer-setup-hook #'truncate-lines-local-mode)
   (marginalia-mode))
 
 (use-package orderless
-  :ensure t
-  :custom
-  (completion-styles '(orderless basic))
-  (completion-category-overrides
-   '((file (styles basic partial-completion)))))
+  :ensure t :demand t
+  :config
+  (setc completion-styles '(orderless basic)
+        completion-category-overrides
+        '((file (styles basic partial-completion)))))
 
 (use-package consult
   :ensure t
@@ -158,7 +155,7 @@
                  (window-parameters (mode-line-format . none)))))
 
 (use-package embark-consult
-  :ensure t
+  :ensure t :demand t
   :after (embark consult)
   :hook (embark-collect-mode-hook . consult-preview-at-point-mode))
 
@@ -217,8 +214,7 @@
   (advice-add 'text-scale-adjust :after #'visual-fill-column-adjust))
 
 (use-package cape
-  :ensure t
-  :demand t
+  :ensure t :demand t
   :init
   (dolist (fn '(cape-file cape-dabbrev))
     (add-hook 'completion-at-point-functions fn 90))
@@ -235,79 +231,27 @@
   :bind (:map grep-mode-map
               ("C-x C-q" . wgrep-change-to-wgrep-mode)))
 
-(progn
-  (use-package-statistics-gather :use-package 'mlscroll nil)
-  (use-package-ensure-elpa 'mlscroll
-                           '(t)
-                           'nil)
-  (use-package-statistics-gather :preface 'mlscroll nil)
-  (eval-and-compile
-    (defhook modus-themes-after-load-theme-hook :name modus-themes-load@mlscroll
-             (mlscroll-mode -1)
-             (when
-                 (or
-                  (memq 'modus-vivendi custom-enabled-themes)
-                  (memq 'modus-operandi custom-enabled-themes))
-               (modus-themes-with-colors
-                 (setf mlscroll-in-color fg-dim mlscroll-out-color bg-inactive)))
-             (eval-after 1
-               (mlscroll-mode 1))))
-  (defvar use-package--warning99
-    (function
-     (lambda
-       (keyword err)
-       (let
-           ((msg
-             (format "%s/%s: %s" 'mlscroll keyword
-                     (error-message-string err))))
-         (display-warning 'use-package msg :error)))))
-  (condition-case-unless-debug err
-      (progn
-        (use-package-statistics-gather :init 'mlscroll nil)
-        (condition-case-unless-debug err
-            (when
-                (daemonp)
-              (add-hook 'server-after-make-frame
-                        (function modus-themes-load@ml-scroll)))
-          (error
-           (funcall use-package--warning99 :init err)))
-        (run-with-idle-timer 1 nil
-                             (function require)
-                             'mlscroll nil t)
-        (eval-after-load 'mlscroll
-          '(progn
-             (use-package-statistics-gather :config 'mlscroll nil)
-             (let
-                 ((now
-                   (current-time)))
-               (message "%s..." "Configuring package mlscroll")
-               (prog1
-                   (condition-case-unless-debug err
-                       (progn
-                         (modus-themes-load@mlscroll)
-                         t)
-                     (error
-                      (funcall use-package--warning99 :config err)))
-                 (let
-                     ((elapsed
-                       (float-time
-                        (time-subtract
-                         (current-time)
-                         now))))
-                   (if
-                       (> elapsed 0.1)
-                       (message "%s...done (%.3fs)" "Configuring package mlscroll" elapsed)
-                     (message "%s...done" "Configuring package mlscroll")))))
-             (use-package-statistics-gather :config 'mlscroll t)))
-        (use-package-statistics-gather :init 'mlscroll t))
-    (error
-     (funcall use-package--warning99 :catch err)))
-  (use-package-statistics-gather :preface 'mlscroll t)
-  (use-package-statistics-gather :use-package 'mlscroll t))
+(use-package mlscroll
+  :ensure t :defer 1
+  :preface
+  (defhook modus-themes-after-load-theme-hook
+    :name modus-themes-load@mlscroll
+    (mlscroll-mode -1)
+    (when
+        (or
+         (memq 'modus-vivendi custom-enabled-themes)
+         (memq 'modus-operandi custom-enabled-themes))
+      (modus-themes-with-colors
+        (setf mlscroll-in-color fg-dim mlscroll-out-color bg-inactive)))
+    (eval-after 1
+      (mlscroll-mode 1)))
+  :init
+  (when (daemonp)
+    (add-hook 'server-after-make-frame #'modus-themes-load@mlscroll))
+  :config (modus-themes-load@mlscroll))
 
 (use-package avy
-  :ensure t
-  :demand t
+  :ensure t :demand t
   :custom
   (avy-background t)
   (avy-keys (string-to-list "asdfghjklqwertyuiopzxcvbnm"))
@@ -762,8 +706,7 @@
 ;;; The INTERNET
 
 (use-package link-hint
-  :ensure t
-  :demand t
+  :ensure t :demand t
   :preface
   (global-set-key (kbd "M-l") nil)
   :custom