early-init.el

@@ -5,8 +5,6 @@
 
 ;;; Code:
 
-(setq gc-cons-threshold (* 8 5000 5000))
-
 (defun display-startup-echo-area-message ()
   "A re-definition of the function.
 Tell the Emacs startup time and number of garbage-collections

init.el

@@ -10,6 +10,8 @@
 
 ;;; Code:
 
+(setq gc-cons-threshold (* 8 5000 5000))
+
 (setq load-prefer-newer t) ; why ever use stale code, ever?
 ;; Load the files that I put my settings in...
 (defvar mir-directory
@@ -304,16 +306,6 @@ If the current window occupies the whole frame, split it."
 ;;           (list '+elpaca-unload-eldoc 'elpaca--activate-package)))
 ;; (elpaca eldoc :build (+elpaca-eldoc-build-steps))
 
-(elpaca compat)
-(elpaca marginalia (marginalia-mode))
-(elpaca gcmh (gcmh-mode))
-(elpaca page-break-lines
-  (add-hook 'emacs-lisp-mode-hook #'page-break-lines-mode))
-(elpaca rainbow-mode
-  (add-hook 'prog-mode-hook #'rainbow-mode))
-(elpaca powershell
-  (add-to-list 'auto-mode-alist '("\\.ps1\\'" . powershell-mode)))
-
 (elpaca elpaca-use-package
   (elpaca-use-package-mode)
   (setq elpaca-use-package-by-default t))

lisp/mir-packages.el

@@ -8,6 +8,8 @@
 
 ;; (use-package no-littering) ;a bad start, and we need more
 
+(use-package compat)
+
 ;; diminish
 (use-package diminish
   :config (diminish 'visual-line-mode))
@@ -18,6 +20,10 @@
   :custom (default-input-method "japanese")
   :config (require 'mir-keybinds))
 (elpaca-wait)
+(use-package gcmh
+  :diminish
+  :init (gcmh-mode))
+
 (use-package eldoc-box
   :after eldoc
   :diminish (eldoc-mode eldoc-box-hover-at-point-mode)
@@ -256,6 +262,8 @@ behaviour.  Delete the frame after that command has exited"
   (general-define-key
    [remap switch-to-buffer] 'consult-buffer))
 ;; Minibuffer generic stuff
+(use-package marginalia
+  :init (marginalia-mode))
 (use-package orderless
   :custom
   (completion-styles '(orderless partial-completion basic))
@@ -394,6 +402,10 @@ targets."
   (load-theme 'airline-ravenpower t)
   :init (load-theme 'sv t))
 
+(use-package page-break-lines
+  :diminish
+  :hook (emacs-lisp-mode . page-break-lines-mode))
+
 ;; parentheses settingses
 (elpaca (paredit :depth nil)
   (use-package paredit
@@ -538,6 +550,15 @@ Return nil if DIR is not in a hugo project at all."
   :custom (rainbow-delimiters-max-face-count 2)
   :hook (prog-mode . rainbow-delimiters-mode))
 
+;; Hex colors
+(use-package rainbow-mode
+  :diminish
+  :hook (prog-mode . rainbow-mode))
+
+;; Nobody loves a good language
+(use-package powershell
+  :mode ("\\.ps1\\'" . powershell-mode))
+
 ;; c sharp; see https://www.reddit.com/r/emacs/comments/k8tnzg/help_setting_up_c_lsp_omnisharproslyn/
 ;; (there is nothing here because I'm not using c sharp...)
 
@@ -548,7 +569,7 @@ Return nil if DIR is not in a hugo project at all."
   :commands lsp
   :diminish lsp-lens-mode
   :custom (lsp-completion-provider :none)
-  :config (defun corfu/lsp-mode-setup-completion ()
+  :init (defun corfu/lsp-mode-setup-completion ()
 	  (setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
 		'(flex))))