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.

10 files changed, 538 insertions, 221 deletions

diff --git a/.gitignore b/.gitignore
index c3b5fc8c..16ada780 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,6 +5,7 @@
 /.coverage/
 flycheck_*
 projectile-bookmarks.eld
+/fontaine-latest-state.eld
 /recentf
 /backups/
 auto-save-list/
diff --git a/docs/specs/2026-07-06-fancy-music-player-ui-spec.org b/docs/specs/2026-07-06-fancy-music-player-ui-spec.org
index 44fd8a00..832a9dfa 100644
--- a/docs/specs/2026-07-06-fancy-music-player-ui-spec.org
+++ b/docs/specs/2026-07-06-fancy-music-player-ui-spec.org
@@ -102,7 +102,7 @@ Pure pieces (name resolution, the m3u-label extraction, the bar-fill computation
 ** DONE Serif title face
 - Owner / by-when: Craig / before Phase 3
 - Context: the fancy titles want a serif variable-pitch face, theme-owned.
-- Decision: We will add a defcustom for the title family defaulting to the nov reading view's serif (cj/nov-reading-font-family, currently "Merriweather") and a theme-owned face the dupre theme colors.
+- Decision: We will add a defcustom for the title family defaulting to the shared Reading font profile's serif (currently "Merriweather") and a theme-owned face the dupre theme colors.
 - Consequences: easier — one knob, consistent with the nov-reading typography choice; harder — another face to register in theme-studio if we want it tunable there (deferred).
 
 ** DONE Progress bar rendering and cadence
diff --git a/docs/specs/keybinding-console-safety-spec.org b/docs/specs/keybinding-console-safety-spec.org
index c7d1baf7..b29309b8 100644
--- a/docs/specs/keybinding-console-safety-spec.org
+++ b/docs/specs/keybinding-console-safety-spec.org
@@ -572,7 +572,7 @@ source module.
 - M-S-o — cj/kill-other-window — kill the other window's buffer and close it — undead-buffers.el
 - M-S-m — cj/kill-all-other-buffers-and-windows — close all other windows, kill their buffers — undead-buffers.el
 - M-S-y — yank-media — paste an image/media object from the clipboard — keybindings.el
-- M-S-f — fontaine-set-preset — switch the font preset — font-config.el
+- M-S-f — cj/fontaine-select-profile — switch the workflow font profile — font-config.el
 - M-S-w — wttrin — show the weather report — weather-config.el
 - M-S-e — eww — open the EWW web browser — eww-config.el
 - M-S-l — cj/switch-themes — select/cycle the theme — ui-theme.el
diff --git a/modules/font-config.el b/modules/font-config.el
index e5afb361..b55c13fa 100644
--- a/modules/font-config.el
+++ b/modules/font-config.el
@@ -8,12 +8,12 @@
 ;; Load shape: eager.
 ;; Eager reason: first-frame font setup and font keybindings.
 ;; Top-level side effects: font keys, font checks, package config.
-;; Runtime requires: host-environment, keybindings.
+;; Runtime requires: host-environment, font-profiles, keybindings.
 ;; Direct test load: yes.
 ;;
-;; Configures fontaine presets, text scaling keys, icon/emoji fonts, and
-;; programming ligatures. Presets are applied per frame so daemon clients get
-;; the intended fixed/variable pitch sizes.
+;; Configures task-oriented Fontaine profiles, text scaling keys, icon/emoji
+;; fonts, and programming ligatures. The selected profile is global, persists
+;; across restarts, and applies to every daemon frame without per-frame resets.
 ;;
 ;; Also carries font-rendering safeguards for known HarfBuzz/font-cache crashes
 ;; triggered by emoji and Arabic shaping in this setup.
@@ -21,6 +21,7 @@
 ;;; Code:
 
 (require 'host-environment)
+(require 'font-profiles)
 (require 'keybindings)  ;; establishes the C-z prefix used for "C-z F" below
 
 (defvar text-scale-mode-step)
@@ -50,106 +51,154 @@
                    (#xFE70 . #xFEFF)))  ;; Arabic Presentation Forms-B
     (set-char-table-range composition-function-table range nil)))
 
-;; ----------------------- Font Family And Size Selection ----------------------
-;; preset your fixed and variable fonts, then apply them to text as a set
+;; ------------------------- Workflow Font Profiles ----------------------------
+;; Each choice is a complete destination.  Font size adjustments within one
+;; buffer remain on C-+/C--; Fontaine owns the global workflow typography.
+
+(defconst cj/fontaine-profile-order
+  cj/font-profile-order
+  "Fontaine profiles in picker order.")
+
+(defconst cj/fontaine-profile-names
+  '((everyday . "Everyday")
+    (writing . "Writing")
+    (reading . "Reading")
+    (coding-xs . "Coding XS")
+    (coding . "Coding")
+    (coding-xl . "Coding XL")
+    (presentation . "Presentation"))
+  "Human names for Fontaine workflow profiles.")
+
+(defconst cj/fontaine-profile-fonts
+  '((everyday . "Berkeley Mono + Lexend")
+    (writing . "Berkeley Mono + Merriweather")
+    (reading . "Merriweather")
+    (coding-xs . "Berkeley Mono")
+    (coding . "Berkeley Mono")
+    (coding-xl . "Berkeley Mono")
+    (presentation . "Berkeley Mono + Lexend"))
+  "Human-readable font combinations for Fontaine workflow profiles.")
+
+(defconst cj/fontaine-profile-heights
+  (mapcar (lambda (profile)
+            (cons profile
+                  (plist-get (cj/font-profile-properties profile)
+                             :default-height)))
+          cj/fontaine-profile-order)
+  "Default face heights for Fontaine workflow profiles.")
+
+(defconst cj/fontaine-ui-family "BerkeleyMono Nerd Font"
+  "Font family reserved for the mode line, echo area, and minibuffer.")
+
+(defvar fontaine-current-preset)
+(defvar fontaine-preset-history)
+(defvar fontaine-presets)
+(defvar enable-theme-functions)
+(defvar cj/fontaine-profile-history nil
+  "Minibuffer history for `cj/fontaine-select-profile'.")
+
+(declare-function fontaine-mode "fontaine")
+(declare-function fontaine-restore-latest-preset "fontaine")
+(declare-function fontaine-set-preset "fontaine")
+(declare-function face-remap-set-base "face-remap")
+
+(defun cj/fontaine-profile-p (profile)
+  "Return non-nil when PROFILE is a configured workflow profile."
+  (cj/font-profile-p profile))
+
+(defun cj/fontaine-profile-label (profile)
+  "Return the complete picker label for PROFILE."
+  (when (cj/fontaine-profile-p profile)
+    (format "%s — %s · %d pt"
+            (alist-get profile cj/fontaine-profile-names)
+            (alist-get profile cj/fontaine-profile-fonts)
+            (/ (alist-get profile cj/fontaine-profile-heights) 10))))
+
+(defun cj/fontaine-profile-candidates ()
+  "Return complete labels for all Fontaine workflow profiles."
+  (mapcar #'cj/fontaine-profile-label cj/fontaine-profile-order))
+
+(defun cj/fontaine-profile-from-label (label)
+  "Return the workflow profile represented by LABEL, or nil."
+  (seq-find (lambda (profile)
+              (equal label (cj/fontaine-profile-label profile)))
+            cj/fontaine-profile-order))
+
+(defun cj/fontaine-profile-annotation (candidate)
+  "Mark CANDIDATE when it represents the active Fontaine profile."
+  (if (eq (cj/fontaine-profile-from-label candidate)
+          fontaine-current-preset)
+      "  current"
+    ""))
+
+(defun cj/fontaine-apply-profile (profile)
+  "Apply workflow PROFILE and record it for Fontaine persistence."
+  (unless (cj/fontaine-profile-p profile)
+    (user-error "Unknown font profile: %s" profile))
+  (add-to-history 'fontaine-preset-history (symbol-name profile))
+  (fontaine-set-preset profile))
+
+(defun cj/fontaine-select-profile ()
+  "Select and apply one complete Fontaine workflow profile."
+  (interactive)
+  (let* ((candidates (cj/fontaine-profile-candidates))
+         (default (cj/fontaine-profile-label
+                   (if (cj/fontaine-profile-p fontaine-current-preset)
+                       fontaine-current-preset
+                     'everyday)))
+         (completion-extra-properties
+          '(:annotation-function cj/fontaine-profile-annotation))
+         (choice (completing-read "Font profile: " candidates nil t
+                                  nil 'cj/fontaine-profile-history default)))
+    (cj/fontaine-apply-profile (cj/fontaine-profile-from-label choice))))
+
+(defun cj/fontaine-restored-or-default-profile ()
+  "Return the saved Fontaine profile, or the `everyday' fallback."
+  (let ((restored (fontaine-restore-latest-preset)))
+    (if (cj/fontaine-profile-p restored) restored 'everyday)))
+
+(defalias 'cj/fontaine-profile-properties #'cj/font-profile-properties)
+(defalias 'cj/fontaine-remap-buffer-to-profile #'cj/font-profile-remap-buffer)
+
+(defun cj/fontaine-remap-ui-buffer ()
+  "Keep the current minibuffer or echo-area buffer in Berkeley Mono."
+  (face-remap-set-base
+   'default `(:family ,cj/fontaine-ui-family)))
+
+(defun cj/fontaine-keep-ui-chrome-monospace (&rest _ignored)
+  "Keep mode-line, minibuffer, and echo-area chrome in Berkeley Mono."
+  (dolist (face '(mode-line mode-line-active mode-line-inactive
+                  minibuffer-prompt))
+    (when (facep face)
+      (set-face-attribute face nil :family cj/fontaine-ui-family)))
+  (dolist (name '(" *Echo Area 0*" " *Echo Area 1*"))
+    (when-let* ((buffer (get-buffer name)))
+      (with-current-buffer buffer
+        (cj/fontaine-remap-ui-buffer)))))
+
+;; Fontaine 3 is global rather than frame-specific.  Remove the retired hooks
+;; as well as omitting them below, so a live module reload migrates cleanly.
+(remove-hook 'server-after-make-frame-hook #'cj/apply-font-settings-to-frame)
+(remove-hook 'delete-frame-functions #'cj/cleanup-frame-list)
 
 (use-package fontaine
   :demand t
   :bind
-  ("M-S-f" . fontaine-set-preset)  ;; was M-F, overrides forward-word
+  ("M-S-f" . cj/fontaine-select-profile)  ;; was M-F, overrides forward-word
   :config
   (setq fontaine-presets
-		`(
-		  (default
-		   :default-family "BerkeleyMono Nerd Font"
-		   :default-weight regular
-		   :default-height ,(if (env-laptop-p) 130 140)
-		   :fixed-pitch-family nil          ;; falls back to :default-family
-		   :fixed-pitch-weight nil          ;; falls back to :default-weight
-		   :fixed-pitch-height 1.0
-		   :variable-pitch-family "Lexend"
-		   :variable-pitch-weight regular
-		   :variable-pitch-height 1.0)
-		  (FiraCode
-		   :default-family "FiraCode Nerd Font Mono"
-		   :variable-pitch-family "Merriweather"
-		   :variable-pitch-weight light)
-		  (Hack
-		   :default-family "Hack Nerd Font Mono"
-		   :variable-pitch-family "Hack Nerd Font Mono")
-		  (BerkeleyMono
-		   :default-family "Berkeley Mono"
-		   :variable-pitch-family "Charis SIL")
-		  (FiraCode-Literata
-		   :default-family "Fira Code Nerd Font"
-		   :variable-pitch-family "Literata")
-		  (24-point-font
-		   :default-height 240)
-		  (20-point-font
-		   :default-height 200)
-		  (16-point-font
-		   :default-height 160)
-		  (14-point-font
-		   :default-height 140)
-		  (13-point-font
-		   :default-height 130)
-		  (12-point-font
-		   :default-height 120)
-		  (11-point-font
-		   :default-height 110)
-		  (10-point-font
-		   :default-height 100)
-		  (t                                ;; shared fallback properties go here
-		   :default-family "FiraCode Nerd Font Mono"
-		   :default-weight regular
-		   :default-height 120
-		   :fixed-pitch-family nil          ;; falls back to :default-family
-		   :fixed-pitch-weight nil          ;; falls back to :default-weight
-		   :fixed-pitch-height 1.0
-		   :fixed-pitch-serif-family nil    ;; falls back to :default-family
-		   :fixed-pitch-serif-weight nil    ;; falls back to :default-weight
-		   :fixed-pitch-serif-height 1.0
-		   :variable-pitch-family "Merriweather"
-		   :variable-pitch-weight light
-		   :variable-pitch-height 1.0
-		   :bold-family nil                 ;; use whatever the underlying face has
-		   :bold-weight bold
-		   :italic-family nil
-		   :italic-slant italic
-		   :line-spacing nil))))
-
-;; Track which frames have had fonts applied
-(defvar cj/fontaine-configured-frames nil
-  "List of frames that have had fontaine configuration applied.")
-
-(declare-function fontaine-set-preset "fontaine")
-
-(defun cj/apply-font-settings-to-frame (&optional frame)
-  "Apply font settings to FRAME if not already configured.
-If FRAME is nil, uses the selected frame."
-  (let ((target-frame (or frame (selected-frame))))
-    (unless (member target-frame cj/fontaine-configured-frames)
-      (with-selected-frame target-frame
-        (when (env-gui-p)
-          (fontaine-set-preset 'default)
-          (push target-frame cj/fontaine-configured-frames))))))
-
-(defun cj/cleanup-frame-list (frame)
-  "Remove FRAME from the configured frames list when deleted."
-  (setq cj/fontaine-configured-frames
-        (delq frame cj/fontaine-configured-frames)))
-
-(with-eval-after-load 'fontaine
-  ;; Handle daemon mode and regular mode
-  (if (daemonp)
-      (progn
-        ;; Apply to each new frame in daemon mode
-        (add-hook 'server-after-make-frame-hook #'cj/apply-font-settings-to-frame)
-        ;; Clean up deleted frames from tracking list
-        (add-hook 'delete-frame-functions #'cj/cleanup-frame-list))
-    ;; Apply immediately in non-daemon mode
-    (when (env-gui-p)
-      (cj/apply-font-settings-to-frame))))
+        (append (copy-tree cj/font-profile-definitions)
+                (list (cons t (copy-sequence
+                               cj/font-profile-shared-properties)))))
+  (fontaine-mode 1)
+  (add-hook 'fontaine-set-preset-hook
+            #'cj/fontaine-keep-ui-chrome-monospace)
+  (add-hook 'enable-theme-functions
+            #'cj/fontaine-keep-ui-chrome-monospace)
+  (add-hook 'minibuffer-setup-hook #'cj/fontaine-remap-ui-buffer)
+  (cj/fontaine-keep-ui-chrome-monospace)
+  (when (or (daemonp) (env-gui-p))
+    (cj/fontaine-apply-profile (cj/fontaine-restored-or-default-profile))))
 
 ;; ----------------------------- Font Install Check ----------------------------
 ;; convenience function to indicate whether a font is available by name.
diff --git a/modules/font-profiles.el b/modules/font-profiles.el
new file mode 100644
index 00000000..07930065
--- /dev/null
+++ b/modules/font-profiles.el
@@ -0,0 +1,113 @@
+;;; font-profiles.el --- Shared Workflow Font Profile Data -*- lexical-binding: t; coding: utf-8; -*-
+;; author: Craig Jennings <c@cjennings.net>
+
+;;; Commentary:
+;;
+;; Layer: 1 (Foundation).
+;; Category: F/L.
+;; Load shape: library.
+;; Top-level side effects: none.
+;; Runtime requires: host-environment.
+;; Direct test load: yes.
+;;
+;; Owns the effective font properties shared by the global Fontaine adapter and
+;; buffer-local mode adapters such as nov-reading.  Consumers can therefore use
+;; the same named profile without making a global Fontaine selection.
+
+;;; Code:
+
+(require 'host-environment)
+
+(declare-function face-remap-add-relative "face-remap")
+
+(defconst cj/font-profile-shared-properties
+  `(:default-family "BerkeleyMono Nerd Font"
+    :default-weight regular
+    :default-height ,(if (env-laptop-p) 130 140)
+    :fixed-pitch-family nil
+    :fixed-pitch-weight nil
+    :fixed-pitch-height 1.0
+    :fixed-pitch-serif-family nil
+    :fixed-pitch-serif-weight nil
+    :fixed-pitch-serif-height 1.0
+    :variable-pitch-family "Lexend"
+    :variable-pitch-weight regular
+    :variable-pitch-height 1.0
+    :bold-family nil
+    :bold-weight bold
+    :italic-family nil
+    :italic-slant italic
+    :line-spacing nil)
+  "Properties shared by every workflow font profile unless overridden.")
+
+(defconst cj/font-profile-definitions
+  '((everyday)
+    (writing
+     :default-height 140
+     :variable-pitch-family "Merriweather"
+     :variable-pitch-weight light)
+    (reading
+     :default-family "Merriweather"
+     :default-height 140
+     :fixed-pitch-family "Merriweather"
+     :fixed-pitch-serif-family "Merriweather"
+     :variable-pitch-family "Merriweather")
+    (coding-xs
+     :default-height 110
+     :variable-pitch-family "BerkeleyMono Nerd Font")
+    (coding
+     :default-height 130
+     :variable-pitch-family "BerkeleyMono Nerd Font")
+    (coding-xl
+     :default-height 160
+     :variable-pitch-family "BerkeleyMono Nerd Font")
+    (presentation
+     :default-height 200))
+  "Profile-specific font properties in user-facing order.")
+
+(defconst cj/font-profile-order
+  (mapcar #'car cj/font-profile-definitions)
+  "Workflow font profiles in user-facing order.")
+
+(defun cj/font-profile-p (profile)
+  "Return non-nil when PROFILE is a configured workflow font profile."
+  (memq profile cj/font-profile-order))
+
+(defun cj/font-profile-properties (profile)
+  "Return effective font properties for workflow PROFILE."
+  (let ((entry (assq profile cj/font-profile-definitions)))
+    (unless entry
+      (user-error "Unknown font profile: %s" profile))
+    (append (cdr entry) cj/font-profile-shared-properties)))
+
+(defun cj/font-profile-remap-buffer (profile &optional height)
+  "Apply PROFILE's face families buffer-locally and return remap cookies.
+When HEIGHT is non-nil, use it for every remapped face instead of the profile's
+configured heights.  No global face or Fontaine state is changed."
+  (let ((properties (cj/font-profile-properties profile))
+        (cookies nil))
+    (dolist (face-property '((default
+                              :default-family :default-height)
+                             (fixed-pitch
+                              :fixed-pitch-family :fixed-pitch-height)
+                             (fixed-pitch-serif
+                              :fixed-pitch-serif-family
+                              :fixed-pitch-serif-height)
+                             (variable-pitch
+                              :variable-pitch-family
+                              :variable-pitch-height)))
+      (pcase-let ((`(,face ,family-property ,height-property)
+                   face-property))
+        (let ((family (or (plist-get properties family-property)
+                          (and (memq face '(fixed-pitch fixed-pitch-serif))
+                               (plist-get properties :default-family))))
+              (face-height (or height
+                               (plist-get properties height-property))))
+          (when family
+            (push (face-remap-add-relative
+                   face :family family :height face-height)
+                  cookies)))))
+    (nreverse cookies)))
+
+(provide 'font-profiles)
+;;; font-profiles.el ends here
diff --git a/modules/music-config.el b/modules/music-config.el
index 78ea49d9..2c62a9ae 100644
--- a/modules/music-config.el
+++ b/modules/music-config.el
@@ -86,7 +86,9 @@ falls back to the plain text player (names, a dim glyph, a thin status line)."
   :group 'cj/music)
 
 (defcustom cj/music-title-family
-  (if (boundp 'cj/nov-reading-font-family) cj/nov-reading-font-family "Merriweather")
+  (if (fboundp 'cj/font-profile-properties)
+      (plist-get (cj/font-profile-properties 'reading) :default-family)
+    "Merriweather")
   "Serif family for the fancy now-playing title, mirroring the nov reading view."
   :type 'string
   :group 'cj/music)
diff --git a/modules/nov-reading.el b/modules/nov-reading.el
index 636a2f53..3af8721c 100644
--- a/modules/nov-reading.el
+++ b/modules/nov-reading.el
@@ -10,7 +10,7 @@
 ;;   keymap reference; the faces must exist for theme-studio's inventory too.
 ;; Top-level side effects: defface x9 (3 palettes + per-palette heading/link),
 ;;   defcustoms, a defgroup, a defvar.
-;; Runtime requires: none (face-remap and text-scale are built in).
+;; Runtime requires: font-profiles (shared workflow profile data).
 ;; Direct test load: yes.
 ;;
 ;; A small theme layer on top of the stock `nov' package (no fork): how an EPUB
@@ -20,8 +20,9 @@
 ;;   - Reading palette -- the background + foreground, as sepia / dark / light,
 ;;     each a face the dupre theme / theme-studio own (registered as the
 ;;     "nov-reading" bespoke app in theme-studio's face_data.py).
-;;   - Typography -- a serif family and a base height, with +/-/= adjusting the
-;;     page font size live via a buffer-local text-scale on top of the base.
+;;   - Typography -- the shared Reading font profile and a nov-specific base
+;;     height, with +/-/= adjusting the page font size live via a buffer-local
+;;     text-scale on top of the base.
 ;;     The live size is remembered globally, so every book opens where you left
 ;;     it; "=" returns to the base height.
 ;;
@@ -31,6 +32,8 @@
 
 ;;; Code:
 
+(require 'font-profiles)
+
 (defgroup cj/nov-reading nil
   "Reading-view theming for nov-mode EPUBs."
   :group 'cj)
@@ -194,9 +197,9 @@ Interactively prompts among `cj/nov-reading-palettes' plus \"none\"."
 
 ;; ------------------------------- Typography ----------------------------------
 
-(defcustom cj/nov-reading-font-family "Merriweather"
-  "Variable-pitch serif family for the EPUB reading view."
-  :type 'string
+(defcustom cj/nov-reading-profile 'reading
+  "Shared font profile applied buffer-locally to the EPUB reading view."
+  :type 'symbol
   :group 'cj/nov-reading)
 
 (defcustom cj/nov-reading-text-height 180
@@ -214,6 +217,9 @@ returns to this base."
 A single integer: the buffer-local `text-scale-mode-amount' the +/-/= keys
 last set, applied on top of `cj/nov-reading-text-height' when a book opens.")
 
+(defvar-local cj/nov--typography-remap-cookies nil
+  "Face-remap cookies for the shared font profile in this nov buffer.")
+
 (defun cj/nov-reading--parse-text-scale (s)
   "Parse S (a string or nil) as an integer text-scale offset; 0 when invalid.
 Surrounding whitespace is tolerated; non-integer content yields 0."
@@ -239,15 +245,11 @@ Creates the data directory when absent."
     (insert (number-to-string amount))))
 
 (defun cj/nov-reading-apply-typography ()
-  "Apply the reading family and base height buffer-local.
-Remaps `variable-pitch', `default', and `fixed-pitch' so nov's shr output reads
-as a comfortably-sized serif page."
-  (face-remap-add-relative 'variable-pitch
-                           :family cj/nov-reading-font-family :height 1.0)
-  (face-remap-add-relative 'default
-                           :family cj/nov-reading-font-family
-                           :height cj/nov-reading-text-height)
-  (face-remap-add-relative 'fixed-pitch :height cj/nov-reading-text-height))
+  "Apply the shared reading profile at nov's base height buffer-locally."
+  (mapc #'face-remap-remove-relative cj/nov--typography-remap-cookies)
+  (setq cj/nov--typography-remap-cookies
+        (cj/font-profile-remap-buffer
+         cj/nov-reading-profile cj/nov-reading-text-height)))
 
 (defun cj/nov-reading-text-bigger ()
   "Increase the page font size and remember it across books and sessions."
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
diff --git a/tests/test-font-config.el b/tests/test-font-config.el
index 4df2b41a..29ac9a87 100644
--- a/tests/test-font-config.el
+++ b/tests/test-font-config.el
@@ -4,11 +4,10 @@
 
 ;; font-config.el is mostly top-level font/package setup.  These smoke tests
 ;; cover the logic that should stay correct regardless of which fonts are
-;; installed: the install check, and the daemon-frame font applier (env-gui-p
-;; guard plus idempotency).  The module :demand's fontaine and references
-;; nerd-icons, so the tests skip when those packages are absent rather than
-;; failing on a bare checkout.  GUI and font lookups are stubbed so the run
-;; stays headless.
+;; installed: the install check, task-oriented Fontaine picker, persistence,
+;; and emoji setup. The module :demand's fontaine and references nerd-icons, so
+;; the tests skip when those packages are absent rather than failing on a bare
+;; checkout. GUI and font lookups are stubbed so the run stays headless.
 
 ;;; Code:
 
@@ -41,34 +40,32 @@
   (cl-letf (((symbol-function 'find-font) (lambda (&rest _) nil)))
     (should (null (cj/font-installed-p "No Such Font 12345")))))
 
-;;; cj/apply-font-settings-to-frame
+;;; cj/maybe-install-nerd-icons-fonts
 
-(ert-deftest test-font-config-apply-font-settings-noop-without-gui ()
-  "Boundary: on a non-GUI frame the applier does nothing and does not error."
+(ert-deftest test-font-config-nerd-icons-missing-font-installs-on-gui ()
+  "Normal: a missing Nerd Icons font is installed on a GUI frame."
   (skip-unless test-font-config--available)
   (require 'font-config)
-  (let ((cj/fontaine-configured-frames nil)
-        (applied nil))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) nil))
-              ((symbol-function 'fontaine-set-preset)
-               (lambda (&rest _) (setq applied t))))
-      (cj/apply-font-settings-to-frame (selected-frame))
-      (should-not applied)
-      (should-not cj/fontaine-configured-frames))))
-
-(ert-deftest test-font-config-apply-font-settings-applies-once-per-frame ()
-  "Normal: on a GUI frame the applier sets the preset once and is idempotent."
-  (skip-unless test-font-config--available)
-  (require 'font-config)
-  (let ((cj/fontaine-configured-frames nil)
-        (calls 0))
-    (cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) t))
-              ((symbol-function 'fontaine-set-preset)
-               (lambda (&rest _) (setq calls (1+ calls)))))
-      (cj/apply-font-settings-to-frame (selected-frame))
-      (cj/apply-font-settings-to-frame (selected-frame))
-      (should (= calls 1))
-      (should (memq (selected-frame) cj/fontaine-configured-frames)))))
+  (let ((installed nil))
+    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
+              ((symbol-function 'cj/font-installed-p) (lambda (_name) 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-config-nerd-icons-installed-font-skips-install ()
+  "Boundary: an installed Nerd Icons font needs no install attempt."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((installed nil))
+    (cl-letf (((symbol-function 'env-gui-p) (lambda () t))
+              ((symbol-function 'cj/font-installed-p) (lambda (_name) t))
+              ((symbol-function 'nerd-icons-install-fonts)
+               (lambda (&rest _) (setq installed t))))
+      (cj/maybe-install-nerd-icons-fonts))
+    (should-not installed)))
 
 ;;; cj/setup-emoji-fontset
 
@@ -135,5 +132,204 @@
       (when (get-buffer "*Available Fonts*")
         (kill-buffer "*Available Fonts*")))))
 
+;;; Fontaine workflow profiles
+
+(ert-deftest test-font-config-fontaine-presets-are-task-oriented ()
+  "Normal: the picker exposes seven complete workflow destinations."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (should (equal (delq t (mapcar #'car fontaine-presets))
+                 '(everyday writing reading coding-xs coding coding-xl
+                   presentation))))
+
+(ert-deftest test-font-config-fontaine-candidates-describe-end-state ()
+  "Normal: every profile label names its purpose, fonts, and point size."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((candidates (cj/fontaine-profile-candidates)))
+    (should (= (length candidates) 7))
+    (should (member (nth 0 candidates)
+                    '("Everyday — Berkeley Mono + Lexend · 13 pt"
+                      "Everyday — Berkeley Mono + Lexend · 14 pt")))
+    (should (equal (nth 1 candidates)
+                   "Writing — Berkeley Mono + Merriweather · 14 pt"))
+    (should (equal (nth 2 candidates)
+                   "Reading — Merriweather · 14 pt"))
+    (should (equal (nth 3 candidates)
+                   "Coding XS — Berkeley Mono · 11 pt"))
+    (should (equal (nth 4 candidates)
+                   "Coding — Berkeley Mono · 13 pt"))
+    (should (equal (nth 5 candidates)
+                   "Coding XL — Berkeley Mono · 16 pt"))
+    (should (equal (nth 6 candidates)
+                   "Presentation — Berkeley Mono + Lexend · 20 pt"))))
+
+(ert-deftest test-font-config-fontaine-candidate-round-trips-to-profile ()
+  "Boundary: a displayed destination maps back to its Fontaine symbol."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (dolist (profile '(everyday writing reading coding-xs coding coding-xl
+                     presentation))
+    (let ((label (cj/fontaine-profile-label profile)))
+      (should (eq (cj/fontaine-profile-from-label label) profile)))))
+
+(ert-deftest test-font-config-fontaine-uses-one-monospace-family ()
+  "Normal: every workflow profile uses Berkeley Mono for fixed pitch."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (dolist (profile '(everyday writing coding-xs coding coding-xl presentation))
+    (let ((properties (fontaine--get-preset-properties profile)))
+      (should (equal (plist-get properties :default-family)
+                     "BerkeleyMono Nerd Font")))))
+
+(ert-deftest test-font-config-fontaine-reading-is-merriweather-only ()
+  "Normal: Reading uses Merriweather for every primary face family."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((properties (fontaine--get-preset-properties 'reading)))
+    (dolist (property '(:default-family
+                        :fixed-pitch-family
+                        :fixed-pitch-serif-family
+                        :variable-pitch-family))
+      (should (equal (plist-get properties property) "Merriweather")))))
+
+(ert-deftest test-font-config-fontaine-reading-properties-are-public ()
+  "Normal: consumers can resolve Reading without Fontaine private functions."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((properties (cj/fontaine-profile-properties 'reading)))
+    (should (equal (plist-get properties :default-family) "Merriweather"))
+    (should (= (plist-get properties :default-height) 140))))
+
+(ert-deftest test-font-config-fontaine-remaps-reading-buffer-locally ()
+  "Normal: the local adapter applies all Reading families at an override height."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((calls nil))
+    (cl-letf (((symbol-function 'face-remap-add-relative)
+               (lambda (face &rest properties)
+                 (push (cons face properties) calls)
+                 face)))
+      (should (equal (cj/fontaine-remap-buffer-to-profile 'reading 180)
+                     '(default fixed-pitch fixed-pitch-serif variable-pitch))))
+    (dolist (face '(default fixed-pitch fixed-pitch-serif variable-pitch))
+      (should (member (list face :family "Merriweather" :height 180)
+                      calls)))))
+
+(ert-deftest test-font-config-fontaine-ui-buffer-remaps-default-to-berkeley ()
+  "Normal: minibuffer and echo buffers remap their default face to Berkeley."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((base nil))
+    (cl-letf (((symbol-function 'face-remap-set-base)
+               (lambda (face &rest specs) (setq base (cons face specs)))))
+      (cj/fontaine-remap-ui-buffer))
+    (should (equal base
+                   '(default (:family "BerkeleyMono Nerd Font"))))))
+
+(ert-deftest test-font-config-fontaine-ui-chrome-stays-berkeley ()
+  "Normal: Fontaine reasserts Berkeley on chrome faces and echo buffers."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((faces nil)
+        (remap-count 0))
+    (cl-letf (((symbol-function 'facep) (lambda (_face) t))
+              ((symbol-function 'set-face-attribute)
+               (lambda (face _frame &rest properties)
+                 (push (cons face properties) faces)))
+              ((symbol-function 'get-buffer) (lambda (_name) (current-buffer)))
+              ((symbol-function 'cj/fontaine-remap-ui-buffer)
+               (lambda () (setq remap-count (1+ remap-count)))))
+      (cj/fontaine-keep-ui-chrome-monospace))
+    (dolist (face '(mode-line mode-line-active mode-line-inactive
+                    minibuffer-prompt))
+      (should (member (list face :family "BerkeleyMono Nerd Font") faces)))
+    (should (= remap-count 2))))
+
+(ert-deftest test-font-config-fontaine-ui-chrome-hooks-are-installed ()
+  "Boundary: profile, theme, and minibuffer changes restore UI typography."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (should (memq 'cj/fontaine-keep-ui-chrome-monospace
+                fontaine-set-preset-hook))
+  (should (memq 'cj/fontaine-keep-ui-chrome-monospace
+                enable-theme-functions))
+  (should (memq 'cj/fontaine-remap-ui-buffer minibuffer-setup-hook)))
+
+(ert-deftest test-font-config-fontaine-unknown-label-has-no-profile ()
+  "Error: an unknown destination label does not select a preset."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (should-not (cj/fontaine-profile-from-label "Missing profile")))
+
+(ert-deftest test-font-config-fontaine-annotation-marks-current-profile ()
+  "Normal: completion marks only the active workflow destination."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((fontaine-current-preset 'writing))
+    (should (equal (cj/fontaine-profile-annotation
+                    (cj/fontaine-profile-label 'writing))
+                   "  current"))
+    (should (equal (cj/fontaine-profile-annotation
+                    (cj/fontaine-profile-label 'coding))
+                   ""))))
+
+(ert-deftest test-font-config-fontaine-selector-applies-picked-profile ()
+  "Normal: the one-prompt picker maps its complete label before applying."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((picked (cj/fontaine-profile-label 'presentation))
+        (applied nil))
+    (cl-letf (((symbol-function 'completing-read)
+               (lambda (_prompt _choices &rest _) picked))
+              ((symbol-function 'cj/fontaine-apply-profile)
+               (lambda (profile) (setq applied profile))))
+      (cj/fontaine-select-profile)
+      (should (eq applied 'presentation)))))
+
+(ert-deftest test-font-config-fontaine-restores-valid-profile ()
+  "Normal: startup restores a persisted workflow profile."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (cl-letf (((symbol-function 'fontaine-restore-latest-preset)
+             (lambda () 'writing)))
+    (should (eq (cj/fontaine-restored-or-default-profile) 'writing))))
+
+(ert-deftest test-font-config-fontaine-rejects-obsolete-restored-profile ()
+  "Boundary: an old brand or point-size preset falls back to everyday."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (cl-letf (((symbol-function 'fontaine-restore-latest-preset)
+             (lambda () '13-point-font)))
+    (should (eq (cj/fontaine-restored-or-default-profile) 'everyday))))
+
+(ert-deftest test-font-config-fontaine-has-no-per-frame-reset-hook ()
+  "Boundary: creating a daemon frame cannot overwrite the active profile."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (should-not (memq 'cj/apply-font-settings-to-frame
+                    server-after-make-frame-hook))
+  (should-not (memq 'cj/cleanup-frame-list delete-frame-functions)))
+
+(ert-deftest test-font-config-fontaine-apply-records-profile-for-persistence ()
+  "Normal: applying a profile updates Fontaine history before setting it."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (let ((fontaine-preset-history nil)
+        (applied nil))
+    (cl-letf (((symbol-function 'fontaine-set-preset)
+               (lambda (profile) (setq applied profile))))
+      (cj/fontaine-apply-profile 'coding)
+      (should (eq applied 'coding))
+      (should (equal (car fontaine-preset-history) "coding")))))
+
+(ert-deftest test-font-config-fontaine-apply-rejects-unknown-profile ()
+  "Error: applying an unknown workflow profile signals a user error."
+  (skip-unless test-font-config--available)
+  (require 'font-config)
+  (cl-letf (((symbol-function 'fontaine-set-preset)
+             (lambda (_profile) (ert-fail "must not apply"))))
+    (should-error (cj/fontaine-apply-profile 'missing) :type 'user-error)))
+
 (provide 'test-font-config)
 ;;; test-font-config.el ends here
diff --git a/tests/test-nov-reading--config-defaults.el b/tests/test-nov-reading--config-defaults.el
index 5e454ce1..ff52d8f5 100644
--- a/tests/test-nov-reading--config-defaults.el
+++ b/tests/test-nov-reading--config-defaults.el
@@ -16,6 +16,8 @@
 (declare-function cj/nov--next-reading-palette "nov-reading" (current names))
 (defvar cj/nov-reading-palettes)
 (defvar cj/nov-reading-default-palette)
+(defvar cj/nov-reading-profile)
+(defvar cj/nov--typography-remap-cookies)
 
 (ert-deftest test-nov-reading-config-default-is-dark ()
   "Normal: a fresh nov buffer opens on the dark palette."
@@ -34,5 +36,32 @@
     (should-not (cj/nov--next-reading-palette "light" names))
     (should (equal (cj/nov--next-reading-palette nil names) "dark"))))
 
+(ert-deftest test-nov-reading-config-uses-reading-font-profile ()
+  "Normal: nov typography names the shared Reading profile."
+  (should (eq cj/nov-reading-profile 'reading)))
+
+(ert-deftest test-nov-reading-depends-on-pure-profile-layer ()
+  "Boundary: loading nov shares profile data without loading Fontaine config."
+  (should (featurep 'font-profiles))
+  (should-not (featurep 'font-config)))
+
+(ert-deftest test-nov-reading-typography-remaps-shared-profile-locally ()
+  "Normal: nov applies Reading locally at its own base height without stacking."
+  (let ((cj/nov--typography-remap-cookies '(old-default old-fixed))
+        (removed nil)
+        (applied nil))
+    (cl-letf (((symbol-function 'face-remap-remove-relative)
+               (lambda (cookie) (push cookie removed)))
+              ((symbol-function 'cj/font-profile-remap-buffer)
+               (lambda (profile height)
+                 (setq applied (list profile height))
+                 '(new-default new-fixed))))
+      (cj/nov-reading-apply-typography))
+    (should (equal applied '(reading 180)))
+    (should (equal (sort removed #'string-lessp)
+                   '(old-default old-fixed)))
+    (should (equal cj/nov--typography-remap-cookies
+                   '(new-default new-fixed)))))
+
 (provide 'test-nov-reading--config-defaults)
 ;;; test-nov-reading--config-defaults.el ends here