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.

1 files changed, 17 insertions, 15 deletions

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."