3 files changed, 863 insertions, 561 deletions

@@ -1,809 +1,1077 @@
+This is my Emacs configuration.  It's also a literate `org-mode` file.  Yeah, I'm a cool guy.
 
 
-# Preamble
+# About me
 
-I wanted to write my Emacs configuration in [Org mode](https://orgmode.org) for a while, but never could quite figure out how.  Finally, I found [Lars Tveito](https://github.com/larstvei/dot-emacs)'s config, which does exactly what I want: `init.el` is small and simple, and replaced after the first run, and `init.org` is automatically tangled.  So I'm very excited.
+        ;; init.el -*- lexical-binding: t -*-
+        (setq user-full-name "Case Duckworth"
+                  user-mail-address "acdw@acdw.net")
 
 
 # License
 
-WTFPL.  For more info, see `LICENSE`.
+Copyright © 2020 Case Duckworth <acdw@acdw.net>
 
-Probably that's not legal under the terms of the GPL or whatever Emacs is licensed under.
-SUE ME, RMS
+This work is free.  You can redistribute it and/or modify it under the terms of the Do What the Fuck You Want To Public License, Version 2, as published by Sam Hocevar.  See the `LICENSE` file, tangled from the following source block, for details.
+
+        DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+
+        Version 2, December 2004
+
+        Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+        Everyone is permitted to copy and distribute verbatim or modified copies of
+        this license document, and changing it is allowed as long as the name is changed.
+
+        DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+
+        TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+           0. You just DO WHAT THE FUCK YOU WANT TO.
+
+
+## Note on the license
+
+It's highly likely that the WTFPL is completely incompatible with the GPL, for what should be fairly obvious reasons.  To that, I say:
+
+**SUE ME, RMS!**
 
 
 # Bootstrap
 
-*Check out Lars's config for the reasoning behind this.*
 
-When this configuration is loaded for the first time, this `init.el` is loaded:
+## Original init.el
 
-    ;; This file replaces itself with the actual configuration when first run.  To keep only this version in git, run this command:
-    ;; git update-index --assume-unchanged init.el
-    ;;
-    ;; If it needs to be changed, start tracking it again thusly:
-    ;; git update-index --no-assume-unchanged init.el
-    
-    (require 'org)
-    (find-file (concat user-emacs-directory "init.org"))
-    (org-babel-tangle)
-    (load-file (concat user-emacs-directory "early-init.el"))
-    (load-file (concat user-emacs-directory "init.el"))
-    (byte-compile-file (concat user-emacs-directory "init.el"))
+        ;; This file replaces itself with the actual configuration when
+        ;; first run.  To keep only this version in git, run this command:
+        ;;
+        ;; git update-index --assume-unchanged init.el
+        ;;
+        ;; If it needs to be changed, start tracking it again thusly:
+        ;;
+        ;; git update-index --no-assume-unchanged init.el
+
+        (require 'org)
+        (find-file (concat user-emacs-directory "config.org"))
+        (org-babel-tangle)
+        (load-file (concat user-emacs-directory "early-init.el"))
+        (load-file (concat user-emacs-directory "init.el"))
+        (byte-compile-file (concat user-emacs-directory "init.el"))
 
 
 ## Tangling
 
-After the first run, the above `init.el` will be replaced by the tangled stuff here.  However, when *this* file is edited, we'll need to re-tangle everything.  However, nobody has time to do that manually with `C-c C-v t`, *every time*!  Luckily, Emacs is highly programmable.
+        (defun acdw/tangle-init ()
+          "If the current buffer is `config.org', tangle it, then compile
+        and load the resulting files."
+          (when (equal (buffer-file-name)
+               (expand-file-name
+                (concat user-emacs-directory "config.org")))
+                (require 'async)
+                (async-start
+                 (lambda ()
+                   (let ((prog-mode-hook nil))
+         (require 'org)
+         (org-babel-tangle-file
+          (expand-file-name
+           (concat user-emacs-directory "config.org")))))
+                 (lambda (response)
+                   (acdw/load-init)
+                   (message "Tangled and loaded: %s" response)))))
+
+        (add-hook 'after-save-hook #'acdw/tangle-init)
+
+        (defun acdw/load-init ()
+          (interactive)
+          (load-file (expand-file-name
+              (concat user-emacs-directory "early-init.el")))
+          (load-file (expand-file-name
+              (concat user-emacs-directory "init.el"))))
+
+
+## Miscellaneous bootstrappy stuff
+
 
-    (defun acdw/tangle-init ()
-      "If the current buffer is `init.org', the code blocks are tangled,
-      and the tangled file is compiled and loaded."
-      (interactive)
-      (when (equal (buffer-file-name)
-                   (expand-file-name (concat user-emacs-directory "config.org")))
-        ;; Avoid running hooks when tangling.
-        (let ((prog-mode-hook nil))
-          (org-babel-tangle))))
-    
-    (add-hook 'after-save-hook #'acdw/tangle-init)
+### Add `~/.emacs.d/lisp/` to `load-path`
+
+        (add-to-list 'load-path
+             (concat user-emacs-directory
+                     (convert-standard-filename "lisp/")))
+
+
+### Require my secrets
+
+        (require 'acdw-secrets)
 
 
 # Early initiation
 
-Emacs 27.1+ uses `early-init.el`, which is evaluated before things like `package.el` and other stuff.  So I have a few settings in there.
+        ;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
 
+        (setq load-prefer-newer t)
 
-## Preamble
 
-Of course, first thing is the modeline.  After that, I set `load-prefer-newer` because, well, it *should*.
+## Increase the garbage collector
 
-      ;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
-    
-    (setq load-prefer-newer t)
+        (setq gc-cons-threshold (* 100 100 1000))
 
+        (add-hook 'after-init-hook
+          (lambda ()
+            (setq gc-cons-threshold (* 100 100 100))
+            (message "gc-cons-threshold restored to %S"
+                     gc-cons-threshold)))
 
-## Computers
 
-I have to set these constants before bootstrapping the package manager, since `straight.el` depends on Git, and at work, those are in a weird place.
+## Add more paths to the `exec-path` when using Windows
 
-    (defconst *acdw/at-work* (eq system-type 'windows-nt))
-    (defconst *acdw/at-larry* (string= (system-name) "larry"))
-    (defconst *acdw/at-bax* (string= (system-name) "bax"))
-    (defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*))
+        (when (eq system-type 'windows-nt)
+          (dolist (path '("~/bin"
+                  "C:/Users/aduckworth/Downloads/PortableGit/bin"
+                  "C:/Users/aduckworth/Downloads/PortableGit/usr/bin"))
+                (add-to-list 'exec-path path)))
 
 
-## Package management
+## Bootstrap `straight.el`
 
-I've started using straight.el, which is great.  It grabs packages from git, and apparently will let me fork and edit them, which I'll probably get around to &#x2026; eventually.
+        (defvar bootstrap-version)
+        (let ((bootstrap-file
+                   (expand-file-name "straight/repos/straight.el/bootstrap.el"
+                         user-emacs-directory))
+                  (bootstrap-version 5))
+          (unless (file-exists-p bootstrap-file)
+                (with-current-buffer
+        (url-retrieve-synchronously
+         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+         'silent 'inhibit-cookies)
+                  (goto-char (point-max))
+                  (eval-print-last-sexp)))
+          (load bootstrap-file nil 'nomessage))
 
 
-### At work, Git's in a weird place
+## Use `use-package`
 
-    (when *acdw/at-work*
-      (add-to-list 'exec-path "~/bin")
-      (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
+        (setq straight-use-package-by-default t)
+        (straight-use-package 'use-package)
 
 
-### [straight.el](https://github.com/raxod502/straight.el)
+## Keep `~/.emacs.d` tidy
 
-I don't know why, but for some reason the bootstrapping doesn't work on Windows.  I have to download the repo directly from github and put it in the right place (`~/.emacs.d/straight/repos/straight.el/`).
+        (straight-use-package 'no-littering)
+        (require 'no-littering)
 
-    (defvar bootstrap-version)
-    (let ((bootstrap-file
-           (expand-file-name "straight/repos/straight.el/bootstrap.el"
-                             user-emacs-directory))
-          (bootstrap-version 5))
-      (unless (file-exists-p bootstrap-file)
-        (with-current-buffer
-            (url-retrieve-synchronously
-             "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
-             'silent 'inhibit-cookies)
-          (goto-char (point-max))
-          (eval-print-last-sexp)))
-      (load bootstrap-file nil 'nomessage))
 
+## Additional `use-package` keywords
 
-### [use-package](https://github.com/jwiegley/use-package)
 
-Yeah, you know it, I know it, we all love it.  It's use-package.
+### `:custom-update`
 
-    (setq straight-use-package-by-default t)
-    (straight-use-package 'use-package)
+        (use-package use-package-custom-update
+          :straight (use-package-custom-update
+             :host github
+             :repo "a13/use-package-custom-update"))
 
 
-# Begin init.el
+## Setup async
 
-    ;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
-    <<tangle-on-save>>
+        (straight-use-package 'async)
+        (require 'async)
 
 
 # Macros
 
 
-## cuss
+## Customizing variables
 
-I like `use-package`,  but I don't like doing the weird "pseudo-package" stuff a lot of people do in their emacs configs.  Partially because I have to set `:straight nil` on a lot of built-in packages, but also because I think being *that* obsessive over one interface through the whole config is &#x2026; I don't know, short-sighted?
+        (defmacro cuss (var val)
+          "Basically `use-package''s `:custom', but without using either."
+          `(progn
+                 (funcall (or (get ',var 'custom-set) #'set-default)
+              ',var ,val)))
 
-Either way, I *do* like the `:custom` interface that `use-package` has, so I've re-implemented it in my own macro.  This way I don't have to worry about whether to `setq` or `custom-set-variable` or whatever.  Just `cuss`!
 
-    (defmacro cuss (var val)
-      "Basically `use-package''s `:custom', but without either."
-      `(progn
-         (funcall (or (get ',var 'custom-set) #'set-default)
-                  ',var ,val)))
+# Theme
 
+I'm using the [Modus](https://protesilaos.com/modus-themes/) themes.
 
-# Files
+        (defmacro modus-themes-format-sexp (sexp &rest objects)
+          `(eval (read (format ,(format "%S" sexp) ,@objects))))
 
+        (dolist (theme '("operandi" "vivendi"))
+          (modus-themes-format-sexp
+           (use-package modus-%1$s-theme
+                 :init
+                 (setq modus-%1$s-theme-slanted-constructs t
+           modus-%1$s-theme-bold-constructs t
+           modus-%1$s-theme-fringes 'subtle
+           modus-%1$s-theme-mode-line '3d
+           modus-%1$s-theme-syntax 'yellow-comments
+           modus-%1$s-theme-intense-hl-line nil
+           modus-%1$s-theme-intense-paren-match t
+           modus-%1$s-theme-links nil
+           modus-%1$s-theme-no-mixed-fonts nil
+           modus-%1$s-theme-prompts nil
+           modus-%1$s-theme-completions nil
+           modus-%1$s-theme-diffs nil
+           modus-%1$s-theme-org-blocks 'grayscale
+           modus-%1$s-theme-headings
+           '((1 . section)
+             (2 . line)
+             (t . rainbow-line-no-bold))
+           modus-%1$s-theme-variable-pitch-headings nil
+           modus-%1$s-theme-scale-headings t
+           modus-%1$s-theme-scale-1 1.1
+           modus-%1$s-theme-scale-2 1.15
+           modus-%1$s-theme-scale-3 1.21
+           modus-%1$s-theme-scale-4 1.27
+           modus-%1$s-theme-scale-5 1.33))
+           theme))
 
-## [Keep .emacs.d tidy](https://github.com/emacscollective/no-littering)
+I also want to switch themes between night and day.
 
-    (straight-use-package 'no-littering)
-    (require 'no-littering)
+        (use-package theme-changer
+          :custom
+          (calendar-latitude 30.39)
+          (calendar-longitude -91.83)
+          :config
+          (change-theme 'modus-operandi 'modus-vivendi))
 
 
-## Customize
+# Simplify GUI
 
-I don't like the customize interface, but I still sometimes use it when I'm not sure what the name of a variable is.  So I save the stuff to a file, I just don't load it or keep track of it.
 
-    (cuss custom-file (no-littering-expand-etc-file-name "custom.el"))
+## Remove unneeded GUI elements
 
+        (menu-bar-mode -1)
+        (tool-bar-mode -1)
+        (scroll-bar-mode -1)
+        (horizontal-scroll-bar-mode -1)
 
-## Encoding
 
-    (prefer-coding-system 'utf-8-unix)
-    (set-default-coding-systems 'utf-8-unix)
-    (set-terminal-coding-system 'utf-8-unix)
-    (set-keyboard-coding-system 'utf-8-unix)
-    (set-selection-coding-system 'utf-8-unix)
-    (set-file-name-coding-system 'utf-8-unix)
-    (set-clipboard-coding-system 'utf-8-unix)
-    (set-buffer-file-coding-system 'utf-8-unix)
-    (cuss locale-coding-system 'utf-8)
-    (cuss x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
+## Word wrap and operate visually
 
+        (global-visual-line-mode 1)
 
-## Recent files
 
-    (use-package recentf
-      :config
-      (add-to-list 'recentf-exclude no-littering-var-directory)
-      (add-to-list 'recentf-exclude no-littering-etc-directory)
-      :custom
-      (recentf-max-menu-items 100)
-      (recentf-max-saved-items 100)
-      :config
-      (recentf-mode 1))
+## Modeline
 
+        (use-package smart-mode-line
+          :custom
+          (sml/no-confirm-load-theme t)
+          :config
+          (sml/setup))
 
-## Backups
+        (defun rm/whitelist-add (regexp)
+          "Add a REGEXP to the whitelist for `rich-minority'."
+          (if (listp 'rm--whitelist-regexps)
+                  (add-to-list 'rm--whitelist-regexps regexp)
+                (setq rm--whitelist-regexps `(,regexp)))
+          (setq rm-whitelist
+        (mapconcat 'identity rm--whitelist-regexps "\\|")))
 
-    (cuss backup-directory-alist
-          `((".*" . ,(no-littering-expand-var-file-name "backup/"))))
+        (use-package rich-minority
+          :config
+          (rm/whitelist-add "^$"))
 
 
-## [Autosave](https://github.com/bbatsov/super-save)
+## Show `^L` as a line
 
-    (use-package super-save
-      :custom
-      (auto-save-default nil)
-      (super-save-exclude '(".gpg"))
-      :config
-      (super-save-mode 1))
+        (use-package form-feed
+          :hook
+          ((text-mode prog-mode) . form-feed-mode))
 
 
-## [Save places](https://www.emacswiki.org/emacs/SavePlace)
+## Cursor
 
-    (use-package saveplace
-      :custom
-      (save-place-file (no-littering-expand-var-file-name "places"))
-      (save-place-forget-unreadable-files (not *acdw/at-work*))
-      :config
-      (save-place-mode 1))
+        (cuss cursor-type 'bar)
+        (cuss cursor-in-non-selected-windows 'hollow)
 
 
-## [Save history](https://www.emacswiki.org/emacs/SaveHist)
+# Fonts
 
-    (use-package savehist
-      :custom
-      (savehist-addtional-variables
-       '(kill-ring
-         search-ring
-         regexp-search-ring))
-      (savehist-save-minibuffer-history t)
-      :config
-      (savehist-mode 1))
+See [this StackExchange question and answer](https://emacs.stackexchange.com/questions/12351/when-to-call-find-font-if-launching-emacs-in-daemon-mode) for more information on why I have these font settings applied in a hook.
 
+        (require 'cl)
+        (defun font-candidate (&rest fonts)
+          (loop for font in fonts
+        when (find-font (font-spec :name font))
+        return font))
 
-# User interface
+        (defun acdw/setup-fonts ()
+          "Setup fonts.  This has to happen after the frame is set up for
+          the first time, so add it to `focus-in-hook'.  It removes
+          itself."
+          (interactive)
+          (set-face-attribute 'default nil
+                      :font
+                      (font-candidate
+                       "Libertinus Mono-11"
+                       "Linux Libertine Mono O-11"
+                       "Go Mono-11"
+                       "Consolas-11"))
 
+          (set-face-attribute 'fixed-pitch nil
+                      :font
+                      (font-candidate
+                       "Libertinus Mono-11"
+                       "Linux Libertine Mono O-11"
+                       "Go Mono-11"
+                       "Consolas-11"))
 
-## Look
+          (set-face-attribute 'variable-pitch nil
+                      :font
+                      (font-candidate
+                       "Libertinus Serif-14"
+                       "Linux Libertine O-12"
+                       "Georgia-11"))
 
+          (remove-hook 'focus-in-hook #'acdw/setup-fonts))
 
-### Frames and windows
+        (add-hook 'focus-in-hook #'acdw/setup-fonts)
 
-1.  Frame defaults
 
-        (cuss default-frame-alist '((tool-bar-lines . 0)
-                                    (menu-bar-lines . 0)
-                                    (vertical-scroll-bars . nil)
-                                    (horizontal-scroll-bars . nil)
-                                    (right-divider-width . 2)
-                                    (bottom-divider-width . 2)
-                                    (left-fringe-width . 2)
-                                    (right-fringe-width . 2)))
-        
-        ;; also disable these with modes, so I can re-enable them more easily
-        (menu-bar-mode -1)
-        (tool-bar-mode -1)
-        (scroll-bar-mode -1)
+## Unicode
 
-2.  Resizing
+        (use-package unicode-fonts
+          :config
+          (unicode-fonts-setup))
 
-        (cuss frame-resize-pixelwise t)
-        (cuss window-combination-resize t)
 
+## Variable pitch faces
 
-### Buffers
+        (add-hook 'text-mode-hook #'variable-pitch-mode)
 
-    (cuss uniquify-buffer-name-style 'forward)
-    
-    (cuss indicate-buffer-boundaries
-          '((top . right)
-            (bottom . right)
-            (t . nil)))
 
-1.  Startup buffer
+# Ease of use
 
-        (cuss inhibit-startup-buffer-menu t)
-        (cuss inhibit-startup-screen t)
-        (cuss initial-buffer-choice t) ; start in *scratch*
-        (cuss initial-scratch-message nil)
 
+## Selectrum & Prescient
 
-### Cursor
+        (use-package selectrum
+          :config
+          (selectrum-mode 1))
 
-    (cuss cursor-type 'bar)
-    (cuss cursor-in-non-selected-windows 'hollow)
-    (blink-cursor-mode 0)
+        (use-package prescient
+          :config
+          (prescient-persist-mode 1))
 
+        (use-package selectrum-prescient
+          :after (selectrum prescient)
+          :config
+          (selectrum-prescient-mode 1))
 
-### Interactivity
 
-1.  Mouse
+## CtrlF
 
-        (cuss mouse-yank-at-point t)
+        (use-package ctrlf
+          :custom
+          (ctrlf-show-match-count-at-eol nil)
+          :bind
+          ("C-s" . ctrlf-forward-regexp)
+          ("C-r" . ctrlf-backward-regexp)
+          ("C-M-s" . ctrlf-forward-literal)
+          ("C-M-r" . ctrlf-backward-literal)
+          :config
+          (ctrlf-mode 1))
 
-2.  Dialogs
 
-        (cuss use-dialog-box nil)
+## Startup
 
-3.  Disabled functions
+        (cuss inhibit-startup-buffer-menu t)
+        (cuss inhibit-startup-screen t)
+        (cuss initial-buffer-choice t)
+        (cuss initial-scratch-message ";; Hi there!\n")
 
-        (cuss disabled-command-function nil)
 
-4.  Function aliases
+## Ignore case
 
-        (fset 'yes-or-no-p #'y-or-n-p)
+        (cuss completion-ignore-case t)
+        (cuss read-buffer-completion-ignore-case t)
+        (cuss read-file-name-completion-ignore-case t)
 
 
-### Miscellaneous
+## Which key
 
-1.  Convert `^L` to a line
+        (use-package which-key
+          :custom
+          (which-key-popup-type 'minibuffer)
+          :config
+          (which-key-mode))
 
-        (use-package page-break-lines
-          :config
-          (global-page-break-lines-mode 1))
 
+## Miscellaneous settings
 
-## Themes: [Modus](https://github.com/protesilaos/modus-themes)
 
-    (use-package modus-operandi-theme)
-    (use-package modus-vivendi-theme)
+### Set view mode when in a read-only file
 
+        (cuss view-read-only t)
 
-### [Change themes](https://github.com/hadronzoo/theme-changer) based on time of day
 
-    (use-package theme-changer
-      :init
-      (setq calendar-location-name "Baton Rouge, LA"
-            calendar-latitude 30.39
-            calendar-longitude -91.83)
-      :config
-      (change-theme 'modus-operandi 'modus-vivendi))
+### Don't use dialog boxen
 
+        (cuss use-dialog-box nil)
 
-### Disable the current theme when a theme is interactively loaded
 
-This doesn't happen often, but I'll be ready when it does.
+### Enable all functions
 
-    (defadvice load-theme
-        (before disable-before-load (theme &optional no-confirm no-enable) activate)
-      (mapc 'disable-theme custom-enabled-themes))
+        (cuss disabled-command-function nil)
 
 
-## Modeline: [smart-mode-line](https://github.com/Malabarba/smart-mode-line)
+### Shorter confirmations
 
-    (use-package smart-mode-line
-      :config
-      (sml/setup))
+        (fset 'yes-or-no-p #'y-or-n-p)
 
-I hide all minor-modes by default for a clean modeline.  However, I can add them back by adding them to the whitelist with `(add-to-list 'rm-whitelist " REGEX")`.
 
-    (defun rm-whitelist-add (regexp)
-      "Add a regexp to the whitelist."
-      (setq rm-whitelist
-            (mapconcat 'identity rm--whitelist-regexps "\\|")))
-    
-    (setq rm--whitelist-regexps '("^$"))
-    
-    (use-package rich-minority
-      :custom
-      (rm-whitelist
-       (mapconcat 'identity rm--whitelist-regexps "\\|")))
+### Uniquify buffer names
 
+        (require 'uniquify)
+        (cuss uniquify-buffer-name-style 'forward)
 
-## Fonts
 
-I'm sure there's a better way to do this, but for now, this is the best I've got.  I append to the `face-font-family-alternatives` because I don't know what kind of weird magic they're doing in there.
+### Show buffer boundaries
 
-    (cuss face-font-family-alternatives
-          '(("Monospace" "courier" "fixed")
-            ("Monospace Serif" "Courier 10 Pitch" "Consolas" "Courier Std" "FreeMono" "Nimbus Mono L" "courier" "fixed")
-            ("courier" "CMU Typewriter Text" "fixed")
-            ("Sans Serif" "helv" "helvetica" "arial" "fixed")
-            ("helv" "helvetica" "arial" "fixed")
-            ;; now mine
-            ("FixedPitch" "Go Mono" "DejaVu Sans Mono" "Consolas" "fixed")
-            ("VariablePitch" "Go" "DejaVu Sans" "Georgia" "fixed")))
-    
-    (set-face-attribute 'default nil
-                        :family "FixedPitch"
-                        :height 110)
-    
-    (set-face-attribute 'fixed-pitch nil
-                        :family "FixedPitch"
-                        :height 110)
-    
-    (set-face-attribute 'variable-pitch nil
-                        :family "VariablePitch"
-                        :height 130)
+        (cuss indicate-buffer-boundaries
+                  '((top . right)
+        (bottom . right)
+        (t . nil)))
 
 
-### Ligatures
+### Hippie expand
 
-These cause big problems with cc-mode (as in, totally freezing everything), so I'm going to comment it out.
+        (global-set-key (kbd "M-/") 'hippie-expand)
 
-    ;; (use-package ligature
-    ;;   :straight (ligature
-    ;;              :host github
-    ;;              :repo "mickeynp/ligature.el")
-    ;;   :config
-    ;;   (ligature-set-ligatures 'prog-mode
-    ;;                           '("++" "--" "/=" "&&" "||" "||="
-    ;;                             "->" "=>" "::" "__"
-    ;;                             "==" "===" "!=" "=/=" "!=="
-    ;;                             "<=" ">=" "<=>"
-    ;;                             "/*" "*/" "//" "///"
-    ;;                             "\\n" "\\\\"
-    ;;                             "<<" "<<<" "<<=" ">>" ">>>" ">>="
-    ;;                             "|=" "^="
-    ;;                             "**" "--" "---" "----" "-----"
-    ;;                             "==" "===" "====" "====="
-    ;;                             "</" "<!--" "</>" "-->" "/>"
-    ;;                             ":=" "..." ":>" ":<" ">:" "<:"
-    ;;                             "::=" ;; add others here
-    ;;                             ))
-    ;;   :config
-    ;;   (global-ligature-mode))
 
+### iBuffer
 
-### [Unicode fonts](https://github.com/rolandwalker/unicode-fonts)
+        (global-set-key (kbd "C-x C-b") 'ibuffer)
 
-    (use-package persistent-soft)
-    
-    (use-package unicode-fonts
-      :after persistent-soft
-      :config
-      (unicode-fonts-setup))
 
+### Zap-up-to-char, not zap-to-char
 
-# Editing
+        (autoload 'zap-up-to-char "misc"
+          "Kill up to, but not including, ARGth occurrence of CHAR." t)
 
+        (global-set-key (kbd "M-z") 'zap-up-to-char)
 
-## Completion
 
-I was using company, but I think it might've been causing issues with `awk-mode`, so I'm trying `hippie-mode` right now.  So far, I'm also enjoying not having a popup all the time.
+### Other "[better defaults](https://git.sr.ht/~technomancy/better-defaults/tree/master/better-defaults.el)"
 
-    (bind-key "M-/" #'hippie-expand)
+        (cuss save-interprogram-paste-before-kill t)
+        (cuss apropos-do-all t)
+        (cuss mouse-yank-at-point t)
+        (cuss require-final-newline t)
+        (cuss visible-bell (not (string= (system-name) "larry")))
+        (cuss ediff-window-setup-function #'ediff-setup-windows-plain)
 
 
-## Ignore case
+### So-long-mode
 
-    (cuss completion-ignore-case t)
-    (cuss read-buffer-completion-ignore-case t)
-    (cuss read-file-name-completion-ignore-case t)
+        (if (boundp 'global-so-long-mode)
+                (global-so-long-mode))
 
 
-## Selection & Minibuffer
+### Change `just-one-space` to `cycle-space`
 
+        (defun acdw/cycle-spacing-1 ()
+          (interactive)
+          (cycle-spacing -1))
 
-### Selectrum & Prescient
+        (bind-key [remap just-one-space] #'acdw/cycle-spacing-1)
 
-    (use-package selectrum
-      :config
-      (selectrum-mode +1))
-    
-    (use-package prescient
-      :config
-      (prescient-persist-mode +1))
-    
-    (use-package selectrum-prescient
-      :after (selectrum prescient)
-      :config
-      (selectrum-prescient-mode +1))
 
+# Persistence
 
-## Search
 
+## Auto-saves
 
-### CtrlF for searching
+        (use-package super-save
+          :custom
+          (auto-save-default nil)
+          (super-save-exclue '(".gpg"))
+          :config
+          (super-save-mode 1))
 
-    (use-package ctrlf
-      :custom
-      (ctrlf-show-match-count-at-eol nil)
-      :config
-      (ctrlf-mode +1)
-      :bind
-      ("C-s" . ctrlf-forward-regexp))
 
+## Backup files
+
+        (cuss backup-directory-alist
+                  `((".*" . ,(no-littering-expand-var-file-name "backup/"))))
+
+        (cuss backup-by-copying 1)
+        (cuss delete-old-versions -1)
+        (cuss version-control t)
+        (cuss vc-make-backup-files t)
+
+
+## Recent files
+
+        (use-package recentf
+          :custom-update
+          (recentf-exclude
+           '(no-littering-var-directory
+                 no-littering-etc-directory))
+          :custom
+          (recentf-max-menu-items 100)
+          (recentf-max-saved-items 100)
+          :config
+          (recentf-mode 1))
+
+
+### Easily navigate recent files
+
+        (defun recentf-find-file ()
+          "Find a recent file using `completing-read'."
+          (interactive)
+          (let ((file (completing-read "Recent file: " recentf-list nil t)))
+                (when file
+                  (find-file file))))
+
+        (bind-key "C-x C-r" #'recentf-find-file)
+
+
+## Save places in visited files
+
+        (use-package saveplace
+          :custom
+          (save-place-file (no-littering-expand-var-file-name "places"))
+          (save-place-forget-unreadable-files (not
+                                       (eq system-type 'windows-nt))
+          :config
+          (save-place-mode 1)))
 
-### [Visual Regexp](https://github.com/benma/visual-regexp.el)
 
-    (use-package visual-regexp
-      :bind
-      ([remap query-replace] . 'vr/query-replace))
+## Save history
+
+        (use-package savehist
+          :custom
+          (savehist-additional-variables
+           '(kill-ring
+                 search-ring
+                 regexp-search-ring))
+          (savehist-save-minibuffer-history t)
+          (history-length t)
+          (history-delete-duplicates t)
+          :config
+          (savehist-mode 1))
 
 
 ## Undo
 
-    (use-package undo-fu
-      :bind
-      ("C-/" . undo-fu-only-undo)
-      ("C-?" . undo-fu-only-redo))
-    
-    (use-package undo-fu-session
-      :after no-littering
-      :custom
-      (undo-fu-session-incompatible-files
-       '("/COMMIT_EDITMSG\\'"
-         "/git-rebase-todo\\'"))
-      (undo-fu-session-directory
-       (no-littering-expand-var-file-name "undos/"))
-      :config
-      (global-undo-fu-session-mode +1))
+        (use-package undo-fu-session
+          :after (no-littering undo-fu)
+          :custom
+          (undo-fu-session-incompatible-files
+           '("COMMIT_EDITMSG\\'"
+                 "/git-rebase-todo\\'"))
+          (undo-fu-session-directory
+           (no-littering-expand-var-file-name "undos/"))
+          :config
+          (global-undo-fu-session-mode 1))
 
 
-## Visual editing
+# General editing
 
 
-### `zap-to-char` replacement
+## File encoding
 
-    (use-package zop-to-char
-      :bind
-      ([remap zap-to-char] . zop-to-char)
-      ([remap zap-up-to-char] . zop-up-to-char))
+I'm going to be honest &#x2013; most of this is a stab in the dark.
 
+        (set-language-environment 'utf-8)
+        (set-terminal-coding-system 'utf-8)
+        (cuss locale-coding-system 'utf-8)
+        (set-default-coding-systems 'utf-8)
+        (set-selection-coding-system 'utf-8)
+        (prefer-coding-system 'utf-8)
 
-### Operate on a line if there's no current region
+        ;; from https://www.emacswiki.org/emacs/EndOfLineTips
 
-    (use-package whole-line-or-region
-      :config
-      (whole-line-or-region-global-mode +1))
+        (defun acdw/no-junk-please-were-unixish ()
+          "Convert line endings to UNIX, dammit."
+          (let ((coding-str (symbol-name buffer-file-coding-system)))
+                (when (string-match "-\\(?:dos\\|mac\\)$" coding-str)
+                  (set-buffer-file-coding-system 'unix))))
 
+        (add-hook 'find-file-hooks #'acdw/no-junk-please-were-unixish)
+
+
+## Undo
 
-### Expand-region
+        (use-package undo-fu
+          :bind
+          ("C-/" . undo-fu-only-undo)
+          ("C-?" . undo-fu-only-redo))
 
-    (use-package expand-region
-      :bind
-      ("C-=" . er/expand-region)
-      ("C-+" . er/contract-region))
+
+## Find/replace
+
+        (use-package visual-regexp
+          :bind
+          ("C-c r" . 'vr/replace)
+          ("C-c q" . 'vr/query-replace))
+
+
+## Visual editing
 
 
 ### Volatile highlights
 
-    (use-package volatile-highlights
-      :config
-      (volatile-highlights-mode 1))
+        (use-package volatile-highlights
+          :config
+          (volatile-highlights-mode 1))
 
 
-### Visual line mode
+### Expand region
 
-    (global-visual-line-mode 1)
+        (use-package expand-region
+          :bind
+          ("C-=" . er/expand-region)
+          ("C-+" . er/contract-region))
 
 
-### A better `move-beginning-of-line`
+## Clean up white space on save
 
-    (defun my/smarter-move-beginning-of-line (arg)
-      "Move point back to indentation of beginning of line.
-    
-    Move point to the first non-whitespace character on this line.
-    If point is already there, move to the beginning of the line.
-    Effectively toggle between the first non-whitespace character and
-    the beginning of the line.
-    
-    If ARG is not nil or 1, move forward ARG - 1 lines first.  If
-    point reaches the beginning or end of the buffer, stop there."
-      (interactive "^p")
-      (setq arg (or arg 1))
-    
-      ;; Move lines first
-      (when (/= arg 1)
-        (let ((line-move-visual nil))
-          (forward-line (1- arg))))
-    
-      (let ((orig-point (point)))
-        (back-to-indentation)
-        (when (= orig-point (point))
-          (move-beginning-of-line 1))))
-    
-    (bind-key "C-a" #'my/smarter-move-beginning-of-line)
+        (add-hook 'before-save-hook #'whitespace-cleanup)
+        (add-hook 'before-save-hook #'delete-trailing-whitespace)
 
 
-## Delete the selection when typing
+## Automatically revert a file to what it is on disk
 
-    (delete-selection-mode 1)
+        (global-auto-revert-mode 1)
 
 
-## Clipboard
+# Writing
 
-    (cuss save-interprogram-paste-before-kill t)
 
+## Word count
 
-## Tabs & Spaces
+        (use-package wc-mode
+          :config
+          (rm/whitelist-add "WC")
+          :hook text-mode)
 
-    (cuss indent-tabs-mode nil)
-    (cuss sentence-end-double-space t)
 
+## Visual fill column mode
 
-# Programming
+        (use-package visual-fill-column
+          :custom
+          (split-window-preferred-function
+           'visual-fill-column-split-window-sensibly)
+          (visual-fill-column-center-text t)
+          (fill-column 80)
+          :config
+          (advice-add 'text-scale-adjust
+              :after #'visual-fill-column-adjust)
+          :hook
+          (text-mode . visual-fill-column-mode))
 
 
-## Git
+## Org mode
+
+        (use-package org
+          :custom
+          (org-startup-indented t)
+          (org-src-tab-acts-natively t)
+          (org-hide-emphasis-markers t)
+          (org-fontify-done-headline t)
+          (org-fontify-whole-heading-line t)
+          (org-hide-leading-stars t)
+          (org-hidden-keywords '(author date title))
+          (org-src-window-setup 'current-window)
+          (org-pretty-entities t))
+
+
+### Enable markdown export
+
+        (require 'ox-md)
+
+
+### Ensure blank lines between headings and before contents
+
+from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-headings-and-before-contents)
+
+        ;;;###autoload
+        (defun unpackaged/org-fix-blank-lines (&optional prefix)
+          "Ensure that blank lines exist between headings and between
+        headings and their contents.  With prefix, operate on whole
+        buffer.  Ensures that blank lines exist after each headings's
+        drawers."
+          (interactive "P")
+          (org-map-entries
+           (lambda ()
+                 (org-with-wide-buffer
+                  ;; `org-map-entries' narrows the buffer, which prevents us
+                  ;; from seeing newlines before the current heading, so we
+                  ;; do this part widened.
+                  (while (not (looking-back "\n\n" nil))
+        ;; Insert blank lines before heading.
+        (insert "\n")))
+                 (let ((end (org-entry-end-position)))
+                   ;; Insert blank lines before entry content.
+                   (forward-line)
+                   (while (and (org-at-planning-p)
+                   (< (point) (point-max)))
+         ;; Skip planning lines
+         (forward-line))
+                   (while (re-search-forward org-drawer-regexp end t)
+         ;; Skip drawers.  You might think that
+         ;; `org-at-drawer-p' would suffice, but for some reason
+         ;; it doesn't work correctly when operating on hidden
+         ;; text.  This works, taken from
+         ;; `org-agenda-get-some-entry-text'.
+         (re-search-forward "^[ \t]*:END:.*\n?" end t)
+         (goto-char (match-end 0)))
+                   (unless (or (= (point) (point-max))
+                   (org-at-heading-p)
+                   (looking-at-p "\n"))
+         (insert "\n"))))
+           t (if prefix
+         nil
+                   'tree)))
+
+
+### `org-return-dwim`
+
+from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#org-return-dwim)
+
+        (defun unpackaged/org-element-descendant-of (type element)
+          "Return non-nil if ELEMENT is a descendant of TYPE.
+        TYPE should be an element type, like `item' or `paragraph'.
+        ELEMENT should be a list like that returned by
+        `org-element-context'."
+          ;; MAYBE: Use `org-element-lineage'.
+          (when-let* ((parent (org-element-property :parent element)))
+                (or (eq type (car parent))
+        (unpackaged/org-element-descendant-of type parent))))
+
+        ;;;###autoload
+        (defun unpackaged/org-return-dwim (&optional default)
+          "A helpful replacement for `org-return'.  With prefix, call `org-return'.
+
+        On headings, move point to position after entry content.  In
+        lists, insert a new item or end the list, with checkbox if
+        appropriate.  In tables, insert a new row or end the table."
+          ;; Inspired by John Kitchin: http://kitchingroup.cheme.cmu.edu/blog/2017/04/09/A-better-return-in-org-mode/
+          (interactive "P")
+          (if default
+                  (org-return)
+                (cond
+                 ;; Act depending on context around point.
+
+                 ;; NOTE: I prefer RET to not follow links, but by uncommenting this block,
+                 ;; links will be followed.
+
+                 ;; ((eq 'link (car (org-element-context)))
+                 ;;  ;; Link: Open it.
+                 ;;  (org-open-at-point-global))
+
+                 ((org-at-heading-p)
+                  ;; Heading: Move to position after entry content.
+                  ;; NOTE: This is probably the most interesting feature of this function.
+                  (let ((heading-start (org-entry-beginning-position)))
+        (goto-char (org-entry-end-position))
+        (cond ((and (org-at-heading-p)
+                    (= heading-start (org-entry-beginning-position)))
+               ;; Entry ends on its heading; add newline after
+               (end-of-line)
+               (insert "\n\n"))
+              (t
+               ;; Entry ends after its heading; back up
+               (forward-line -1)
+               (end-of-line)
+               (when (org-at-heading-p)
+                 ;; At the same heading
+                 (forward-line)
+                 (insert "\n")
+                 (forward-line -1))
+               ;; FIXME: looking-back is supposed to be called with more arguments.
+               (while (not (looking-back (rx (repeat 3 (seq (optional blank) "\n")))))
+                 (insert "\n"))
+               (forward-line -1)))))
+
+                 ((org-at-item-checkbox-p)
+                  ;; Checkbox: Insert new item with checkbox.
+                  (org-insert-todo-heading nil))
+
+                 ((org-in-item-p)
+                  ;; Plain list.  Yes, this gets a little complicated...
+                  (let ((context (org-element-context)))
+        (if (or (eq 'plain-list (car context))  ; First item in list
+                (and (eq 'item (car context))
+                     (not (eq (org-element-property :contents-begin context)
+                              (org-element-property :contents-end context))))
+                (unpackaged/org-element-descendant-of 'item context))  ; Element in list item, e.g. a link
+            ;; Non-empty item: Add new item.
+            (org-insert-item)
+          ;; Empty item: Close the list.
+          ;; TODO: Do this with org functions rather than operating on the text. Can't seem to find the right function.
+          (delete-region (line-beginning-position) (line-end-position))
+          (insert "\n"))))
+
+                 ((when (fboundp 'org-inlinetask-in-task-p)
+        (org-inlinetask-in-task-p))
+                  ;; Inline task: Don't insert a new heading.
+                  (org-return))
+
+                 ((org-at-table-p)
+                  (cond ((save-excursion
+               (beginning-of-line)
+               ;; See `org-table-next-field'.
+               (cl-loop with end = (line-end-position)
+                        for cell = (org-element-table-cell-parser)
+                        always (equal (org-element-property :contents-begin cell)
+                                      (org-element-property :contents-end cell))
+                        while (re-search-forward "|" end t)))
+             ;; Empty row: end the table.
+             (delete-region (line-beginning-position) (line-end-position))
+             (org-return))
+            (t
+             ;; Non-empty row: call `org-return'.
+             (org-return))))
+                 (t
+                  ;; All other cases: call `org-return'.
+                  (org-return)))))
+
+        (bind-key "RET" #'unpackaged/org-return-dwim 'org-mode-map)
+
+
+# Coding
+
+
+## Formatting
+
+
+### Indenting
+
+        (use-package aggressive-indent
+          :config
+          (global-aggressive-indent-mode 1))
 
-    (use-package magit
-      :bind
-      ("C-x g" . magit-status)
-      :config
-      (add-to-list 'magit-no-confirm 'stage-all-changes))
-    
-    ;; hook into `prescient'
-    (define-advice magit-list-refs
-        (:around (orig &optional namespaces format sortby)
-                 prescient-sort)
-      "Apply prescient sorting when listing refs."
-      (let ((res (funcall orig namespaces format sortby)))
-        (if (or sortby
-                magit-list-refs-sortby
-                (not selectrum-should-sort-p))
-            res
-          (prescient-sort res))))
-    
-    (when (executable-find "cmake")
-      (use-package libgit)
-      (use-package magit-libgit))
-    
-    (use-package forge
-      :after magit
-      :custom
-      (forge-owned-accounts '(("duckwork"))))
 
+### Smart tabs
+
+        (use-package smart-tabs-mode
+          :custom
+          (whitespace-style
+           '(face trailing tabs spaces lines newline
+          empty indentation space-before-tab
+          space-mark tab-mark newline-mark))
+          :config
+          (smart-tabs-insinuate 'c 'c++ 'javascript 'java 'ruby))
 
-## Code display
 
-    (add-hook 'prog-mode-hook #'prettify-symbols-mode)
+## Display
 
 
-### Parentheses
+### Prettify symbols mode
 
-    (cuss show-paren-style 'mixed)
-    (show-paren-mode +1)
-    
-    (use-package smartparens
-      :init
-      (defun acdw/setup-smartparens ()
-        (require 'smartparens-config)
-        (smartparens-mode +1))
-      :hook
-      (prog-mode . acdw/setup-smartparens))
-    
-    (use-package rainbow-delimiters
-      :hook
-      (prog-mode . rainbow-delimiters-mode))
+        (add-hook 'prog-mode-hook #'prettify-symbols-mode)
 
 
-## Line numbers
+### Parentheses and frens
 
-    (add-hook 'prog-mode-hook
-              (if (and (fboundp 'display-line-numbers-mode)
-                       (display-graphic-p))
-                  #'display-line-numbers-mode
-                #'linum-mode))
+1.  `show-paren-style`
 
+                (cuss show-paren-style 'mixed)
+                (show-paren-mode 1)
 
-## Languages
+2.  Smartparens
 
+                (use-package smartparens
+                  :init
+                  (defun acdw/setup-smartparens ()
+                        (require 'smartparens-config)
+                        (smartparens-mode 1))
+                  :hook
+                  (prog-mode . acdw/setup-smartparens))
 
-### Shell
+3.  Rainbow delimiters
 
-    (use-package shfmt
-      :custom
-      (shfmt-arguments '("-i" "4" "-ci"))
-      :hook
-      (sh-mode . shfmt-on-save-mode))
-    
-    ;; fish
-    (use-package fish-mode)
+                (use-package rainbow-delimiters
+                  :hook (prog-mode . rainbow-delimiters-mode))
 
 
-### Lua
+### Rainbow mode
 
-    (use-package lua-mode
-      :mode "\\.lua\\'"
-      :interpreter "lua")
+        (use-package rainbow-mode
+          :custom
+          (rainbow-x-colors nil)
+          :hook prog-mode)
 
 
-### Fennel
+### Line numbers
 
-    (use-package fennel-mode
-      :mode "\\.fnl\\'")
+        (defun acdw/enable-line-numbers ()
+          "Enable line numbers, either through `display-line-numbers-mode'
+        or through `linum-mode'."
+          (if (and (fboundp 'display-line-numbers-mode)
+           (display-graphic-p))
+                  (progn
+        (display-line-numbers-mode 1)
+        (cuss display-line-numbers-width 2))
+                (linum-mode 1)))
 
+        (add-hook 'prog-mode-hook #'acdw/enable-line-numbers)
 
-### Web
 
-    (use-package web-mode
-      :custom
-      (web-mode-markup-indent-offset 2)
-      (web-mode-code-indent-offset 2)
-      (web-mode-css-indent-offset 2)
-      :mode (("\\.ts\\'" . web-mode)
-             ("\\.html?\\'" . web-mode)
-             ("\\.css?\\'" . web-mode)
-             ("\\.js\\'" . web-mode)))
+## Git
 
+        (use-package magit
+          :bind
+          ("C-x g" . magit-status)
+          :custom-update
+          (magit-no-confirm '(stage-all-changes)))
 
-### SSH config
 
-    (use-package ssh-config-mode)
+### Hook into `prescient`
 
+        (define-advice magit-list-refs
+                (:around (orig &optional namespaces format sortby)
+             prescient-sort)
+          "Apply prescient sorting when listing refs."
+          (let ((res (funcall orig namespaces format sortby)))
+                (if (or sortby
+            magit-list-refs-sortby
+            (not selectrum-should-sort-p))
+        res
+                  (prescient-sort res))))
 
-# Writing
 
+### Use `libgit` when I can build it (requires `cmake`)
 
-## Word count
+        (when (executable-find "cmake")
+          (use-package libgit)
+          (use-package magit-libgit))
 
-    (use-package wc-mode
-      :init
-      (rm-whitelist-add "WC")
-      :hook
-      (text-mode . wc-mode))
 
+### Git "forge" capabilities
 
-## Visual fill column
+        (use-package forge
+          :after magit
+          :unless (eq system-type 'windows-nt)
+          :custom
+          (forge-owned-accounts
+           '(("duckwork"))))
 
-    (use-package visual-fill-column
-      :custom
-      (split-window-preferred-function 'visual-fill-column-split-window-sensibly)
-      (visual-fill-column-center-text t)
-      (fill-column 100)
-      :config
-      (advice-add 'text-scale-adjust
-                  :after #'visual-fill-column-adjust)
-      :hook
-      (org-mode . visual-fill-column-mode))
 
+## Programming languages
 
-## Mixed-pitch
 
-    (use-package mixed-pitch
-      :hook
-      (text-mode . mixed-pitch-mode))
+### Fish shell
 
+        (use-package fish-mode)
 
-## Org mode
 
-    (use-package org
-      :custom
-      (org-startup-indented t)
-      (org-src-tab-acts-natively t)
-      (org-hide-emphasis-markers t)
-      (org-fontify-done-headline t)
-      (org-hide-leading-stars t)
-      (org-pretty-entities t)
-      (org-src-window-setup 'current-window))
-    
-    (use-package org-superstar
-      :hook
-      (org-mode . org-superstar-mode))
+### Lisps
 
+1.  Common Lisp (SLIME)
 
-# Applications
+                (use-package slime
+                  :when (executable-find "sbcl")
+                  :custom
+                  (inferior-lisp-program "sbcl")
+                  (slime-contribs '(slime-fancy)))
 
+2.  Fennel
+
+                (use-package fennel-mode
+                  :mode "\\.fnl\\'")
+
+
+### Lua
+
+        (use-package lua-mode
+          :mode "\\.lua\\'"
+          :interpreter "lua")
 
-## Gemini & Gopher
-
-    (use-package elpher
-      :straight (elpher
-                 :repo "git://thelambdalab.xyz/elpher.git")
-      :bind (:map elpher-mode-map
-                  ("n" . elpher-next-link)
-                  ("p" . elpher-prev-link)
-                  ("o" . elpher-follow-current-link)
-                  ("G" . elpher-go-current))
-      :hook
-      (elpher-mode . visual-fill-column-mode))
-    
-    (use-package gemini-mode
-      :straight (gemini-mode
-                 :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
-      :mode "\\.\\(gemini|gmi\\)\\'")
-    
-    (use-package gemini-write
-      :straight (gemini-write
-                 :repo "https://alexschroeder.ch/cgit/gemini-write"))
-    
-    (use-package post-to-gemlog-blue
-      :straight (post-to-gemlog-blue
-                 :repo "https://git.sr.ht/~acdw/post-to-gemlog-blue.el"))
-
-
-## Pastebin
-
-    (use-package 0x0
-      :custom
-      (0x0-default-service 'ttm))
 
+### Web (HTML/CSS/JS)
 
-## Gnus
+        (use-package web-mode
+          :mode (("\\.ts\\'" . web-mode)
+         ("\\.html?\\'" . web-mode)
+         ("\\.css?\\'" . web-mode)
+         ("\\.js\\'" . web-mode)))
 
-    (cuss gnus-select-method
-          '(nnimap "imap.fastmail.com"
-                   (nnimap-inbox "INBOX")
-                   (nnimap-split-methods default)
-                   (nnimap-expunge t)
-                   (nnimap-stream ssl)))
-    
-    (cuss gnus-secondary-select-methods
-          '((nntp "news.gwene.org")))
 
+### `~/.ssh/config`
 
-## Nov.el: read Ebooks
+        (use-package ssh-config-mode)
 
-    (use-package nov
-      :mode ("\\.epub\\'" . nov-mode)
+
+### Go
+
+        (use-package go-mode
+          :mode "\\.go\\'")
+
+
+# Applications
+
+
+## Elpher
+
+        (use-package elpher
+          :straight (elpher
+             :repo "git://thelambdalab.xyz/elpher.git")
+          :custom
+          (elpher-certificate-directory
+           (no-littering-expand-var-file-name "elpher-certificates/"))
+          (elpher-ipv4-always t)
+          :custom-face
+          (elpher-gemini-heading1
+           ((t (:inherit (modus-theme-heading-1)))))
+          (elpher-gemini-heading2
+           ((t (:inherit (modus-theme-heading-2)))))
+          (elpher-gemini-heading3
+           ((t (:inherit (modus-theme-heading-3)))))
+          :config
+          (defun elpher:eww-browse-url (original url &optional new-window)
+                "Handle gemini/gopher links with eww."
+                (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
+           (require 'elpher)
+           (elpher-go url))
+          (t (funcall original url new-window))))
+          (advice-add 'eww-browse-url :around 'elpher:eww-browse-url)
+          :bind (:map elpher-mode-map
+              ("n" . elpher-next-link)
+              ("p" . elpher-prev-link)
+              ("o" . elpher-follow-current-link)
+              ("G" . elpher-go-current))
+          :hook
+          (elpher-mode . visual-fill-column-mode))
+
+        (use-package gemini-mode
+          :straight (gemini-mode
+             :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
+          :mode "\\.\\(gemini|gmi\\)\\'"
+          :custom-face
+          (gemini-heading-face-1
+           ((t (:inherit (elpher-gemini-heading1)))))
+          (gemini-heading-face2
+           ((t (:inherit (elpher-gemini-heading2)))))
+          (gemini-heading-face3
+           ((t (:inherit (elpher-gemini-heading3)))))
+          :hook
+          (gemini-mode . visual-fill-column-mode))
+
+        (use-package gemini-write
+          :straight (gemini-write
+             :repo "https://alexschroeder.ch/cgit/gemini-write")
+          :config
+          (add-to-list 'elpher-gemini-tokens
+               (acdw-secrets/elpher-gemini-tokens)))
+
+        (use-package post-to-gemlog-blue
+          :straight (post-to-gemlog-blue
+             :repo "https://git.sr.ht/~acdw/post-to-gemlog-blue.el"))
+
+
+## Pastebin (0x0)
+
+(use-package 0x0
       :custom
-      (nov-text-width t)
-      :hook
-      (nov-mode . visual-line-mode)
-      (nov-mode . visual-fill-column-mode))
-
-
-# Machine-specific configurations
-
-    (cond
-     (*acdw/at-home*
-      (use-package su
-        :config
-        (su-mode 1))
-      (use-package trashed
-        :custom
-        (delete-by-moving-to-trash t))
-      (use-package exec-path-from-shell
-        :demand
-        :config
-        (exec-path-from-shell-initialize)))
-     )
+      (0x0-default-service 'ttm))
+
+
+## EMMS
 
+    (use-package bongo
+      :commands 'bongo)
@@ -1,9 +1,13 @@
 #+TITLE:Emacs configuration, literate style
 #+AUTHOR:Case Duckworth
 #+PROPERTY: header-args :tangle init.el
+#+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
+#+OPTIONS: title:t
 #+BANKRUPTCY_COUNT: 2
 
+This is my Emacs configuration.  It's also a literate =org-mode= file.  Yeah, I'm a cool guy.
+
 * About me
 
 #+begin_src emacs-lisp
@@ -94,6 +98,22 @@ It's highly likely that the WTFPL is completely incompatible with the GPL, for w
                 (concat user-emacs-directory "init.el"))))
 #+end_src
 
+** Miscellaneous bootstrappy stuff
+
+*** Add =~/.emacs.d/lisp/= to =load-path=
+
+#+begin_src emacs-lisp
+  (add-to-list 'load-path
+               (concat user-emacs-directory
+                       (convert-standard-filename "lisp/")))
+#+end_src
+
+*** Require my secrets
+
+#+begin_src emacs-lisp
+  (require 'acdw-secrets)
+#+end_src
+
 * Early initiation
 
 #+begin_src emacs-lisp :tangle early-init.el
@@ -715,6 +735,12 @@ I'm going to be honest -- most of this is a stab in the dark.
     (org-pretty-entities t))
 #+end_src
 
+*** Enable markdown export
+
+#+begin_src emacs-lisp
+  (require 'ox-md)
+#+end_src
+
 *** Ensure blank lines between headings and before contents
 
 from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-headings-and-before-contents][unpackaged.el]]
@@ -1107,7 +1133,8 @@ from [[https://github.com/alphapapa/unpackaged.el#org-return-dwim][unpackaged.el
     :straight (gemini-write
                :repo "https://alexschroeder.ch/cgit/gemini-write")
     :config
-    (add-to-list 'elpher-gemini-tokens '("gem.acdw.net" . "yellow-people-eater")))
+    (add-to-list 'elpher-gemini-tokens
+                 (acdw-secrets/elpher-gemini-tokens)))
 
   (use-package post-to-gemlog-blue
     :straight (post-to-gemlog-blue
@@ -1121,3 +1148,10 @@ from [[https://github.com/alphapapa/unpackaged.el#org-return-dwim][unpackaged.el
     :custom
     (0x0-default-service 'ttm))
 #+END_SRC
+
+** EMMS
+
+#+BEGIN_SRC emacs-lisp
+  (use-package bongo
+    :commands 'bongo)
+#+end_src
@@ -4,10 +4,10 @@
 ; Feel free to edit by hand, but take care to ensure
 ; the list structure remains intact.
 
-(("BREADPUNK" "gemini://breadpunk.club/")
- ("weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi")
+(("BREADPUNK!" "gemini://breadpunk.club/")
+ ("ACDW" "gemini://gem.acdw.net/")
+ ("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")
+ ("CAPCOM" "gemini://gemini.circumlunar.space/capcom/")
  ("cosmic voyage" "gemini://cosmic.voyage/")
  ("kayw" "gemini://salejandro.me/")
- ("acdw" "gemini://gem.acdw.net/")
- ("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")
- ("CAPCOM" "gemini://gemini.circumlunar.space/capcom/"))
+ ("low-key: weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi"))