init.el

@@ -333,6 +333,29 @@ If the current window occupies the whole frame, split it."
     `(use-package--orig ,@(-replace :git use-package-git-keyword args))))
 ;; (use-package lua-mode :git nil)
 
+;; see https://www.reddit.com/r/emacs/comments/1937vaz/emacs_291_on_windows_install_magit_requires_seq/?rdt=48529
+;; ;; seq version workaround
+;; (defun +elpaca-unload-seq (e)
+;;   (and (featurep 'seq) (unload-feature 'seq t))
+;;   (elpaca--continue-build e))
+;; (defun +elpaca-seq-build-steps ()
+;;   (append (butlast (if (file-exists-p (expand-file-name "seq" elpaca-builds-directory))
+;;                        elpaca--pre-built-steps elpaca-build-steps))
+;;           (list '+elpaca-unload-seq 'elpaca--activate-package)))
+;; (elpaca seq :build (+elpaca-seq-build-steps))
+;; ;; eldoc version workarounds...
+;; (defun global-eldoc-mode (&rest args)
+;; 	  "Placeholder function. Do nothing and return nil."
+;; 	  nil)
+;; (defun +elpaca-unload-eldoc (e)
+;;   (and (featurep 'eldoc) (unload-feature 'eldoc t))
+;;   (elpaca--continue-build e))
+;; (defun +elpaca-eldoc-build-steps ()
+;;   (append (butlast (if (file-exists-p (expand-file-name "eldoc" elpaca-builds-directory))
+;;                        elpaca--pre-built-steps elpaca-build-steps))
+;;           (list '+elpaca-unload-eldoc 'elpaca--activate-package)))
+;; (elpaca eldoc :build (+elpaca-eldoc-build-steps))
+
 (use-package compat)
 (use-package marginalia :init (marginalia-mode))
 ;; (elpaca gcmh (gcmh-mode))

lisp/mir-defuns.el

@@ -71,7 +71,6 @@ console."
       (pixel-scroll-precision-mode t)
     (pixel-scroll-mode t))
   ;; Size of text. おまえ わ もう しんでいる.
-  (if (executable-find "neofetch")
   (let* ((resolution (mapcar #'string-to-number
 			     (split-string
 			      (cadr (split-string
@@ -82,7 +81,7 @@ console."
 	 (font-height (/ resy 11)))
     (set-face-attribute 'fixed-pitch nil :height font-height)
     (set-face-attribute 'default nil :height font-height)
-	(set-face-attribute 'variable-pitch nil :height (+ font-height 10)))))
+    (set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
 
 (defun toggle-ja-input ()
   "Switch between english and japanese.  Not broken."

lisp/obsolete.el

@@ -26,31 +26,6 @@
 ;;; Code:
 (error "Please don't load `obsolete.el', it's obsolete.")
 
-;; elpaca eldoc stuff, probably not good anymore
-;; see https://www.reddit.com/r/emacs/comments/1937vaz/emacs_291_on_windows_install_magit_requires_seq/?rdt=48529
-;; seq version workaround
-(defun +elpaca-unload-seq (e)
-  (and (featurep 'seq) (unload-feature 'seq t))
-  (elpaca--continue-build e))
-(defun +elpaca-seq-build-steps ()
-  (append (butlast (if (file-exists-p (expand-file-name "seq" elpaca-builds-directory))
-                       elpaca--pre-built-steps elpaca-build-steps))
-          (list '+elpaca-unload-seq 'elpaca--activate-package)))
-(elpaca seq :build (+elpaca-seq-build-steps))
-;; eldoc version workarounds...
-(defun global-eldoc-mode (&rest args)
-	  "Placeholder function. Do nothing and return nil."
-	  nil)
-(defun +elpaca-unload-eldoc (e)
-  (and (featurep 'eldoc) (unload-feature 'eldoc t))
-  (elpaca--continue-build e))
-(defun +elpaca-eldoc-build-steps ()
-  (append (butlast (if (file-exists-p (expand-file-name "eldoc" elpaca-builds-directory))
-                       elpaca--pre-built-steps elpaca-build-steps))
-          (list '+elpaca-unload-eldoc 'elpaca--activate-package)))
-(elpaca eldoc :build (+elpaca-eldoc-build-steps))
-
-
 ;; scribble SVGs in org buffers like it's 2005 (idk I was a baby then)
 (use-package edraw
   :elpaca (:repo "https://github.com/misohena/el-easydraw")