howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Different fonts for body and org headers

Browse source 
Yeah it seemed that I should define the font in one file and use it in
another. Normally, this wouldn't fly.
This commit is contained in:
Howard Abrams 2023-02-01 08:09:01 -08:00
parent 01b9abdd4c
commit 60a960b4fe
2 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ha-display.org
View file

@ -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)) (seq-filter (lambda (font) (when (x-list-fonts font) font))
'(; Interesting idea: "Iosevka Comfy Motion Duo" '(; Interesting idea: "Iosevka Comfy Motion Duo"
"XCharter" ; https://fontesk.com/xcharter-typeface/ "XCharter" ; https://fontesk.com/xcharter-typeface/
"Overpass" "Source Sans Pro" "Serif")))
"Lucida Grande" "Verdana" (warn "Cannot find a Serif Font. Install Source Sans Pro."))))
"Sans Serif")))
(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.")))) (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
#+end_src #+end_src

3
ha-org-word-processor.org
View file

@ -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))) (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)) (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 (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 #+end_src
Next, we just need to change the header sizes: Next, we just need to change the header sizes: