From 18bcd567d1e7770b4e28c43eeefbf81696e2f4a3 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 19 Jul 2026 21:10:40 -0500
Subject: feat: add workflow font profiles

I replaced the mixed Fontaine presets with seven named profiles that persist across restarts. The mode line, echo area, and minibuffer stay in Berkeley Mono.

Nov applies the shared Reading profile inside each EPUB buffer without changing the global selection.
---
 tests/test-font-config--frame-lifecycle.el | 75 ------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 tests/test-font-config--frame-lifecycle.el

(limited to 'tests/test-font-config--frame-lifecycle.el')

diff --git a/tests/test-font-config--frame-lifecycle.el b/tests/test-font-config--frame-lifecycle.el
deleted file mode 100644
index 8f338b99..00000000
--- a/tests/test-font-config--frame-lifecycle.el
+++ /dev/null
@@ -1,75 +0,0 @@
-;;; test-font-config--frame-lifecycle.el --- Tests for the lifted font frame helpers -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; cj/apply-font-settings-to-frame, cj/cleanup-frame-list, and
-;; cj/maybe-install-nerd-icons-fonts were defined inside use-package
-;; :config / with-eval-after-load (unreachable under `make test').  Lifting
-;; them to top level makes their branching unit-testable; env-gui-p and the
-;; package side-effect calls are mocked at the boundary.
-
-;;; Code:
-
-(require 'ert)
-(require 'cl-lib)
-
-(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
-(require 'font-config)
-
-(defvar cj/fontaine-configured-frames)
-
-(ert-deftest test-font-cleanup-frame-list-removes-frame ()
-  "Normal: cleanup drops the given frame from the configured list."
-  (let ((cj/fontaine-configured-frames '(fr1 fr2 fr3)))
-    (cj/cleanup-frame-list 'fr2)
-    (should (equal cj/fontaine-configured-frames '(fr1 fr3)))))
-
-(ert-deftest test-font-apply-gui-unconfigured-sets-preset ()
-  "Normal: a GUI frame not yet configured gets the preset and is tracked."
-  (let ((cj/fontaine-configured-frames nil)
-        (called nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
-              ((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
-      (cj/apply-font-settings-to-frame (selected-frame)))
-    (should called)
-    (should (member (selected-frame) cj/fontaine-configured-frames))))
-
-(ert-deftest test-font-apply-already-configured-is-noop ()
-  "Boundary: an already-configured frame is not re-preset."
-  (let ((cj/fontaine-configured-frames (list (selected-frame)))
-        (called nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
-              ((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
-      (cj/apply-font-settings-to-frame (selected-frame)))
-    (should-not called)))
-
-(ert-deftest test-font-apply-non-gui-is-noop ()
-  "Boundary: without a GUI nothing is applied or tracked."
-  (let ((cj/fontaine-configured-frames nil)
-        (called nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda () nil))
-              ((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
-      (cj/apply-font-settings-to-frame (selected-frame)))
-    (should-not called)
-    (should-not (member (selected-frame) cj/fontaine-configured-frames))))
-
-(ert-deftest test-font-maybe-install-icons-gui-missing-installs ()
-  "Normal: GUI present and font missing triggers the install."
-  (let ((installed nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
-              ((symbol-function 'cj/font-installed-p) (lambda (_n) nil))
-              ((symbol-function 'nerd-icons-install-fonts) (lambda (&rest _) (setq installed t)))
-              ((symbol-function 'remove-hook) #'ignore))
-      (cj/maybe-install-nerd-icons-fonts))
-    (should installed)))
-
-(ert-deftest test-font-maybe-install-icons-already-present-skips ()
-  "Boundary: an installed font means no install attempt."
-  (let ((installed nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
-              ((symbol-function 'cj/font-installed-p) (lambda (_n) t))
-              ((symbol-function 'nerd-icons-install-fonts) (lambda (&rest _) (setq installed t))))
-      (cj/maybe-install-nerd-icons-fonts))
-    (should-not installed)))
-
-(provide 'test-font-config--frame-lifecycle)
-;;; test-font-config--frame-lifecycle.el ends here
-- 
cgit v1.2.3