From 6cb8c01c2927e60e449eb0c2fd80400e049beb47 Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Sun, 6 Jul 2025 21:41:07 +0200
Subject: [PATCH] change font settings

---
 settings/theme-settings.el | 77 ++++++++++++++++++++++++++++----------
 1 file changed, 58 insertions(+), 19 deletions(-)

diff --git a/settings/theme-settings.el b/settings/theme-settings.el
index cf887b50..6e8c5d65 100644
--- a/settings/theme-settings.el
+++ b/settings/theme-settings.el
@@ -16,6 +16,10 @@
   (load-theme 'spacemacs-dark t)
   (load-theme 'my t))
 
+(use-package my-tool-bar
+  :config
+  (my-tool-bar-mode 1))
+
 ;; Test char and monospace:
 ;; 1234567890abcdefghijklmnopqrstuvwxyz [] () :;,. !@#$^&*
 ;; 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ {} <> "'`  ~-_/|\?
@@ -33,8 +37,9 @@
 ;; 🅰🅱🅲🅳🅴🅵🅶🅷🅸🅹🅺🅻🅼🅽🅾🅿🆀🆁🆂🆃🆄🆅🆆🆇🆈🆉 🆊    NEGATIVE SQUARED LATIN CAPITAL LETTER X
 ;; 𝓪𝓫𝓬𝓭𝓮𝓯𝓰𝓱𝓲𝓳𝓴𝓵𝓶𝓷𝓸𝓹𝓺𝓻𝓼𝓽𝓾𝓿𝔀𝔁𝔂𝔃            MATHEMATICAL BOLD SCRIPT SMALL X
 ;; 𝓐𝓑𝓒𝓓𝓔𝓕𝓖𝓗𝓘𝓙𝓚𝓛𝓜𝓝𝓞𝓟𝓠𝓡𝓢𝓣𝓤𝓥𝓦𝓧𝓨𝓩         MATHEMATICAL BOLD SCRIPT CAPITAL X
-;; ✈↵＃↹⏎⇤⇥␣↑↓←→ ☐☑
+;; ✈↵＃↹⏎⇤⇥␣↑↓←→ ☐☑ ⃝⃞⃟⃠ ⦾⦿⧇⧈
 ;; :rage::hamburger:
+;; ◉○✸✿ 
 ;; box drawing alignment tests:                                          █
 ;;                                                                       ▉
 ;;   ╔══╦══╗  ┌──┬──┐  ╭──┬──╮  ╭──┬──╮  ┏━━┳━━┓  ┎┒┏┑   ╷  ╻ ┏┯┓ ┌┰┐    ▊ ╱╲╱╲╳╳╳
@@ -46,24 +51,58 @@
 ;;   ╚══╩══╝  └──┴──┘  ╰──┴──╯  ╰──┴──╯  ┗━━┻━━┛           └╌╌┘ ╎ ┗╍╍┛ ┋  ▁▂▃▄▅▆▇█
 ;; 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 medium"))
-  (set-frame-font (font-spec :name "Source Code Pro medium" :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 (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 "Lucida Console"))
-  (set-frame-font "Lucida Console-10"))
- ((find-font (font-spec :name "courier"))                             ;; is breathing if underline is displayed dynamically
-  (set-frame-font (font-spec :name "courier" :size 14))))
+(set-face-font 'default (font-spec :family "FiraCode Nerd Font" :size 13))
+
+;; (set-fontset-font FONTSET CHARACTERS FONT-SPEC &optional FRAME ADD)
+;; CHARACTERS see `script-representative-chars' and
+;; ‘list-character-sets’ and ‘list-charset-chars’ for the list of
+;; character sets and their characters.
+;; (list-charset-chars 'unicode-bmp)
+;; defind by all the icons?
+;; (set-fontset-font t '(#x2600 . #x27bf) (font-spec :family "D2CodingLigature Nerd Font"))
+;; (set-fontset-font t '(#xe000 . #xeea0) (font-spec :family "icons-in-terminal") nil 'prepend)
+;;                  '(#xeea1 . #xf1ff) "FiraCode Nerd Font"
+;; (set-fontset-font t '(#xf200 . #xf3ff) (font-spec :family "Font Awesome 6 Free"))   ;; #xf3xx wild mix
+;; (set-fontset-font t '(#xf400 . #xfd46) (font-spec :family "MesloLGS NF"))
+
+;; (setq use-default-font-for-symbols t)
+;; (setq use-default-font-for-symbols nil)  ;; t use default face, nil use fontset
+
+;; see `fontset-alias-alist'
+;; (fontset-name-p "fontset-default")
+;; (fontset-name-p "fontset-standard")
+;; (cond
+;;  ((find-font (font-spec :name "Iosevka Nerd Font"))
+;;   (set-frame-font (font-spec :name "Iosevka Nerd Font" :size 13)))
+;;  ((find-font (font-spec :name "Source Code Pro medium"))
+;;   (set-frame-font (font-spec :name "Source Code Pro medium" :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 (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 "Lucida Console"))
+;;   (set-frame-font "Lucida Console-10"))
+;;  ((find-font (font-spec :name "courier"))                             ;; is breathing if underline is displayed dynamically
+;;   (set-frame-font (font-spec :name "courier" :size 14))))
+
+(use-package nerd-icons
+  :defer t
+  ;; example usage
+  ;; - Inserts an icon for Emacs Lisp
+  ;;   (insert (nerd-icons-icon-for-file "init.el"))
+  ;; - Inserts a Gitlab icon
+  ;;   (insert (nerd-icons-faicon "nf-fa-gitlab"))
+  ;; :config
+  ;; The Nerd Font you want to use in GUI
+  ;; "Symbols Nerd Font Mono" is the default and is recommended
+  ;; but you can use any other Nerd Font if you want
+  ;; (setq nerd-icons-font-family "Symbols Nerd Font Mono")
+  ;; (nerd-icons-set-font)
+  )
 
 (use-package emojify
   :if window-system