put off corfu lsp integration

early-init.el

@@ -5,6 +5,8 @@
 
 ;;; 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,8 +10,6 @@
 
 ;;; 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
@@ -306,6 +304,16 @@ 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,8 +8,6 @@
 
 ;; (use-package no-littering) ;a bad start, and we need more
 
-(use-package compat)
-
 ;; diminish
 (use-package diminish
   :config (diminish 'visual-line-mode))
@@ -20,10 +18,6 @@
   :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)
@@ -262,8 +256,6 @@ 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))
@@ -402,10 +394,6 @@ 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
@@ -550,15 +538,6 @@ 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...)
 
@@ -569,7 +548,7 @@ Return nil if DIR is not in a hugo project at all."
   :commands lsp
   :diminish lsp-lens-mode
   :custom (lsp-completion-provider :none)
-  :init (defun corfu/lsp-mode-setup-completion ()
+  :config (defun corfu/lsp-mode-setup-completion ()
 	  (setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
 		'(flex))))