From af49ba89c6cdf1203746a75541b1f818a1446ffc Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Thu, 8 Jan 2026 23:40:38 -0800
Subject: [PATCH] Remove some unused packages

---
 disabled.el | 18 ++++++++++++++++++
 init.el     | 55 -----------------------------------------------------
 2 files changed, 18 insertions(+), 55 deletions(-)

diff --git a/disabled.el b/disabled.el
index a32c00d..e1674ae 100644
--- a/disabled.el
+++ b/disabled.el
@@ -354,3 +354,21 @@
 ;;   (add-to-list 'page-break-lines-modes 'prog-mode)
 ;;   (add-to-list 'page-break-lines-modes 'text-mode)
 ;;   (add-to-list 'page-break-lines-modes 'helpful-mode))
+
+;; (use-package js-comint
+;;   :bind (:map js-ts-mode-map
+;;          ("C-x C-e" . js-send-last-sexp)
+;;          ("C-c C-b" . js-send-buffer)
+;;          ("C-c C-r" . js-send-region)
+;;          ("C-M-x" . my/js-send-defun))
+;;   :hook (js-comint-mode . my/-setup-js-comint-mode)
+;;   :config
+;;   (my/setup-c-style-newline-keys js-ts-mode-map)
+;;   (defun my/-setup-js-comint-mode ()
+;;     (setq-local comint-highlight-input nil))
+;;   (defun my/js-send-defun ()
+;;     "Send the defun under point to the inferior JavaScript process."
+;;     (interactive)
+;;     (if-let ((code (thing-at-point 'defun)))
+;;         (js-comint-send-string code)
+;;       (user-error "No defun under point"))))
diff --git a/init.el b/init.el
index 3252262..21a1a7e 100644
--- a/init.el
+++ b/init.el
@@ -977,12 +977,6 @@ visual states."
     (cl-pushnew "Replace" val :test 'equal)
     (setopt minibuffer-regexp-prompts val)))
 
-;; better `align-regexp'
-(use-package ialign
-  :defer t
-  :custom
-  (ialign-initial-repeat t))
-
 ;; ace-window
 (use-package ace-window
   :diminish ace-window-mode
@@ -2018,23 +2012,6 @@ This is :around advice, so OLDFUN is the real function
 (use-package js
   :ensure nil
   :hook (js-ts-mode . my/eglot-if-trusted))
-(use-package js-comint
-  :bind (:map js-ts-mode-map
-         ("C-x C-e" . js-send-last-sexp)
-         ("C-c C-b" . js-send-buffer)
-         ("C-c C-r" . js-send-region)
-         ("C-M-x" . my/js-send-defun))
-  :hook (js-comint-mode . my/-setup-js-comint-mode)
-  :config
-  (my/setup-c-style-newline-keys js-ts-mode-map)
-  (defun my/-setup-js-comint-mode ()
-    (setq-local comint-highlight-input nil))
-  (defun my/js-send-defun ()
-    "Send the defun under point to the inferior JavaScript process."
-    (interactive)
-    (if-let ((code (thing-at-point 'defun)))
-        (js-comint-send-string code)
-      (user-error "No defun under point"))))
 
 ;; TypeScript
 (use-package typescript-ts-mode
@@ -2045,22 +2022,6 @@ This is :around advice, so OLDFUN is the real function
   :config
   (my/setup-c-style-newline-keys typescript-ts-mode-map))
 
-;; Polymode
-(use-package polymode
-  :config
-  (define-hostmode my/poly-web-hostmode
-    :mode 'web-mode)
-  (define-innermode my/poly-php-innermode
-    :mode 'php-ts-mode
-    :head-matcher (regexp-quote "<?php")
-    :tail-matcher (regexp-quote "?>")
-    :head-mode 'body
-    :tail-mode 'body)
-  (define-polymode my/poly-web-mode
-    :hostmode 'my/poly-web-hostmode
-    :innermodes '(my/poly-php-innermode))
-  (add-to-list 'auto-mode-alist '("\\.php\\|\\.phtml\\'" . my/poly-web-mode)))
-
 ;; shell-mode
 (use-package sh-script
   :ensure nil
@@ -2139,9 +2100,6 @@ This is :around advice, so OLDFUN is the real function
     (setq indent-line-function #'yaml-indent-line)))
 (use-package yaml-mode)
 
-;; yuck (config language for eww)
-(use-package yuck-mode)
-
 ;; Some Elisp indentation stuff
 ;; Source: https://github.com/magit/emacsql
 ;; emacsql.el line 394
@@ -2888,13 +2846,6 @@ If no name is given, list all bookmarks instead."
                              (list (car entry)))))
                        (directory-files-and-attributes dir-path))
                path-end))))))))
-(use-package esh-help
-  :hook (eshell-mode . my/-setup-eshell-help-func)
-  :init
-  (defun my/-setup-eshell-help-func ()
-    (eldoc-mode 1)
-    (setq-local evil-lookup-func #'esh-help-run-help))
-  (setup-esh-help-eldoc))
 (use-package eshell-syntax-highlighting
   :init
   (eshell-syntax-highlighting-global-mode 1))
@@ -3173,8 +3124,6 @@ R is rest of the arguments to OLDFUN."
 
 ;; ledger
 (use-package ledger-mode)
-(use-package flycheck-ledger
-  :hook (ledger-mode . my/flycheck-if-trusted))
 
 ;; khard contacts
 (require 'khard)
@@ -3596,10 +3545,6 @@ one of the normal rainbow-delimiters-depth-N-face faces."
 ;; Highlight todos
 (use-package hl-todo
   :hook (prog-mode . hl-todo-mode))
-(use-package magit-todos
-  :after (hl-todo magit)
-  :config
-  (magit-todos-mode 1))
 
 ;; icons
 (use-package nerd-icons)