From 219e87d0ec70f1c1b2eb4ba234f5ba15e97c6ab9 Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Thu, 3 Jul 2025 21:54:56 +0200
Subject: [PATCH] change default font order

---
 settings/theme-settings.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/settings/theme-settings.el b/settings/theme-settings.el
index 6fa15294..13a7c3ba 100644
--- a/settings/theme-settings.el
+++ b/settings/theme-settings.el
@@ -35,22 +35,31 @@
 ;; 𝓐𝓑𝓒𝓓𝓔𝓕𝓖𝓗𝓘𝓙𝓚𝓛𝓜𝓝𝓞𝓟𝓠𝓡𝓢𝓣𝓤𝓥𝓦𝓧𝓨𝓩         MATHEMATICAL BOLD SCRIPT CAPITAL X
 ;; ✈↵＃↹⏎⇤⇥␣↑↓←→ ☐☑
 ;; :rage::hamburger:
+;; box drawing alignment tests:                                          █
+;;                                                                       ▉
+;;   ╔══╦══╗  ┌──┬──┐  ╭──┬──╮  ╭──┬──╮  ┏━━┳━━┓  ┎┒┏┑   ╷  ╻ ┏┯┓ ┌┰┐    ▊ ╱╲╱╲╳╳╳
+;;   ║┌─╨─┐║  │╔═╧═╗│  │╒═╪═╕│  │╓─╁─╖│  ┃┌─╂─┐┃  ┗╃╄┙  ╶┼╴╺╋╸┠┼┨ ┝╋┥    ▋ ╲╱╲╱╳╳╳
+;;   ║│╲ ╱│║  │║   ║│  ││ │ ││  │║ ┃ ║│  ┃│ ╿ │┃  ┍╅╆┓   ╵  ╹ ┗┷┛ └┸┘    ▌ ╱╲╱╲╳╳╳
+;;   ╠╡ ╳ ╞╣  ├╢   ╟┤  ├┼─┼─┼┤  ├╫─╂─╫┤  ┣┿╾┼╼┿┫  ┕┛┖┚     ┌┄┄┐ ╎ ┏┅┅┓ ┋ ▍ ╲╱╲╱╳╳╳
+;;   ║│╱ ╲│║  │║   ║│  ││ │ ││  │║ ┃ ║│  ┃│ ╽ │┃  ░░▒▒▓▓██ ┊  ┆ ╎ ╏  ┇ ┋ ▎
+;;   ║└─╥─┘║  │╚═╤═╝│  │╘═╪═╛│  │╙─╀─╜│  ┃└─╂─┘┃  ░░▒▒▓▓██ ┊  ┆ ╎ ╏  ┇ ┋ ▏
+;;   ╚══╩══╝  └──┴──┘  ╰──┴──╯  ╰──┴──╯  ┗━━┻━━┛           └╌╌┘ ╎ ┗╍╍┛ ┋  ▁▂▃▄▅▆▇█
 ;; see M-x describe-char
 
 ;; (set-frame-font "DejaVu Sans Mono-10")
 ;; (set-frame-font "DejaVu Sans Mono:pixelsize=13")
 ;; (set-frame-font (font-spec :name "DejaVu Sans Mono" :size 13))
 (cond
+ ((find-font (font-spec :name "Source Code Pro"))
+  (set-frame-font (font-spec :name "Source Code Pro" :size 13)))
  ((find-font (font-spec :name "DejaVu Sans Mono"))
   (set-frame-font (font-spec :name "DejaVu Sans Mono" :size 13)))
  ((find-font (font-spec :name "Noto Sans Mono"))                      ;; parentheses moving
   (set-frame-font (font-spec :name "Noto Sans Mono" :size 13)))
  ((find-font (font-spec :name "Source Han Mono"))
-  (set-frame-font "Source Han Mono-9"))
+  (set-frame-font (font-spec :name "Source Han Mono" :size 12)))
  ((find-font (font-spec :name "inconsolata"))
   (set-frame-font (font-spec :name "inconsolata" :size 16)))
- ((find-font (font-spec :name "Source Code Pro"))
-  (set-frame-font "Source Code Pro-10"))
  ((find-font (font-spec :name "Lucida Console"))
   (set-frame-font "Lucida Console-10"))
  ((find-font (font-spec :name "courier"))                             ;; is breathing if underline is displayed dynamically