1 files changed, 4 insertions, 929 deletions

@@ -1,932 +1,7 @@
-;;; init.el --- a config of one's own  -*- lexical-binding: t; -*-
-;; by C. Duckworth <acdw@acdw.net>
-;; Bankruptcy: 9.3
+;;; init.el --- An Emacs of one's own -*- lexical-binding: t -*-
 
-;;; Code:
-
-;;; 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
-  :preface
-  (setq no-littering-etc-directory etc/
-        no-littering-var-directory var/)
-  :custom
-  (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)))))
-
-(use-package custom-allowed
-  :load-path "~/src/emacs/custom-allowed/"
-  :custom
-  (custom-file (private/ "custom.el"))
-  :config
-  (dolist (var '(safe-local-variable-values
-                 warning-suppress-types
-                 ispell-buffer-session-localwords
-                 calendar-latitude
-                 calendar-longitude
-                 user-full-name
-                 user-mail-address))
-    (add-to-list 'custom-allowed-variables var))
-  :hook
-  (after-init-hook . custom-allowed-load-custom-file))
-
-(use-package modus-themes
-  :load-path "~/usr/share/emacs/30.0.50/etc/themes/"
-  :custom
-  (modus-themes-bold-constructs t)
-  (modus-themes-italic-constructs t)
-  (modus-themes-variable-pitch-ui nil))
-
-(use-package dawn
-  :load-path "~/src/emacs/dawn/"
-  :after modus-themes
-  :config
-  (load-theme 'modus-operandi :noconfirm :noenable)
-  (load-theme 'modus-vivendi :noconfirm :noenable)
-  (defhook custom-allowed-after-load-hook
-    (dawn-schedule-themes 'modus-operandi
-                          'modus-vivendi)
-    (set-face-attribute 'default nil
-                        :family "IBM Plex Mono"
-                        :height 100)
-    (set-face-attribute 'variable-pitch nil
-                        :family "Georgia"
-                        :height 1.2)))
-
-(use-package midnight
-  :config
-  (add-hook 'midnight-mode-hook #'recentf-cleanup)
-  (midnight-mode))
-
-(use-package sophomore
-  :load-path "~/src/emacs/sophomore/"
-  :config
-  (sophomore-enable-all)
-  (sophomore-disable 'view-hello-file
-                     'describe-gnu-project
-                     'suspend-frame)
-  (sophomore-mode))
-
-;;; Completions
-
-(use-package vertico
-  :ensure t :demand t
-  :custom
-  (resize-mini-windows 'grow-only)
-  (vertico-cycle t)
-  :config
-  (use-package vertico-directory
-    :after vertico
-    :hook (rfn-eshadow-update-overlay-hook . vertico-directory-tidy))
-  (vertico-mode))
-
-(use-package marginalia
-  :ensure t :demand t
-  :config
-  (add-hook 'minibuffer-setup-hook #'truncate-lines-local-mode)
-  (marginalia-mode))
-
-(use-package orderless
-  :ensure t :demand t
-  :config
-  (setc completion-styles '(orderless basic)
-        completion-category-overrides
-        '((file (styles basic partial-completion)))))
-
-(use-package consult
-  :ensure t
-  :custom
-  (register-preview-delay 0.01)
-  (register-preview-function #'consult-register-format)
-  (xref-show-xrefs-function #'consult-xref)
-  (tab-always-indent 'complete)
-  (completion-in-region-function #'consult-completion-in-region)
-  (consult-narrow-key "<")
-  (consult--regexp-compiler #'consult--default-regexp-compiler)
-  :config
-  (advice-add #'register-preview :override #'consult-register-window)
-  (define-advice completing-read-multiple (:filter-args (args) indicator)
-    (cons (format "[CRM%s] %s"
-                  (replace-regexp-in-string
-                   "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
-                   crm-separator)
-                  (car args))
-          (cdr args)))
-  :bind 
-  (([remap switch-to-buffer] . consult-buffer)
-   ([remap switch-to-buffer-other-window] . consult-buffer-other-window)
-   ([remap switch-to-buffer-other-frame] . consult-buffer-other-frame)
-   ([remap yank-pop] . consult-yank-pop)
-   ("M-g g" . consult-goto-line)
-   ("M-g M-g" . consult-goto-line)
-   ("M-g i" . consult-imenu)
-   ("M-g M-i" . consult-imenu)
-   ("M-s l" . consult-line)
-   ("M-s f" . consult-find)
-   ("M-s M-f" . consult-find)
-   ("M-s g" . consult-grep)
-   ("M-s M-g" . consult-grep)))
-
-;;; General enhancements
-
-(use-package embark
-  :ensure t
-  :custom
-  (prefix-help-command #'embark-prefix-help-command)
-  :bind
-  (("C-." . embark-act)
-   ("M-." . embark-dwim)
-   ("C-h b" . embark-bindings))
-  :custom
-  (add-to-list 'display-buffer-alist
-               '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
-                 nil
-                 (window-parameters (mode-line-format . none)))))
-
-(use-package embark-consult
-  :ensure t :demand t
-  :after (embark consult)
-  :hook (embark-collect-mode-hook . consult-preview-at-point-mode))
-
-(use-package undo-fu-session
-  :ensure t
-  :custom
-  (undo-fu-session-directory (etc/ "undo/" t))
-  (undo-fu-session-incompatible-files
-   '("/COMMIT_EDITMSG\\'"
-     "/git-rebase-todo\\'"))
-  (undo-fu-session-compression
-   (cl-loop for (exe . sym) in '(("gzip" . gz)
-                                 ("bzip2" . bz2)
-                                 ("xz" . xz))
-            if (executable-find exe)
-            return sym))
-  :config
-  (global-undo-fu-session-mode))
-
-(use-package ws-butler
-  :ensure t
-  :custom
-  (ws-butler-trim-predicate  (lambda (begin end)
-                               (not (eq 'font-lock-string-face
-                                        (get-text-property end 'face)))))
-  :config
-  (ws-butler-global-mode))
-
-(use-package minions
-  :ensure t
-  :config
-  (minions-mode))
-
-(use-package mode-line-bell
-  :vc ( :url "https://github.com/duckwork/mode-line-bell"
-        :rev "remap-face")
-  :custom
-  (mode-line-bell-flash-time 0.25)
-  :config
-  (mode-line-bell-mode))
-
-(use-package electric-cursor
-  :load-path "~/src/emacs/electric-cursor/"
-  :custom
-  (electric-cursor-alist '((overwrite-mode . box)
-                           (t . bar)))
-  (electric-cursor-mode))
-
-(use-package visual-fill-column
-  :ensure t
-  :custom
-  (visual-fill-column-center-text t)
-  :hook ((visual-fill-column-mode-hook . visual-line-mode)
-         (eww-mode-hook . visual-fill-column-mode))
-  :config
-  (advice-add 'text-scale-adjust :after #'visual-fill-column-adjust))
-
-(use-package cape
-  :ensure t :demand t
-  :init
-  (dolist (fn '(cape-file cape-dabbrev))
-    (add-hook 'completion-at-point-functions fn 90))
-  :config
-  (require '+cape)
-  (advice-add 'emacs-completion-at-point :around #'cape-wrap-nonexclusive)
-  (+cape-insinuate text-mode-hook ( cape-dict cape-ispell
-                                    cape-file cape-dabbrev)))
-
-(use-package wgrep
-  :ensure t
-  :custom
-  (wgrep-enable-key (kbd "C-x C-q"))
-  :bind (:map grep-mode-map
-              ("C-x C-q" . wgrep-change-to-wgrep-mode)))
-
-(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
-  :custom
-  (avy-background t)
-  (avy-keys (string-to-list "asdfghjklqwertyuiopzxcvbnm"))
-  :bind (("M-j" . avy-goto-char-timer)
-         :map isearch-mode-map
-         ("M-j" . avy-isearch)))
-
-(use-package zzz-to-char
-  :ensure t
-  :bind (("M-z" . zzz-to-char)))
-
-;;; Searching
-
-(use-package isearch-mb
-  :ensure t
-  :custom
-  (isearch-lazy-count t)
-  (isearch-regexp-lax-whitespace t)
-  ;; Space matches whitespace, newlines, punctuation
-  (search-whitespace-regexp "\\W+")
-  (search-default-mode t "Search using regexp by default.")
-  ;; Space matches any sequence of characters in a line
-  ;; search-whitespace-regexp ".*?"
-  (isearch-wrap-pause 'no)
-  :config
-  (require '+isearch)
-  (advice-add 'isearch-cancel :before
-              #'+isearch-cancel@add-search-to-history)
-  (advice-add 'perform-replace :around
-              #'+perform-replace-dont-exit-on-anykey)
-  (eval-after (isearch-mb consult)
-    (add-to-list 'isearch-mb--after-exit #'consult-line)
-    (add-to-list 'isearch-mb--with-buffer #'consult-isearch-history)
-    (defkeys isearch-mb-minibuffer-map
-      "M-s l" #'consult-line
-      "M-r" #'consult-isearch-history))
-  (eval-after (isearch-mb anzu)
-    (add-to-list 'isearch-mb--after-exit #'anzu-isearch-query-replace)
-    (defkeys isearch-mb-minibuffer-map
-      "M-%" #'anzu-isearch-query-replace-regexp
-      "C-M-%" #'anzu-isearch-query-replace))
-  (isearch-mb-mode))
-
-(use-package anzu
-  :ensure t
-  :bind
-  (("M-%" . anzu-query-replace-regexp)
-   ("C-M-%" . anzu-query-replace)))
-
-(use-package frowny
-  :load-path "~/src/emacs/frowny/"
-  :config
-  (global-frowny-mode))
-
-(use-package transpose-frame
-  :ensure t
-  :bind
-  (("C-x 5 t" . transpose-frame)))
-
-;;; Text editing
-
-(use-package org
-  :defer t
-  :after derived
-  :init
-  (require 'init-org)
-  (require '_work))
-
-(use-package ispell
-  :custom
-  (ispell-program-name (choose-executable "ispell" "aspell"))
-  :config
-  (require '+ispell)
-  (add-hook 'before-save-hook
-            #'+ispell-move-buffer-words-to-dir-locals-hook)
-  (put 'ispell-buffer-session-localwords 'safe-local-variable
-       #'+ispell-safe-local-p))
-
-(use-package flyspell
-  :hook org-mode-hook)
-
-(use-package flyspell-correct
-  :ensure t
-  :after flyspell
-  :custom
-  (flyspell-correct--cr-key ";")
-  :bind
-  (:map flyspell-mode-map
-        (("C-;" . flyspell-correct-wrapper)
-         ("<f7>" . +flyspell-correct-buffer)))
-  :config
-  (require '+flyspell-correct)
-  (defkeys flyspell-mode-map
-    "C-," nil
-    "C-." nil))
+;; Bankruptcy: 9.4
 
-(use-package text-mode
-  :config
-  (defhook text-mode-hook
-    #'abbrev-mode))
-
-(use-package filldent
-  :load-path "~/src/emacs/filldent/"
-  :bind
-  ("M-q" . filldent-dwim))
-
-(use-package scule
-  :load-path "~/src/emacs/scule/"
-  :config
-  (defkeys t
-    "M-c" (defmap scule-map
-            "Keymap for twiddling scules."
-            "M-u" #'scule-upcase
-            "M-l" #'scule-downcase
-            "M-c" #'scule-capitalize)))
-
-(use-package titlecase
-  :load-path "~/src/emacs/titlecase.el/"
-  :after org
-  :bind (:map scule-map
-              ("M-t" . titlecase-dwim))
-  :config
-  (require '+titlecase))
-
-;;; Programming
-
-(use-package prog-mode
-  :config
-  (defhook prog-mode-hook
-    #'auto-fill-mode
-    ;; Use `indent-tabs-mode' unless one of the following modes
-    (indent-tabs-mode (if (derived-mode-p 'emacs-lisp-mode
-                                          'python-mode
-                                          'haskell-mode)
-                          -1 1))))
-
-(use-package paredit
-  :ensure t
-  :preface
-  (defun +paredit-newline ()
-    (interactive)
-    (call-interactively
-     (if (derived-mode-p 'lisp-interaction-mode)
-         #'eval-print-last-sexp
-       #'paredit-newline)))
-  :hook ((emacs-lisp-mode-hook
-          eval-expression-minibuffer-setup-hook
-          ielm-mode-hook lisp-interaction-mode-hook
-          lisp-mode-hook scheme-mode-hook
-          fennel-repl-mode-hook fennel-mode-hook
-          geiser-mode-hook geiser-repl-mode-hook
-          ielm-mode-hook)
-         . enable-paredit-mode)
-  :bind
-  (("C-j" . +paredit-newline))
-  :config
-  (defkeys paredit-mode-map
-    "RET" nil
-    "M-s" nil)
-  (require '+paredit)
-  (add-to-list 'paredit-space-for-delimiter-predicates
-               #'+paredit-space-for-delimiter)
-  (eval-after (paredit eldoc)
-    (eldoc-add-command #'paredit-backward-delete #'paredit-close-round)))
-
-(use-package hungry-delete
-  :ensure t
-  :custom
-  (hungry-delete-chars-to-skip " \t")
-  (hungry-delete-join-reluctantly nil)
-  :config
-  (dolist (m '(eshell-mode
-               nim-mode
-               python-mode))
-    (add-to-list 'hungry-delete-except-modes m))
-  (require '+hungry-delete)
-  (eval-after paredit
-    (defkeys paredit-mode-map
-      [remap paredit-backward-delete]
-      (+hungry-delete-define-alternative
-       paredit-backward-delete hungry-delete-backward)
-      [remap paredit-forward-delete]
-      (+hungry-delete-define-alternative
-       paredit-forward-delete hungry-delete-forward)))
-  (global-hungry-delete-mode))
-
-(use-package ediff
-  :custom
-  (ediff-keep-variants nil)
-  (ediff-split-window-function #'split-window-horizontally)
-  (ediff-window-setup-function #'ediff-setup-windows-plain))
-
-;;; Lisps
-
-(use-package elisp-mode
-  :custom
-  (eval-expression-print-length nil)
-  (eval-expression-print-level nil)
-  :preface
-  (defun elisp-eval-region|eval-buffer ()
-    (interactive)
-    (if (region-active-p)
-        (let ((start (region-beginning))
-              (end (region-end)))
-          (eval-region start end)
-          (message "Region from %s to %s evaluated."
-                   start end))
-      (eval-buffer)
-      (message "Buffer `%s' evaluated." (buffer-name))))
-  (defkeys (emacs-lisp-mode-map lisp-interaction-mode-map)
-    "C-c C-c" #'eval-defun
-    "C-c C-k" #'elisp-eval-region|eval-buffer
-    "C-c C-z" #'ielm)
-  :config
-  (define-advice eval-region (:around (orig start end &rest args) pulse)
-    (apply orig start end args)
-    (pulse-momentary-highlight-region start end))
-  (defhook emacs-lisp-mode-hook
-    (setq-local page-delimiter "^\\(\\|;;;+\\).*")))
-
-(use-package macrostep
-  :ensure t
-  :after elisp-mode
-  :bind ( :map emacs-lisp-mode-map
-          ("C-c e" . macrostep-expand)
-          :map lisp-interaction-mode-map
-          ("C-c e" . macrostep-expand)))
-
-(use-package eros
-  :ensure t
-  :after elisp-mode
-  :custom (eros-eval-result-prefix "; ")
-  :hook emacs-lisp-mode-hook)
-
-(use-package package-lint
-  :ensure t)
-
-(use-package sly
-  :ensure t
-  :when (executable-find "sbcl")
-  :custom
-  (inferior-lisp-program (executable-find "sbcl"))
-  (sly-net-coding-system 'utf-8-unix)
-  :bind (:map sly-mode-map
-              (("C-c C-z" . sly-mrepl)))
-  :config
-  (sly-symbol-completion-mode -1))
-
-(use-package edebug
-  :preface
-  (defun turn-off-eldoc-mode ()
-    (eldoc-mode -1))
-  :config
-  (add-hook 'edebug-mode-hook #'turn-off-eldoc-mode))
-
-;;; Web languages
-
-(use-package web-mode
-  :ensure t
-  :mode ("\\.phtml\\'"
-         "\\.tpl\\.php\\'"
-         "\\.[agj]sp\\'"
-         "\\.as[cp]x\\'"
-         "\\.erb\\'"
-         "\\.mustache\\'"
-         "\\.djhtml\\'"
-         "\\.html?\\'"))
-
-;;; Applications
-
-(use-package dired
-  :init (require 'dired-x)
-  :custom
-  (dired-recursive-copies 'always)
-  (dired-recursive-deletes 'always)
-  (dired-create-destination-dirs 'always)
-  (dired-do-revert-buffer t)
-  (dired-hide-details-hide-symlink-targets nil)
-  (dired-isearch-filenames 'dwim)
-  (delete-by-moving-to-trash t)
-  (dired-auto-revert-buffer t)
-  (dired-listing-switches "-AlF")
-  (ls-lisp-dirs-first t)
-  (dired-ls-F-marks-symlinks t)
-  (dired-clean-confirm-killing-deleted-buffers nil)
-  (dired-no-confirm '(byte-compile
-                      load chgrp chmod chown
-                      copy move hardlink symlink
-                      shell touch))
-  (dired-dwim-target t)
-  :bind
-  (("C-x C-j" . dired-jump)
-   ([remap list-directory] . dired)
-   :map dired-mode-map
-   ("C-j" . dired-up-directory)
-   ("<backspace>" . dired-up-directory))
-  :init
-  (defhook dired-mode-hook
-    #'dired-hide-details-mode
-    #'hl-line-mode
-    #'truncate-lines-local-mode))
-
-(use-package dired-subtree
-  :ensure t
-  :after dired
-  :bind (:map dired-mode-map
-              (("TAB" . dired-subtree-cycle)
-               ("i" . dired-subtree-toggle))))
-
-(use-package dired-collapse
-  :ensure t
-  :hook dired-mode-hook)
-
-(use-package dired-hide-dotfiles
-  :ensure t
-  :bind (:map dired-mode-map
-              ("." . dired-hide-dotfiles-mode)))
-
-(use-package magit
-  :ensure t
-  :bind
-  ("C-x g" . magit))
-
-(use-package auth-source
-  :custom
-  (auth-sources '(default "secrets:passwords"))
-  :config
-  (defhook authinfo-mode-hook
-    #'truncate-lines-local-mode))
-
-(use-package keychain-environment
-  :ensure t
-  :when (executable-find "keychain")
-  :hook (after-init-hook . keychain-refresh-environment))
-
-(use-package keepassxc-shim
-  :load-path "~/src/emacs/keepassxc-shim/"
-  :config
-  (keepassxc-shim-activate))
-
-(use-package eat
-  :ensure t
-  :commands eat-eshell-mode
-  :hook (eshell-load-hook . eat-eshell-mode))
-
-(use-package dictionary
-  :custom
-  (dictionary-server (if (or (executable-find "dictd")
-                             (file-exists-p "/usr/sbin/dictd")) ; debian
-                         "localhost"
-                       "dict.org"))
-  :bind
-  (("C-c d" . dictionary-search)))
-
-(use-package pdf-tools
-  :ensure t
-  :mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode)
-  :magic ("%PDF" . pdf-view-mode)
-  :config
-  (pdf-tools-install))
-
-;;; Mail
-
-(use-package bbdb
-  :ensure t
-  :custom
-  (bbdb-complete-mail-allow-cycling t)
-  (bbdb-file (private/ "bbdb"))
-  :init
-  (defhook custom-allowed-after-load-hook
-    :name bbdb@after-custom
-    (require 'bbdb)
-    (require 'bbdb-message)
-    (bbdb-initialize 'message)))
-
-(use-package bbdb-vcard
-  :ensure t)
-
-(use-package notmuch
-  :load-path "~/usr/share/emacs/site-lisp/"
-  :preface
-  (defdir notmuch/ (sync/ "emacs/notmuch"))
-  :init
-  (use-package +notmuch
-    :after notmuch
-    :load-path "lisp/"
-    :bind (("C-c n" . +notmuch-goto)
-           :map notmuch-search-mode-map
-           ("!" . +notmuch-search-mark-spam)
-           :map notmuch-tree-mode-map
-           ("!" . +notmuch-search-mark-spam-then-next)
-           ("M-<" . +notmuch-tree-beginning)
-           ("M->" . +notmuch-tree-end))
-    :hook (message-send-hook . +send-mail-dispatch)
-    :config
-    ;; Saved searches
-    (+notmuch-make-saved-search "inbox+unread" "m" 'tree "tag:inbox" "tag:unread" "NOT tag:Spam")
-    (+notmuch-make-saved-search "inbox" "i" 'tree "tag:inbox" "NOT tag:Spam")
-    (+notmuch-make-saved-search "lists+unread" "l" 'tree "tag:/List/" "tag:unread")
-    (+notmuch-make-saved-search "lists" "L" 'tree "tag:/List/")
-    (+notmuch-make-saved-search "unread" "u" 'tree "tag:unread" "NOT tag:Spam")
-    (+notmuch-make-saved-search "flagged" "f" 'tree "tag:flagged")
-    (+notmuch-make-saved-search "sent" "t" 'tree "tag:sent")
-    (+notmuch-make-saved-search "drafts" "d" 'tree "tag:draft")
-    (+notmuch-make-saved-search "all mail" "a" 'tree "*"))
-  (use-package message
-    :after notmuch
-    :hook (message-setup-hook . message-signature-setup)
-    :config (require '+message))
-  (defhook (notmuch-show-mode-hook notmuch-message-mode-hook)
-    #'visual-fill-column-mode)
-  :custom
-  (notmuch-init-file (notmuch/ "notmuch-init.el" t))
-  (notmuch-address-save-filename (notmuch/ "addresses" t))
-  (notmuch-address-use-company (featurep 'company))
-  (notmuch-search-oldest-first nil)
-  (notmuch-archive-tags '("-inbox" "-unread"))
-  (notmuch-draft-tags '("+draft" "-inbox" "-unread"))
-  (mail-user-agent 'notmuch-user-agent)
-  (bbdb-mail-user-agent 'notmuch-user-agent)
-  (message-mail-user-agent t)
-  (notmuch-show-indent-content nil)
-  (message-kill-buffer-on-exit t)
-  (message-auto-save-directory nil)
-  (send-mail-function #'sendmail-send-it)
-  (mail-specify-envelope-from t)
-  (message-sendmail-envelope-from 'header)
-  (message-envelope-from 'header)
-  (notmuch-saved-searches nil)
-  :bind
-  (("C-c m" . notmuch-mua-new-mail)
-   :map notmuch-search-mode-map
-   ("RET" . notmuch-search-show-thread)
-   ("M-RET" . notmuch-tree-from-search-thread))
-  :config
-  (load notmuch-init-file :noerror)
-  (advice-add 'notmuch-tag :filter-args #'+notmuch-correct-tags)
-  ;; Mailing lists
-  (add-to-list 'notmuch-message-headers "List-Post" :append)
-  (define-advice notmuch-mua-new-reply (:around (orig &rest r) list-aware)
-    "Make `notmuch-mua-new-reply' list-aware."
-    (let ((ml (notmuch-show-get-header :List-Post)))
-      (apply orig r)
-      (when ml
-        (with-buffer-modified-unmodified
-         (message-remove-header "To")
-         (message-add-header
-          (format "To: %s"
-                  (replace-regexp-in-string "<mailto:\\(.*\\)>" "\\1" ml)))
-         (message-goto-body))))))
-
-;;; The INTERNET
-
-(use-package link-hint
-  :ensure t :demand t
-  :preface
-  (global-set-key (kbd "M-l") nil)
-  :custom
-  (link-hint-avy-style 'at-full)
-  (link-hint-avy-all-windows t)
-  :config
-  (require '+link-hint)
-  (+link-hint-open-secondary-setup)
-  (+link-hint-open-chrome-setup)
-  :bind
-  (("M-l M-l" . +link-hint-open-link)
-   ("M-l l" . +link-hint-open-link)
-   ("M-l M-o" . +link-hint-open-secondary)
-   ("M-l o" . +link-hint-open-secondary)
-   ("M-l M-m" . +link-hint-open-multiple-links)
-   ("M-l m" . +link-hint-open-multiple-links)
-   ("M-l M-w" . link-hint-copy-link)
-   ("M-l w" . link-hint-copy-link)
-   ("M-l M-c" . +link-hint-open-chrome)
-   ("M-l c" . +link-hint-open-chrome)))
-
-(use-package browse-url
-  :demand t
-  :preface
-  (require '+browse-url)
-  :config
-  (eval-after chd
-    (add-to-list 'browse-url-handlers (cons chd/url-regexps
-                                            #'browse-url-chrome))
-    (add-to-list '+browse-url-other-safe-browser-functions
-                 #'chd/browse-url))
-  (put 'browse-url-browser-function 'safe-local-variable
-       #'+browse-url-browser-function-safe-p)
-  :custom
-  (browse-url-browser-function #'eww-browse-url)
-  (browse-url-chromium-program (choose-executable "chromium"))
-  (browse-url-chrome-program (choose-executable "chrome" "google-chrome-stable"))
-  (browse-url-firefox-program (choose-executable "firefox" "firefox-esr"))
-  (browse-url-firefox-new-window-is-tab t)
-  (browse-url-firefox-arguments '("--new-tab"))
-  (browse-url-generic-program (or browse-url-firefox-program
-                                  browse-url
-                                  browse-url-chrome-program))
-  (browse-url-generic-args
-   (cl-loop for prog in '(firefox chromium chrome)
-            for progfn = (intern (format "browse-url-%s-program"
-                                         prog))
-            for progargs = (intern (format "browse-url-%s-arguments"
-                                           prog))
-            if (equal browse-url-generic-program
-                      (symbol-value progfn))
-            return (symbol-value progargs)
-            finally return nil))
-  (browse-url-handlers
-   `(;; Videos
-     (,(+browse-url-matches "youtube\\.com" "youtu\\.be"
-                            "invidious" "yewtu\\.be"
-                            (rx "." (or "mp4" "gif" "mov" "MOV" "webm")
-                                eos))
-      . +browse-url-with-mpv)
-     ;; Music
-     (,(+browse-url-matches "soundcloud\\.com" "bandcamp\\.com"
-                            (rx "." (or "ogg" "mp3" "opus" "m4a") eos))
-      . +browse-url-with-mpv)
-     ;; Images
-     (,(+browse-url-matches "pbs\\.twimg\\.com"
-                            (rx "." (or "jpeg" "jpg" "png" "bmp" "webp")
-                                eos))
-      . +browse-url-with-mpv-image)
-     ;; Blobs (binary files)
-     (,(+browse-url-matches (rx "." (or ".tar.gz" ".pdf") eos))
-      . +browse-url-download)
-     ;; External URLs --- these are URLs that don't open in EWW very well,
-     ;; so I want to open them in the external browser.
-     (+browse-url-external-url-p . ,(if (featurep 'xwidget-internal)
-                                        #'xwidget-webkit-browse-url
-                                      browse-url-secondary-browser-function))))
-  (+browse-url-external-domains '("github.com" "gitlab.com" "codeberg.org"
-                                  "tildegit.org" "git.tilde.town"
-                                  "google.com" "imgur.com" "twitch.tv"
-                                  "pixelfed" "instagram.com"
-                                  "bibliogram.art" "reddit.com"
-                                  "teddit.net" "libreddit.de"
-                                  "streamable.com" "spotify.com"
-                                  "hetzner.cloud" "melpa.org"
-                                  "twitter.com" ("^t\\.co$")
-                                  "nitter.snopyta.org" "nitter.net")))
-
-(use-package browse-url-transform
-  :after browse-url
-  :load-path "~/src/emacs/browse-url-transform/"
-  :custom
-  (browse-url-transform-alist
-   `(;; Privacy-respecting alternatives
-     ("twitter\\.com" . "nitter.snopyta.org")
-     ("\\(?:\\(?:old\\.\\)?reddit\\.com\\)" . "libreddit.de")
-     ("medium\\.com" . "scribe.rip")
-     (".*substack\\.com.*" . ,substack-proxy)
-     ;; Text-mode of non-text-mode sites
-     ("www\\.npr\\.org" . "text.npr.org")
-     ;; Ask for raw versions of paste sites
-     ("^.*dpaste\\.com.*$" . "\\&.txt")
-     ("bpa\\.st/\\(.*\\)" . "bpa.st/raw/\\1")
-     ("\\(paste\\.debian\\.net\\)/\\(.*\\)" . "\\1/plain/\\2")
-     ("\\(pastebin\\.com\\)/\\\(.*\\)" . "\\1/raw/\\2")
-     ("\\(paste\\.centos\\.org/view\\)/\\(.*\\)" . "\\1/raw/\\2")))
-  :config
-  (browse-url-transform-mode))
-
-(use-package eww
-  :custom
-  (eww-use-browse-url ".")
-  :config
-  (defhook eww-mode-hook
-    (defhook ((visual-fill-column-mode nil :local))
-      :name visual-fill-column@eww-mode-refresh
-      (eww-reload t)))
-  (defkeys eww-mode-map
-    "&" (+browse-url-switch-external-browser eww-mode
-          (plist-get eww-data :url))))
-
-(use-package xwidget
-  :when (featurep 'xwidget-internal)
-  :preface
-  (setenv "WEBKIT_FORCE_SANDBOX" "0")   ; This is probably a bad idea
-  :custom
-  (xwidget-webkit-cookie-file (cache/ "xwidget-cookies"))
-  (xwidget-webkit-download-dir (expand-file-name "~/var/download"))
-  :config
-  (defkeys xwidget-webkit-mode-map
-    "&" (+browse-url-switch-external-browser xwidget-webkit-mode
-          (xwidget-webkit-uri (xwidget-webkit-current-session)))))
-
-(use-package xwwp
-  :load-path "~/src/emacs/xwwp/"
-  :when (featurep 'xwidget-internal)
-  :custom
-  (xwwp-search-prefix "https://duckduckgo.com/?q=")
-  :bind (:map xwidget-webkit-mode-map
-              ("f" . xwwp-follow-link)))
+;;; Code:
 
-(use-package jabber
-  :load-path "~/src/emacs/emacs-jabber"
-  :custom
-  (jabber-account-list '(("acdw@hmm.st")))
-  (jabber-auto-reconnect t)
-  (jabber-chat-buffer-format "xmpp:%n")
-  (jabber-browse-buffer-format "xmpp-browse:%n")
-  (jabber-groupchat-buffer-format "xmpp-muc:%n")
-  (jabber-muc-private-buffer-format "xmpp-muc-private:%n")
-  (jabber-groupchat-prompt-format "%>10n │ ")
-  (jabber-chat-local-prompt-format "%>10n │ ")
-  (jabber-chat-system-prompt-format " * * * * * *")
-  (jabber-chat-foreign-prompt-format "%>10n │ ")
-  (jabber-muc-private-foreign-prompt-format "%g/%n ")
-  (jabber-last-read-marker  "----------------------------------------")
-  (jabber-muc-header-line-format '("" jabber-muc-topic))
-  (jabber-muc-decorate-presence-patterns
-   '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$")
-     ("." . jabber-muc-presence-dim)))
-  (jabber-activity-make-strings
-   #'jabber-activity-make-strings-shorten)
-  (jabber-rare-time-format " - - - - - - %H:%M %F")
-  :custom-face
-  (jabber-chat-prompt-local ((t :inherit font-lock-keyword-face
-                                :foreground unspecified)))
-  (jabber-activity-face ((t :inherit jabber-chat-prompt-foreign
-                            :foreground unspecified
-                            :weight normal)))
-  (jabber-activity-personal-face ((t :inherit font-lock-warning-face
-                                     :foreground unspecified
-                                     :weight bold)))
-  (jabber-chat-prompt-foreign ((t :inherit font-lock-constant-face
-                                  :foreground unspecified)))
-  (jabber-chat-prompt-system ((t :inherit font-lock-doc-face
-                                 :foreground unspecified)))
-  (jabber-rare-time-face ((t :inherit font-lock-comment-face
-                             :foreground unspecified
-                             :underline nil)))
-  :init
-  (defhook (jabber-chat-mode-hook
-            jabber-browse-mode-hook
-            jabber-roster-mode-hook
-            jabber-console-mode-hook)
-    :name jabber-ui-setup
-    (visual-fill-column-mode)
-    (electric-pair-local-mode -1)
-    (auto-fill-mode -1)
-    (setq-local wrap-prefix (format "%13s" " ")))
-  :bind-keymap ("C-c j" . jabber-global-keymap)
-  :bind (("C-c C-SPC" . jabber-activity-switch-to))
-  :config
-  (global-set-key (kbd "C-x C-j") #'dired-jump) ; Extremely annoying fix
-  (require 'jabber-httpupload nil :noerror)
-  (add-hook 'jabber-post-connect-hooks #'jabber-enable-carbons)
-  (remove-hook 'jabber-alert-muc-hooks 'jabber-muc-echo)
-  (remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo)
-  (add-hook 'jabber-alert-muc-hooks
-            (defun jabber@highlight-acdw (&optional _nick _group buf _text _title)
-              (when buf
-                (with-current-buffer buf
-                  (let ((regexp (rx word-boundary
-                                    "acdw" ; maybe get from the config?
-                                    word-boundary)))
-                    (hi-lock-unface-buffer regexp)
-                    (highlight-regexp regexp 'hi-blue))))))
-  (add-hook 'window-configuration-change-hook #'jabber-chat-update-focus)
-  (eval-after consult
-    (defvar jabber-chat-buffer-source
-      `( :name "Jabber"
-         :hidden nil
-         :narrow ?j
-         :category buffer
-         :state ,#'consult--buffer-state
-         :items ,(lambda ()
-                   (mapcar #'buffer-name
-                           (seq-filter (lambda (buf)
-                                         (with-current-buffer buf
-                                           (eq major-mode 'jabber-chat-mode)))
-                                       (buffer-list))))))
-    (add-to-list 'consult-buffer-sources 'jabber-chat-buffer-source :append)
-    ;; Also hide xmpp buffers from regular buffer list
-    (add-to-list 'consult-buffer-filter "\\`xmpp" nil #'string-equal)))
+(load (locate-user-emacs-file "basics")) ; super basic stuff