Update README

1 files changed, 745 insertions, 503 deletions

@@ -1,13 +1,17 @@
-Why the hell not, let’s do this again.
+# Basics
 
 
-# Basics
+## Disclaimer
+
+    ;; config.el -*- lexical-binding: t -*-
+    ;; This file is automatically tangled from config.org.
+    ;; Hand edits will be overwritten!
 
 
 ## About me
 
     (setq user-full-name "Case Duckworth"
-          user-mail-address "acdw@acdw.net")
+          user-mail-address "acdw@acdw.net")
 
 
 ## Correct `exec-path`
@@ -16,25 +20,25 @@ Straight depends on Git, so I need to tell Emacs where different paths are.
 
     (let ((win-downloads "c:/Users/aduckworth/Downloads"))
       (dolist (path (list
-                 ;; Linux
-                 (expand-file-name "bin"
-                                   user-emacs-directory)
-                 (expand-file-name "~/bin")
-                 (expand-file-name "~/.local/bin")
-                 (expand-file-name "~/Scripts")
-                 ;; Windows
-                 (expand-file-name "emacs/bin"
-                                   win-downloads)
-                 (expand-file-name "m/usr/bin"
-                                   win-downloads)
-                 (expand-file-name "m/mingw64/bin"
-                                   win-downloads)
-                 (expand-file-name "PortableGit/bin"
-                                   win-downloads)
-                 (expand-file-name "PortableGit/usr/bin"
-                                   win-downloads)))
-        (when (file-exists-p path)
-          (add-to-list 'exec-path path))))
+                 ;; Linux
+                 (expand-file-name "bin"
+                                   user-emacs-directory)
+                 (expand-file-name "~/bin")
+                 (expand-file-name "~/.local/bin")
+                 (expand-file-name "~/Scripts")
+                 ;; Windows
+                 (expand-file-name "emacs/bin"
+                                   win-downloads)
+                 (expand-file-name "m/usr/bin"
+                                   win-downloads)
+                 (expand-file-name "m/mingw64/bin"
+                                   win-downloads)
+                 (expand-file-name "PortableGit/bin"
+                                   win-downloads)
+                 (expand-file-name "PortableGit/usr/bin"
+                                   win-downloads)))
+        (when (file-exists-p path)
+          (add-to-list 'exec-path path))))
 
 
 ## Package management
@@ -49,21 +53,21 @@ bootstrap code from straight's repo in a function.
       "Bootstrap straight.el."
       (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
-           (concat
-            "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)))
+         (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
+           (concat
+            "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)))
 
 Now, I'll *try* running it regular-style, ignoring the errors.  If it
 doesn't work, I'll call git directly and clone the repo myself.
@@ -71,15 +75,15 @@ doesn't work, I'll call git directly and clone the repo myself.
     (unless (ignore-errors (acdw/bootstrap-straight))
       (message "%s" "Straight.el didn't bootstrap correctly.  Cloning directly...")
       (call-process "git" nil
-                (get-buffer-create "*bootstrap-straight-messages*") nil
-                "clone"
-                "https://github.com/raxod502/straight.el"
-                (expand-file-name "straight/repos/straight.el"
-                                  user-emacs-directory))
+                (get-buffer-create "*bootstrap-straight-messages*") nil
+                "clone"
+                "https://github.com/raxod502/straight.el"
+                (expand-file-name "straight/repos/straight.el"
+                                  user-emacs-directory))
       (acdw/bootstrap-straight))
 
 
-## Customize macros
+## Ease-of-configuring functions
 
 
 ### Emulate use-package’s `:custom`
@@ -87,9 +91,9 @@ doesn't work, I'll call git directly and clone the repo myself.
     (defmacro cuss (var val &optional docstring)
       "Basically, `:custom' from `use-package', but without `use-package'."
       (declare (doc-string 3)
-           (indent 2))
+           (indent 2))
       `(funcall (or (get ',var 'custom-set) #'set-default)
-            ',var ,val))
+            ',var ,val))
 
 
 ### Emulate use-package’s `:custom-face`, but better
@@ -109,6 +113,16 @@ doesn't work, I'll call git directly and clone the repo myself.
       (add-hook 'after-init-hook #'acdw/set-custom-faces))
 
 
+### Determine whether any Emacs frame is focused or not
+
+This comes in handy when I want to garbage collect, say, or save recent files.
+
+    (defun acdw/when-unfocused (func &rest args)
+      "Run FUNC with ARGS only if all frames are out of focus."
+      (if (seq-every-p #'null (mapcar #'frame-focus-state (frame-list)))
+          (apply func args)))
+
+
 ## Clean `.emacs.d`
 
     (straight-use-package 'no-littering)
@@ -140,25 +154,13 @@ doesn't work, I'll call git directly and clone the repo myself.
 
 1.  Tool bars and menu bars
 
-        (cuss default-frame-alist
-              '((tool-bar-lines . 0)
-                (menu-bar-lines .0))
-          "Setup the default frame alist.")
-        
-        (menu-bar-mode -1)
-        (tool-bar-mode -1)
+        (menu-bar-mode -1)
+        (tool-bar-mode -1)
 
 2.  Scroll bars
 
-        (add-to-list 'default-frame-alist
-                     '(vertical-scroll-bars . nil))
-        
-        (scroll-bar-mode -1)
-        
-        (add-to-list 'default-frame-alist
-                     '(horizontal-scroll-bars . nil))
-        
-        (horizontal-scroll-bar-mode -1)
+        (scroll-bar-mode -1)
+        (horizontal-scroll-bar-mode -1)
 
 
 ### Dialogs
@@ -168,94 +170,130 @@ doesn't work, I'll call git directly and clone the repo myself.
 
 1.  Yes or no questions
 
-        (fset 'yes-or-no-p #'y-or-n-p)
+        (fset 'yes-or-no-p #'y-or-n-p)
 
 2.  The Bell
 
-        (defun acdw/ring-bell-function ()
-          "Ring the bell."
-          (let ((orig-face (face-foreground 'mode-line)))
-            (set-face-foreground 'mode-line "#F2804F")
-            (run-with-idle-timer
-             0.1 nil
-             (lambda (fg)
-               (set-face-foreground 'mode-line fg))
-             orig-face)))
+    from [EmacsWiki](https://www.emacswiki.org/emacs/AlarmBell#h5o-3).
+    
+        (setq visible-bell nil
+              ring-bell-function 'flash-mode-line)
         
-        (cuss ring-bell-function #'acdw/ring-bell-function)
+        (defun flash-mode-line ()
+          (invert-face 'mode-line)
+          (run-with-timer 0.1 nil #'invert-face 'mode-line))
 
 
 ### Frames
 
 1.  Fringes
 
-        (cuss indicate-empty-lines t
-          "Show an indicator on the left fringe of empty lines past the
-        end of the buffer.")
-        (cuss indicate-buffer-boundaries 'right
-          "Indicate the beginning and end of the buffer and whether it
-          scrolls off-window in the right fringe.")
+        (cuss indicate-empty-lines t
+          "Show an indicator on the left fringe of empty lines past the
+        end of the buffer.")
+        (cuss indicate-buffer-boundaries 'right
+          "Indicate the beginning and end of the buffer and whether it
+          scrolls off-window in the right fringe.")
 
 2.  Minibuffer
 
-        (cuss minibuffer-prompt-properties
-            '(read-only t cursor-intangible t face minibuffer-prompt)
-          "Keep the cursor away from the minibuffer prompt.")
+        (cuss minibuffer-prompt-properties
+            '(read-only t cursor-intangible t face minibuffer-prompt)
+          "Keep the cursor away from the minibuffer prompt.")
 
 3.  Tabs
 
-        (cuss tab-bar-tab-name-function
-            #'tab-bar-tab-name-current-with-count
-          "Show the tab name as the name of the current buffer, plus a
-          count of the windows in the tab.")
+        (cuss tab-bar-tab-name-function
+            #'tab-bar-tab-name-current-with-count
+          "Show the tab name as the name of the current buffer, plus a
+          count of the windows in the tab.")
         
-        (cuss tab-bar-show 1
-          "Show the tab bar, when there's more than one tab.")
+        (cuss tab-bar-show 1
+          "Show the tab bar, when there's more than one tab.")
 
 
 ### Windows
 
 1.  Winner mode
 
-        (when (fboundp 'winner-mode)
-          (winner-mode +1))
+        (when (fboundp 'winner-mode)
+          (winner-mode +1))
 
 2.  Switch windows
 
-        (global-set-key (kbd "M-o") #'other-window)
+        (global-set-key (kbd "M-o") #'other-window)
 
 
 ### Buffers
 
 1.  Uniquify buffers
 
-        (require 'uniquify)
-        (cuss uniquify-buffer-name-style 'forward
-          "Uniquify buffers' names by going up the path trees until they
-        become unique.")
+        (require 'uniquify)
+        (cuss uniquify-buffer-name-style 'forward
+          "Uniquify buffers' names by going up the path trees until they
+        become unique.")
 
 2.  Startup buffers
 
-        (cuss inhibit-startup-screen t
-          "Don't show Emacs' startup buffer.")
+        (cuss inhibit-startup-screen t
+          "Don't show Emacs' startup buffer.")
         
-        (cuss initial-buffer-choice t
-          "Start with *scratch*.")
+        (cuss initial-buffer-choice t
+          "Start with *scratch*.")
         
-        (cuss initial-scratch-message ""
-          "Empty *scratch* buffer.")
+        (cuss initial-scratch-message ""
+          "Empty *scratch* buffer.")
+
+3.  Kill the current buffer
+
+        (defun acdw/kill-a-buffer (&optional prefix)
+          "Kill a buffer based on the following rules:
+        
+        C-x k     ⇒ Kill current buffer & window
+        C-u C-x k ⇒ Kill OTHER window and its buffer
+        C-u C-u C-x C-k ⇒ Kill all other buffers and windows
+        
+        Prompt only if there are unsaved changes."
+          (interactive "P")
+          (pcase (or (car prefix) 0)
+            ;; C-x k     ⇒ Kill current buffer & window
+            (0  (kill-current-buffer)
+                (unless (one-window-p) (delete-window)))
+            ;; C-u C-x k ⇒ Kill OTHER window and its buffer
+            (4  (other-window 1)
+                (kill-current-buffer)
+                (unless (one-window-p) (delete-window)))
+            ;; C-u C-u C-x C-k ⇒ Kill all other buffers and windows
+            (16   (mapc 'kill-buffer (delq (current-buffer) (buffer-list)))
+                  (delete-other-windows))))
+        
+        (define-key ctl-x-map "k" #'acdw/kill-a-buffer)
+    
+    1.  Remap `C-x M-k` to bring up the buffer-killing menu
+    
+            (define-key ctl-x-map (kbd "M-k") #'kill-buffer)
+
+4.  Immortal `*scratch*` buffer
+
+        (defun immortal-scratch ()
+          (if (eq (current-buffer) (get-buffer "*scratch*"))
+              (progn (bury-buffer)
+                     nil)
+            t))
+        
+        (add-hook 'kill-buffer-query-functions 'immortal-scratch)
 
 
 ### Modeline
 
 1.  Smart mode line
 
-        (straight-use-package 'smart-mode-line)
+        (straight-use-package 'smart-mode-line)
         
-        (cuss sml/no-confirm-load-theme t
-          "Pass the NO-CONFIRM flag to `load-theme'.")
+        (cuss sml/no-confirm-load-theme t
+          "Pass the NO-CONFIRM flag to `load-theme'.")
         
-        (sml/setup)
+        (sml/setup)
 
 2.  Rich minority
 
@@ -263,112 +301,129 @@ doesn't work, I'll call git directly and clone the repo myself.
     instead of `diminish` or another package.  I do have to write this
     helper function, though, to add things to the whitelist.
     
-        (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 "\\|")))
+        (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 "\\|")))
         
-        (straight-use-package 'rich-minority)
+        (straight-use-package 'rich-minority)
         
-        (rm/whitelist-add "^$")
+        (rm/whitelist-add "^$")
 
 
 ### Theme
 
 1.  Modus Themes
 
-        (straight-use-package 'modus-themes)
+        (straight-use-package 'modus-themes)
+        
+        (cuss modus-themes-slanted-constructs t
+          "Use more slanted constructs.")
+        (cuss modus-themes-bold-constructs t
+          "Use more bold constructs.")
         
-        (cuss modus-themes-slanted-constructs t
-          "Use more slanted constructs.")
-        (cuss modus-themes-bold-constructs t
-          "Use more bold constructs.")
+        (cuss modus-themes-region 'bg-only
+          "Only highlight the background of the selected region.")
         
-        (cuss modus-themes-region 'bg-only
-          "Only highlight the background of the selected region.")
+        (cuss modus-themes-org-blocks 'grayscale
+          "Show org-blocks with a grayscale background.")
+        (cuss modus-themes-headings
+            '((1 . line)
+              (t . t))
+          "Highlight top headings with `line' style, and others by default.")
         
-        (cuss modus-themes-org-blocks 'grayscale
-          "Show org-blocks with a grayscale background.")
-        (cuss modus-themes-headings
-            '((1 . line)
-              (t . t))
-          "Highlight top headings with `line' style, and others by default.")
+        (cuss modus-themes-scale-headings t
+          "Scale headings by the ratios below.")
+        (cuss modus-themes-scale-1 1.1)
+        (cuss modus-themes-scale-2 1.15)
+        (cuss modus-themes-scale-3 1.21)
+        (cuss modus-themes-scale-4 1.27)
+        (cuss modus-themes-scale-5 1.33)
         
-        (cuss modus-themes-scale-headings t
-          "Scale headings by the ratios below.")
-        (cuss modus-themes-scale-1 1.1)
-        (cuss modus-themes-scale-2 1.15)
-        (cuss modus-themes-scale-3 1.21)
-        (cuss modus-themes-scale-4 1.27)
-        (cuss modus-themes-scale-5 1.33)
+        (load-theme 'modus-operandi t)
+
+2.  Change themes based on time of day
+
+        (cuss calendar-latitude 30.4515)
+        (cuss calendar-longitude -91.1871)
+        
+        ;; sunrise
+        (run-at-time (nth 1 (split-string (sunrise-sunset)))
+                     (* 60 60 24)
+                     (lambda ()
+                       (modus-themes-load-operandi)))
         
-        (load-theme 'modus-operandi t)
+        ;; sunset
+        (run-at-time (nth 4 (split-string (sunrise-sunset)))
+                     (* 60 60 24)
+                     (lambda ()
+                       (modus-themes-load-vivendi)))
 
 
 ### Fonts
 
 1.  Define fonts
 
-        (defun set-face-from-alternatives (face fonts)
-          (catch :return
-            (dolist (font fonts)
-              (when (find-font (font-spec :family (car font)))
-                (apply #'set-face-attribute `(,face
-                                              nil
-                                              :family (car font)
-                                              ,@(cdr font)))
-                (throw :return font)))))
+        (defun set-face-from-alternatives (face fonts)
+          (catch :return
+            (dolist (font fonts)
+              (when (find-font (font-spec :family (car font)))
+                (apply #'set-face-attribute `(,face
+                                              nil
+                                              :family (car font)
+                                              ,@(cdr font)))
+                (throw :return font)))))
         
-        (defun acdw/setup-fonts ()
-          "Setup fonts.  This has to happen after the frame is setup for
-        the first time, so it should be added to `window-setup-hook'.  It
-        removes itself from that hook."
-          (interactive)
-          (when (display-graphic-p)
-            (set-face-from-alternatives 'default
-                                        '(("Input Mono"
-                                           :height 105)
-                                          ("Go Mono"
-                                           :height 100)
-                                          ("Consolas"
-                                           :height 100)))
+        (defun acdw/setup-fonts ()
+          "Setup fonts.  This has to happen after the frame is setup for
+        the first time, so it should be added to `window-setup-hook'.  It
+        removes itself from that hook."
+          (interactive)
+          (when (display-graphic-p)
+            (set-face-from-alternatives 'default
+                                        '(("Input Mono"
+                                           :height 105)
+                                          ("Go Mono"
+                                           :height 100)
+                                          ("Consolas"
+                                           :height 100)))
         
-            (set-face-from-alternatives 'fixed-pitch
-                                        '(("Input Mono")
-                                          ("Go Mono")
-                                          ("Consolas")))
+            (set-face-from-alternatives 'fixed-pitch
+                                        '(("Input Mono")
+                                          ("Go Mono")
+                                          ("Consolas")))
         
-            (set-face-from-alternatives 'variable-pitch
-                                        '(("Input Serif")
-                                          ("Georgia")))
+            (set-face-from-alternatives 'variable-pitch
+                                        '(("Input Serif")
+                                          ("Georgia")))
         
-            (remove-function after-focus-change-function #'acdw/setup-fonts)))
+            (remove-function after-focus-change-function #'acdw/setup-fonts)))
         
-        (add-function :before after-focus-change-function #'acdw/setup-fonts)
+        (add-function :before after-focus-change-function #'acdw/setup-fonts)
 
 2.  Custom faces
 
-        (cussface '(font-lock-comment-face
-                    ((t (:inherit (custom-comment italic variable-pitch))))))
+        (cussface '(font-lock-comment-face
+                    ((t (:inherit (custom-comment italic variable-pitch))))))
 
 3.  Line spacing
 
-        (cuss line-spacing 0.1
-          "Add 10% extra space below each line.")
+        (cuss line-spacing 0.1
+          "Add 10% extra space below each line.")
 
 4.  Underlines
 
-        (cuss x-underline-at-descent-line t
-          "Draw the underline at the same place as the descent line.")
+        (cuss x-underline-at-descent-line t
+          "Draw the underline at the same place as the descent line.")
 
 5.  Unicode Fonts
 
-        (straight-use-package 'unicode-fonts)
-        (require 'unicode-fonts)
-        (unicode-fonts-setup)
+        (straight-use-package 'unicode-fonts)
+        (require 'unicode-fonts)
+        (unicode-fonts-setup)
 
 
 ## Interactivity
@@ -378,81 +433,81 @@ doesn't work, I'll call git directly and clone the repo myself.
 
 1.  Shadow file names in `completing-read`.
 
-        (cuss file-name-shadow-properties '(invisible t))
+        (cuss file-name-shadow-properties '(invisible t))
         
-        (file-name-shadow-mode +1)
+        (file-name-shadow-mode +1)
 
 2.  Ignore case in `completing-read`
 
-        (cuss completion-ignore-case t)
-        (cuss read-buffer-completion-ignore-case t)
-        (cuss read-file-name-completion-ignore-case t)
+        (cuss completion-ignore-case t)
+        (cuss read-buffer-completion-ignore-case t)
+        (cuss read-file-name-completion-ignore-case t)
 
 3.  Minibuffer recursivity
 
-        (cuss enable-recursive-minibuffers t)
-        (minibuffer-depth-indicate-mode +1)
+        (cuss enable-recursive-minibuffers t)
+        (minibuffer-depth-indicate-mode +1)
 
 4.  Selectrum
 
-        (straight-use-package 'selectrum)
-        (require 'selectrum)
-        (selectrum-mode +1)
+        (straight-use-package 'selectrum)
+        (require 'selectrum)
+        (selectrum-mode +1)
 
 5.  Prescient
 
-        (straight-use-package 'prescient)
-        (require 'prescient)
-        (prescient-persist-mode +1)
+        (straight-use-package 'prescient)
+        (require 'prescient)
+        (prescient-persist-mode +1)
         
-        (straight-use-package 'selectrum-prescient)
-        (require 'selectrum-prescient)
-        (selectrum-prescient-mode +1)
+        (straight-use-package 'selectrum-prescient)
+        (require 'selectrum-prescient)
+        (selectrum-prescient-mode +1)
 
 6.  Consult
 
-        (straight-use-package '(consult
-                                :host github
-                                :repo "minad/consult"))
-        (require 'consult)
+        (straight-use-package '(consult
+                                :host github
+                                :repo "minad/consult"))
+        (require 'consult)
         
-        (straight-use-package '(consult-selectrum
-                                :host github
-                                :repo "minad/consult"))
-        (require 'consult-selectrum)
+        (straight-use-package '(consult-selectrum
+                                :host github
+                                :repo "minad/consult"))
+        (require 'consult-selectrum)
         
-        (with-eval-after-load 'consult
-          (define-key ctl-x-map "b" #'consult-buffer)
-          (define-key ctl-x-map (kbd "C-r") #'consult-buffer)
-          (define-key ctl-x-map "4b" #'consult-buffer-other-window)
-          (define-key ctl-x-map "5b" #'consult-buffer-other-frame)
+        (with-eval-after-load 'consult
+          (define-key ctl-x-map "b" #'consult-buffer)
+          (define-key ctl-x-map (kbd "C-r") #'consult-buffer)
+          (define-key ctl-x-map "4b" #'consult-buffer-other-window)
+          (define-key ctl-x-map "5b" #'consult-buffer-other-frame)
         
-          (define-key goto-map "o" #'consult-outline)
-          (define-key goto-map "g" #'consult-line)
-          (define-key goto-map (kbd "M-g") #'consult-line)
-          (define-key goto-map "l" #'consult-line)
-          (define-key goto-map "m" #'consult-mark)
-          (define-key goto-map "i" #'consult-imenu)
-          (define-key goto-map "e" #'consult-error)
+          (define-key goto-map "o" #'consult-outline)
+          (define-key goto-map "g" #'consult-line)
+          (define-key goto-map (kbd "M-g") #'consult-line)
+          (define-key goto-map "l" #'consult-line)
+          (define-key goto-map "m" #'consult-mark)
+          (define-key goto-map "i" #'consult-imenu)
+          (define-key goto-map "e" #'consult-error)
         
-          (global-set-key (kbd "M-y") #'consult-yank-pop)
+          (global-set-key (kbd "M-y") #'consult-yank-pop)
         
-          (define-key help-map "a" #'consult-apropos)
+          (define-key help-map "a" #'consult-apropos)
         
-          (fset 'multi-occur #'consult-multi-occur))
+          (fset 'multi-occur #'consult-multi-occur))
 
 7.  Marginalia
 
-        (straight-use-package '(marginalia
-                                :host github
-                                :repo "minad/marginalia"
-                                :branch "main"))
+        (straight-use-package '(marginalia
+                                :host github
+                                :repo "minad/marginalia"
+                                :branch "main"))
         
-        (cuss marginalia-annotators
-            '(marginalia-annotators-heavy
-              marginalia-annotators-light))
+        (cuss marginalia-annotators
+            '(marginalia-annotators-heavy
+              marginalia-annotators-light))
         
-        (marginalia-mode +1)
+        (marginalia-mode +1)
 
 
 ### Completion
@@ -460,6 +515,20 @@ doesn't work, I'll call git directly and clone the repo myself.
     (global-set-key (kbd "M-/") #'hippie-expand)
 
 
+### Garbage collection
+
+    (straight-use-package 'gcmh)
+    (gcmh-mode +1)
+    
+    (defun dotfiles--gc-on-last-frame-out-of-focus ()
+      "GC if all frames are inactive."
+      (if (seq-every-p #'null (mapcar #'frame-focus-state (frame-list)))
+          (garbage-collect)))
+    
+    (add-function :after after-focus-change-function
+              #'dotfiles--gc-on-last-frame-out-of-focus)
+
+
 ## Keyboard
 
 
@@ -472,15 +541,21 @@ doesn't work, I'll call git directly and clone the repo myself.
 
     (defvar acdw/map
       (let ((map (make-sparse-keymap))
-        (c-z (global-key-binding "\C-z")))
-        (global-unset-key "\C-z")
-        (define-key global-map "\C-z" map)
-        (define-key map "\C-z" c-z)
-        map))
+        (c-z (global-key-binding "\C-z")))
+        (global-unset-key "\C-z")
+        (define-key global-map "\C-z" map)
+        (define-key map "\C-z" c-z)
+        map))
     
     (run-hooks 'acdw/map-defined-hook)
 
 
+### Show keybindings
+
+    (straight-use-package 'which-key)
+    (which-key-mode +1)
+
+
 ## Mouse
 
 
@@ -494,7 +569,7 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
       "Like `mwheel-scroll' but preserve screen position.
     See `scroll-preserve-screen-position'."
       (let ((scroll-preserve-screen-position :always))
-        (apply original arguments)))
+        (apply original arguments)))
 
 
 ## Persistence
@@ -505,9 +580,9 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
     (require 'savehist)
     
     (cuss savehist-additional-variables
-        '(kill-ring
-          search-ring
-          regexp-search-ring)
+        '(kill-ring
+          search-ring
+          regexp-search-ring)
       "Other variables to save alongside the minibuffer history.")
     
     (cuss history-length t
@@ -544,8 +619,20 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
     
     (recentf-mode +1)
     
-    ;; save the recentf-list every 5 minutes
-    (run-at-time nil (* 5 60) 'recentf-save-list)
+    ;; save recentf list when focusing away
+    (defun acdw/maybe-save-recentf ()
+      "Save `recentf-file' when out of focus, but only if we haven't
+    in five minutes."
+      (defvar recentf-last-save (time-convert nil 'integer)
+        "How long it's been since we last saved the recentf list.")
+    
+      (when (> (time-convert (time-since recentf-last-save) 'integer)
+           (* 60 5))
+        (setq recentf-last-save (time-convert nil 'integer))
+        (acdw/when-unfocused #'recentf-save-list)))
+    
+    (add-function :after after-focus-change-function
+              #'acdw/maybe-save-recentf)
 
 
 ## Undo
@@ -560,14 +647,14 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
     (require 'undo-fu-session)
     
     (cuss undo-fu-session-incompatible-files
-        '("/COMMIT_EDITMSG\\'"
-          "/git-rebase-todo\\'")
+        '("/COMMIT_EDITMSG\\'"
+          "/git-rebase-todo\\'")
       "A list of files that are incompatible with the concept of undo sessions.")
     
     (with-eval-after-load 'no-littering
       (let ((dir (no-littering-expand-var-file-name "undos")))
-        (make-directory dir 'parents)
-        (cuss undo-fu-session-directory dir)))
+        (make-directory dir 'parents)
+        (cuss undo-fu-session-directory dir)))
     
     (global-undo-fu-session-mode +1)
 
@@ -579,30 +666,30 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
 
 1.  UTF-8
 
-        (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)
+        (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)
 
 2.  Convert all files to UNIX-style line endings
 
     from [Emacs Wiki](https://www.emacswiki.org/emacs/EndOfLineTips).
     
-        (defun ewiki/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))))
+        (defun ewiki/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))))
     
     I add it to the `find-file-hook` *and* `before-save-hook` because I
     don't want to ever work with anything other than UNIX line endings
     ever again.  I just don't care.  Even Microsoft Notepad can handle
     UNIX line endings, so I don't want to hear it.
     
-        (add-hook 'find-file-hook #'ewiki/no-junk-please-were-unixish)
-        (add-hook 'before-save-hook #'ewiki/no-junk-please-were-unixish)
+        (add-hook 'find-file-hook #'ewiki/no-junk-please-were-unixish)
+        (add-hook 'before-save-hook #'ewiki/no-junk-please-were-unixish)
 
 
 ### Backups
@@ -614,18 +701,18 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
     
     (with-eval-after-load 'no-littering
       (let ((dir (no-littering-expand-var-file-name "backup")))
-        (make-directory dir 'parents)
-        (cuss backup-directory-alist
-        `((".*" . ,dir)))))
+        (make-directory dir 'parents)
+        (cuss backup-directory-alist
+        `((".*" . ,dir)))))
 
 
 ### Auto-saves
 
     (with-eval-after-load 'no-littering
       (let ((dir (no-littering-expand-var-file-name "autosaves")))
-        (make-directory dir 'parents)
-        (cuss auto-save-file-name-transforms
-        `((".*" ,dir t))))
+        (make-directory dir 'parents)
+        (cuss auto-save-file-name-transforms
+        `((".*" ,dir t))))
     
       (auto-save-visited-mode +1))
 
@@ -663,41 +750,165 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
 
 1.  Replace selection when typing
 
-        (delete-selection-mode +1)
+        (delete-selection-mode +1)
 
 2.  Work better with the system clipboard
 
-        (cuss save-interprogram-paste-before-kill t
-          "Save existing clipboard text into the kill ring before
-          replacing it.")
+        (cuss save-interprogram-paste-before-kill t
+          "Save existing clipboard text into the kill ring before
+          replacing it.")
         
-        (cuss yank-pop-change-selection t
-          "Update the X selection when rotating the kill ring.")
+        (cuss yank-pop-change-selection t
+          "Update the X selection when rotating the kill ring.")
 
 
 ### Searching & Replacing
 
 1.  Replace with Anzu
 
-          (straight-use-package 'anzu)
-          (require 'anzu)
+          (straight-use-package 'anzu)
+          (require 'anzu)
         
-          ;; show search count in the modeline
-          (global-anzu-mode +1)
+          ;; show search count in the modeline
+          (global-anzu-mode +1)
         
-          (cuss anzu-replace-to-string-separator " → "
-            "What to separate the search from the replacement.")
+          (cuss anzu-replace-to-string-separator " → "
+            "What to separate the search from the replacement.")
         
-        (global-set-key [remap query-replace] #'anzu-query-replace)
-        (global-set-key [remap query-replace-regexp] #'anzu-query-replace-regexp)
+        (global-set-key [remap query-replace] #'anzu-query-replace)
+        (global-set-key [remap query-replace-regexp] #'anzu-query-replace-regexp)
         
-        (define-key isearch-mode-map [remap isearch-query-replace]  #'anzu-isearch-query-replace)
-        (define-key isearch-mode-map [remap isearch-query-replace-regexp] #'anzu-isearch-query-replace-regexp)
+        (define-key isearch-mode-map [remap isearch-query-replace]  #'anzu-isearch-query-replace)
+        (define-key isearch-mode-map [remap isearch-query-replace-regexp] #'anzu-isearch-query-replace-regexp)
+
+
+### Overwrite mode
+
+    (defun acdw/overwrite-mode-change-cursor ()
+      (setq cursor-type (if overwrite-mode t 'bar)))
+    
+    (add-hook 'overwrite-mode-hook #'acdw/overwrite-mode-change-cursor)
+    
+    (rm/whitelist-add "Ovwrt")
+
+
+### The Mark
+
+    (cuss set-mark-repeat-command-pop t
+      "Repeat `set-mark-command' with a prefix argument, without
+      repeatedly entering the prefix argument.")
+
+
+### Whitespace
+
+    (cuss whitespace-style
+        '(empty ;; remove blank lines at the beginning and end of buffers
+          indentation ;; clean up indentation
+          space-before-tab ;; fix mixed spaces and tabs
+          space-after-tab))
+    
+    (add-hook 'before-save-hook #'whitespace-cleanup)
 
 
 # Programming
 
 
+## Prettify symbols
+
+
+### A bit from Rasmus
+
+from [Rasmus Roulund](https://pank.eu/blog/pretty-babel-src-blocks.html#coderef-symbol), via [Musa Al-hassy](https://alhassy.github.io/emacs.d/index.html#Making-Block-Delimiters-Less-Intrusive).
+
+    (defvar-local rasmus/org-at-src-begin -1
+      "Variable that holds whether last position was a ")
+    
+    (defvar rasmus/ob-header-symbol ?☰
+      "Symbol used for babel headers")
+    
+    (defun rasmus/org-prettify-src--update ()
+      (let ((case-fold-search t)
+        (re "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*")
+        found)
+        (save-excursion
+          (goto-char (point-min))
+          (while (re-search-forward re nil t)
+        (goto-char (match-end 0))
+        (let ((args (org-trim
+                     (buffer-substring-no-properties (point)
+                                                     (line-end-position)))))
+          (when (org-string-nw-p args)
+            (let ((new-cell (cons args rasmus/ob-header-symbol)))
+              (cl-pushnew new-cell prettify-symbols-alist :test #'equal)
+              (cl-pushnew new-cell found :test #'equal)))))
+          (setq prettify-symbols-alist
+            (cl-set-difference prettify-symbols-alist
+                               (cl-set-difference
+                                (cl-remove-if-not
+                                 (lambda (elm)
+                                   (eq (cdr elm) rasmus/ob-header-symbol))
+                                 prettify-symbols-alist)
+                                found :test #'equal)))
+          ;; Clean up old font-lock-keywords.
+          (font-lock-remove-keywords nil prettify-symbols--keywords)
+          (setq prettify-symbols--keywords (prettify-symbols--make-keywords))
+          (font-lock-add-keywords nil prettify-symbols--keywords)
+          (while (re-search-forward re nil t)
+        (font-lock-flush (line-beginning-position) (line-end-position))))))
+    
+    (defun rasmus/org-prettify-src ()
+      "Hide src options via `prettify-symbols-mode'.
+    
+      `prettify-symbols-mode' is used because it has uncollpasing. It's
+      may not be efficient."
+      (let* ((case-fold-search t)
+         (at-src-block (save-excursion
+                         (beginning-of-line)
+                         (looking-at "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*"))))
+        ;; Test if we moved out of a block.
+        (when (or (and rasmus/org-at-src-begin
+                   (not at-src-block))
+              ;; File was just opened.
+              (eq rasmus/org-at-src-begin -1))
+          (rasmus/org-prettify-src--update))
+        ;; Remove composition if at line; doesn't work properly.
+        ;; (when at-src-block
+        ;;   (with-silent-modifications
+        ;;     (remove-text-properties (match-end 0)
+        ;;                             (1+ (line-end-position))
+        ;;                             '(composition))))
+        (setq rasmus/org-at-src-begin at-src-block)))
+    
+    (defun rasmus/org-prettify-symbols ()
+      (mapc (apply-partially 'add-to-list 'prettify-symbols-alist)
+        (cl-reduce 'append
+                   (mapcar (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
+                           `(("#+begin_src" . ?✎) ;; ➤ 🖝 ➟ ➤ ✎
+                             ("#+end_src"   . ?⏹) ;; □
+                             ("#+header:" . ,rasmus/ob-header-symbol)
+                             ("#+begin_quote" . ?»)
+                             ("#+end_quote" . ?«)))))
+      (turn-on-prettify-symbols-mode)
+      (add-hook 'post-command-hook 'rasmus/org-prettify-src t t))
+
+
+### Regular prettify-symbols-mode
+
+    (cuss prettify-symbols-unprettify-at-point 'right-edge
+      "Unprettify a symbol when inside it or next to it.")
+    
+    (defun acdw/org-mode-prettify ()
+      "Prettify `org-mode'."
+      (append '(("[ ]" . ?□) ("[X]" . ?☑) ("[-]" . ?◐)
+            ("#begin_src" . ?🖬) ("#BEGIN_SRC" . ?🖬)
+            ("#end_src" . ?■) ("#END_SRC" . ?■))
+          prettify-symbols-alist))
+    
+    (add-hook 'org-mode-hook #'acdw/org-mode-prettify)
+    
+    (global-prettify-symbols-mode +1)
+
+
 ## Parentheses
 
 
@@ -747,46 +958,22 @@ from [u/TheFrenchPoulp](https://www.reddit.com/r/emacs/comments/km9by4/weekly_ti
 
 This has to be done *before* loading the package.  It's included in `visual-fill-column`, too, but for some reason isn't loaded there.
 
-    (global-set-key [right-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point
-    (global-set-key [right-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary
-    (global-set-key [right-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill
-    (global-set-key [right-margin drag-mouse-1] #'ignore)
-    (global-set-key [right-margin drag-mouse-2] #'ignore)
-    (global-set-key [right-margin drag-mouse-3] #'ignore)
-    (global-set-key [right-margin double-mouse-1] #'ignore)
-    (global-set-key [right-margin double-mouse-2] #'ignore)
-    (global-set-key [right-margin double-mouse-3] #'ignore)
-    (global-set-key [right-margin triple-mouse-1] #'ignore)
-    (global-set-key [right-margin triple-mouse-2] #'ignore)
-    (global-set-key [right-margin triple-mouse-3] #'ignore)
-    (global-set-key [left-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point
-    (global-set-key [left-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary
-    (global-set-key [left-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill
-    (global-set-key [left-margin drag-mouse-1] #'ignore)
-    (global-set-key [left-margin drag-mouse-2] #'ignore)
-    (global-set-key [left-margin drag-mouse-3] #'ignore)
-    (global-set-key [left-margin double-mouse-1] #'ignore)
-    (global-set-key [left-margin double-mouse-2] #'ignore)
-    (global-set-key [left-margin double-mouse-3] #'ignore)
-    (global-set-key [left-margin triple-mouse-1] #'ignore)
-    (global-set-key [left-margin triple-mouse-2] #'ignore)
-    (global-set-key [left-margin triple-mouse-3] #'ignore)
+    (dolist (margin '(right-margin left-margin))
+      (dolist (button '(mouse-1 mouse-2 mouse-3))
+        (global-set-key (vector margin button)
+                    (global-key-binding (vector button)))))
     
     (mouse-wheel-mode +1)
     
     (when (bound-and-true-p mouse-wheel-mode)
-      (global-set-key [right-margin mouse-wheel-down-event] #'mwheel-scroll)
-      (global-set-key [right-margin mouse-wheel-up-event] #'mwheel-scroll)
-      (global-set-key [right-margin wheel-down] #'mwheel-scroll)
-      (global-set-key [right-margin wheel-up] #'mwheel-scroll)
-      (global-set-key [left-margin mouse-wheel-down-event] #'mwheel-scroll)
-      (global-set-key [left-margin mouse-wheel-up-event] #'mwheel-scroll)
-      (global-set-key [left-margin wheel-down] #'mwheel-scroll)
-      (global-set-key [left-margin wheel-up] #'mwheel-scroll)
-      (global-set-key [right-margin mouse-4] #'mwheel-scroll)
-      (global-set-key [right-margin mouse-5] #'mwheel-scroll)
-      (global-set-key [left-margin mouse-4] #'mwheel-scroll)
-      (global-set-key [left-margin mouse-5] #'mwheel-scroll))
+      (dolist (margin '(right-margin left-margin))
+        (dolist (event '(mouse-wheel-down-event
+                     mouse-wheel-up-event
+                     wheel-down
+                     wheel-up
+                     mouse-4
+                     mouse-5))
+          (global-set-key (vector margin event) #'mwheel-scroll))))
 
 
 ### Load the package
@@ -800,7 +987,7 @@ This has to be done *before* loading the package.  It's included in `visual-fill
       "Width of fill-column, and thus, visual-fill-column.")
     
     (advice-add 'text-scale-adjust
-            :after #'visual-fill-column-adjust)
+            :after #'visual-fill-column-adjust)
     
     (global-visual-fill-column-mode +1)
 
@@ -818,11 +1005,43 @@ This has to be done *before* loading the package.  It's included in `visual-fill
     (straight-use-package 'typo)
     
     (add-hook 'text-mode-hook #'typo-mode)
+    
+    ;; Disable `typo-mode' when inside an Org source block
+    (with-eval-after-load 'typo
+      (add-to-list 'typo-disable-electricity-functions
+               #'org-in-src-block-p))
+
+
+## Word count
+
+    (straight-use-package 'wc-mode)
+    
+    (add-hook 'text-mode-hook #'wc-mode)
+    
+    (rm/whitelist-add "WC")
 
 
 # Applications
 
 
+## Dired
+
+
+### Expand subtrees
+
+    (straight-use-package 'dired-subtree)
+    
+    (with-eval-after-load 'dired
+      (define-key dired-mode-map "i" #'dired-subtree-toggle))
+
+
+### Collapse singleton directories
+
+    (straight-use-package 'dired-collapse)
+    
+    (add-hook 'dired-mode-hook #'dired-collapse-mode)
+
+
 ## Org mode
 
 I’ve put org mode under Applications, as opposed to Writing, because it’s  more generally-applicable than that.
@@ -830,7 +1049,8 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s  m
 
 ### Basics
 
-    (straight-use-package 'org)
+    (straight-use-package '(org
+                        :repo "https://code.orgmode.org/bzg/org-mode.git"))
     
     (with-eval-after-load 'org
       (require 'org-tempo)
@@ -849,194 +1069,205 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s  m
     (cuss org-confirm-babel-evaluate nil)
     (cuss org-directory "~/Org")
     (cuss org-ellipsis "…")
+    (cuss org-catch-invisible-edits 'show)
 
 1.  Tags
 
-        (cuss org-tags-column 0
-          "Show tags directly after the headline.
-        This is the best-looking option with variable-pitch fonts.")
+        (cuss org-tags-column 0
+          "Show tags directly after the headline.
+        This is the best-looking option with variable-pitch fonts.")
         
-        (cussface
-         '(org-tag
-           ((t
-             (:height 0.8 :weight normal :slant italic :foreground "grey40" :inherit
-                      (variable-pitch))))))
+        (cussface
+         '(org-tag
+           ((t
+             (:height 0.8 :weight normal :slant italic :foreground "grey40" :inherit
+                      (variable-pitch))))))
 
 
 ### General
 
 1.  [Org Return: DWIM](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))))
+        (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'.
+        ;;;###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.
+        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.
+             ;; 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))
+             ;; ((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"))) nil))
-                         (insert "\n"))
-                       (forward-line -1)))))
+             ((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"))) nil))
+                         (insert "\n"))
+                       (forward-line -1)))))
         
-             ((org-at-item-checkbox-p)
-              ;; Checkbox: Insert new item with checkbox.
-              (org-insert-todo-heading nil))
+             ((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"))))
+             ((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))
+             ((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)))))
+             ((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)))))
         
-        (with-eval-after-load 'org
-          (define-key org-mode-map (kbd "RET") #'unpackaged/org-return-dwim))
+        (with-eval-after-load 'org
+          (define-key org-mode-map (kbd "RET") #'unpackaged/org-return-dwim))
 
 2.  Insert blank lines around headers
 
     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)))
+        ;;;###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)))
     
     1.  Add a before-save-hook
     
-            (defun cribbed/org-mode-fix-blank-lines ()
-              (when (eq major-mode 'org-mode)
-                (let ((current-prefix-arg 4)) ; Emulate C-u
-                  (call-interactively 'unpackaged/org-fix-blank-lines))))
-            
-            (add-hook 'before-save-hook #'cribbed/org-mode-fix-blank-lines)
+            (defun cribbed/org-mode-fix-blank-lines ()
+              (when (eq major-mode 'org-mode)
+                (let ((current-prefix-arg 4)) ; Emulate C-u
+                  (call-interactively 'unpackaged/org-fix-blank-lines))))
+
+            (add-hook 'before-save-hook #'cribbed/org-mode-fix-blank-lines)
 
 
 ### Org Agenda
 
     (cuss org-agenda-files
-        (let ((list))
-          (dolist (file '(;; add more files to this list
-                      "home.org"
-                      "work.org")
-                    list)
-        (push (expand-file-name file org-directory) list))))
+        (let ((list))
+          (dolist (file '(;; add more files to this list
+                      "home.org"
+                      "work.org")
+                    list)
+        (push (expand-file-name file org-directory) list))))
     
     (define-key acdw/map (kbd "C-a") #'org-agenda)
     
     (cuss org-todo-keywords
-        '((sequence "RECUR(r)" "TODO(t)" "|" "DONE(d)")
-          (sequence "|" "CANCELLED(c)")))
+        '((sequence "RECUR(r)" "TODO(t)" "|" "DONE(d)")
+          (sequence "|" "CANCELLED(c)")))
 
 
 ### TODO Capture
 
 
+### Include Org links in source code
+
+    (straight-use-package '(org-link-minor-mode
+                        :host github
+                        :repo "seanohalpin/org-link-minor-mode"))
+    
+    ;; enable in elisp buffers
+    (add-hook 'emacs-lisp-mode-hook #'org-link-minor-mode)
+
+
 ## Git
 
     (straight-use-package 'magit)
@@ -1047,8 +1278,8 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s  m
 ## Beancount mode
 
     (straight-use-package '(beancount-mode
-                        :host github
-                        :repo "beancount/beancount-mode"))
+                        :host github
+                        :repo "beancount/beancount-mode"))
     (require 'beancount)
     
     (add-to-list 'auto-mode-alist '("\\.beancount\\'" . beancount-mode))
@@ -1072,24 +1303,33 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s  m
 
 ### init.el
 
-I realized I didn’t need `early-init.el`, since it really only set `load-prefer-newer`.  So I’ve set that here, and wrapped the actual loading of config in a `let*` form that speeds up init, and loads the newer of either `config.org` or `config.el`.
-
     ;; init.el -*- lexical-binding: t -*-
     
     (setq load-prefer-newer t)
     
     (let* (;; Speed up init
-           (gc-cons-threshold most-positive-fixnum)
-           (file-name-handler-alist nil)
-           ;; Config file names
-           (conf (expand-file-name "config"
-                               user-emacs-directory))
-           (conf-el (concat conf ".el"))
-           (conf-org (concat conf ".org")))
+           (gc-cons-threshold most-positive-fixnum)
+           (file-name-handler-alist nil)
+           ;; Config file names
+           (conf (expand-file-name "config"
+                               user-emacs-directory))
+           (conf-el (concat conf ".el"))
+           (conf-org (concat conf ".org")))
       (unless (and (file-newer-than-file-p conf-el conf-org)
-               (load conf 'no-error))
-        (require 'org)
-        (org-babel-load-file conf-org)))
+               (load conf 'no-error))
+        (require 'org)
+        (org-babel-load-file conf-org)))
+
+
+### early-init.el
+
+    ;; early-init.el -*- no-byte-compile: t; -*-
+    
+    ;; I use `straight.el' instead of `package.el'.
+    (setq package-enable-at-startup nil)
+    
+    ;; Don't resize the frame when loading fonts
+    (setq frame-inhibit-implied-resize t)
 
 
 ## Ease tangling and loading of Emacs' init
@@ -1099,29 +1339,29 @@ I realized I didn’t need `early-init.el`, since it really only set `load-prefe
     Then, load the byte-compilations unless passed with a prefix argument."
       (interactive "P")
       (let ((config (expand-file-name "config.org" user-emacs-directory)))
-        (save-mark-and-excursion
-          (with-current-buffer (find-file config)
-        (let ((prog-mode-hook nil))
-          ;; generate the readme
-          (when (file-newer-than-file-p config (expand-file-name
-                                                "README.md"
-                                                user-emacs-directory))
-            (message "%s" "Exporting README.md...")
-            (require 'ox-md)
-            (with-demoted-errors "Problem exporting README.md: %S"
-              (org-md-export-to-markdown)))
-          ;; tangle config.org
-          (when (file-newer-than-file-p config (expand-file-name
-                                                "config.el"
-                                                user-emacs-directory))
-            (message "%s" "Tangling config.org...")
-            (require 'org)
-            (let ((inits (org-babel-tangle)))
-              ;; byte-compile resulting files
-              (message "%s" "Byte-compiling...")
-              (dolist (f inits)
-                (when (string-match "\\.el\\'" f)
-                  (byte-compile-file f (not disable-load)))))))))))
+        (save-mark-and-excursion
+          (with-current-buffer (find-file config)
+        (let ((prog-mode-hook nil))
+          ;; generate the readme
+          (when (file-newer-than-file-p config (expand-file-name
+                                                "README.md"
+                                                user-emacs-directory))
+            (message "%s" "Exporting README.md...")
+            (require 'ox-md)
+            (with-demoted-errors "Problem exporting README.md: %S"
+              (org-md-export-to-markdown)))
+          ;; tangle config.org
+          (when (file-newer-than-file-p config (expand-file-name
+                                                "config.el"
+                                                user-emacs-directory))
+            (message "%s" "Tangling config.org...")
+            (require 'org)
+            (let ((inits (org-babel-tangle)))
+              ;; byte-compile resulting files
+              (message "%s" "Byte-compiling...")
+              (dolist (f inits)
+                (when (string-match "\\.el\\'" f)
+                  (byte-compile-file f (not disable-load)))))))))))
 
 
 ## Ancillary scripts
@@ -1129,32 +1369,35 @@ I realized I didn’t need `early-init.el`, since it really only set `load-prefe
 
 ### emacsdc
 
+:header-args: :tangle bin/emacsdc :tangle-mode (identity #o755)
+
 Here's a wrapper script that'll start `emacs --daemon` if there isn't
 one, and then launch `emacsclient` with the arguments.  I'd recommend
 installing with either `ln -s bin/emacsdc $HOME/.local/bin/`, or
 adding `$HOME/.local/bin` to your `$PATH`.
 
     if ! emacsclient -nc "$@" 2>/dev/null; then
-        emacs --daemon
-        emacsclient -nc "$@"
+        emacs --daemon
+        emacsclient -nc "$@"
     fi
 
 
 ### Emacs.cmd
 
-Here's a wrapper script that'll run Emacs on Windows, with a custom
-`$HOME`.  I have mine setup like this: Emacs is downloaded from [the
-GNU mirror](https://mirrors.tripadvisor.com/gnu/emacs/windows/emacs-27/emacs-27.1-x86_64.zip) and unzipped to `~/Downloads/emacs/`.  `Emacs.cmd` sets
-`$HOME` to `~/Downloads/emacshome/`, which is where `.emacs.d` is, and
-whatever else I might want to throw in there.
+Here's a wrapper script that'll run Emacs on Windows, with a custom `$HOME`.  I have
+mine setup like this: Emacs is downloaded from [the GNU mirror](https://mirrors.tripadvisor.com/gnu/emacs/windows/emacs-27/emacs-27.1-x86_64.zip) and unzipped to
+`~/Downloads/emacs/`.  For some reason, Emacs by default sets `$HOME` to `%APPDATA%`,
+which doesn’t make a lot of sense to me.  I change it to `%USERPROFILE%`, and then run
+Emacs with the supplied arguments.
 
-    set HOME=%~dp0..\..\emacshome
+    set HOME=%USERPROFILE%
+    set EMACS="%USERPROFILE%\Downloads\emacs\bin\runemacs.exe"
     
     REM Run "Quick Mode"
-    REM "%~dp0runemacs.exe" -Q %*
+    REM "%EMACS%" -Q %*
     
     REM Regular
-    "%~dp0runemacs.exe" %*
+    "%EMACS%" %*
 
 
 ## License
@@ -1188,4 +1431,3 @@ 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!**
-