Different fonts for body and org headers

Yeah it seemed that I should define the font in one file and use it in
another. Normally, this wouldn't fly.

ha-display.org

@@ -219,9 +219,17 @@ I probably don't need to have such a ranking system, as chances are good I have
         (seq-filter (lambda (font) (when (x-list-fonts font) font))
                     '(;  Interesting idea: "Iosevka Comfy Motion Duo"
                       "XCharter" ; https://fontesk.com/xcharter-typeface/
-                      "Overpass" "Source Sans Pro"
-                      "Lucida Grande" "Verdana"
-                      "Sans Serif")))
+                      "Serif")))
+       (warn "Cannot find a Serif Font.  Install Source Sans Pro."))))
+
+  (defvar ha-variable-header-font
+    (when window-system
+      (or
+       (seq-first
+        (seq-filter (lambda (font) (when (x-list-fonts font) font))
+                    '("Overpass" "Source Sans Pro"
+                     "Lucida Grande" "Verdana"
+                     "Sans Serif")))
        (warn "Cannot find a Sans Serif Font.  Install Source Sans Pro."))))
 #+end_src
 

ha-org-word-processor.org

@@ -190,7 +190,8 @@ First step is to make all Org header levels to use the variable font, and be the
     (let ((default-color (face-attribute 'default :foreground)))
       (dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4 org-level-5 org-level-6 org-level-7 org-level-8))
         (set-face-attribute face nil :height 1.1
-                            :foreground default-color :weight 'bold :font ha-variable-font))))
+                            :foreground default-color :weight 'bold
+                            :font ha-variable-header-font))))
 #+end_src
 
 Next, we just need to change the header sizes: