From ceb98682a612f5c165cdd18298b6c36e419fb586 Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Sun, 6 Jul 2025 21:42:20 +0200
Subject: [PATCH] change org icons

---
 settings/org-settings.el | 69 +++++++++++++++++++++-------------------
 1 file changed, 37 insertions(+), 32 deletions(-)

diff --git a/settings/org-settings.el b/settings/org-settings.el
index 947e04bf..ab0408fa 100644
--- a/settings/org-settings.el
+++ b/settings/org-settings.el
@@ -506,31 +506,37 @@ Suggest the URL title as a description for resource."
   ;;         (?3 . "⮮")
   ;;         (?4 . "☕")
   ;;         (?I . "Important")))
+  ;; 🅰 🅱 🅲 🅳
   (setq org-fancy-priorities-list
-        '((?A . "🅰")
-          (?B . "🅱")
-          (?C . "🅲")
-          (?D . "🅳")))
-  ;; (setq org-priority-faces
-  ;;       '((?A :foreground "#df5f5f" :weight bold)  ;; "IndianRed1"
-  ;;         (?B :foreground "DarkOrange1")
-  ;;         (?C :foreground "yellow1")
-  ;;         (?D :foreground "green1")  ;; DeepSkyBlue1
-  ;;         (?1 :foreground "#df5f5f" :weight bold)
-  ;;         (?2 :foreground "DarkOrange1")
-  ;;         (?3 :foreground "yellow1")
-  ;;         (?4 :foreground "green1")
-  ;;         (?I :foreground "#df5f5f" :weight bold)))
+        ;; ,(nerd-icons-mdicon "nf-md-alpha_a_box_outline")
+        ;; ,(nerd-icons-mdicon "nf-md-alpha_b_box_outline")
+        `((?A . ,#("󰯫" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            display (raise 0.10) rear-nonsticky t)))
+          (?B . ,#("󰯮" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            display (raise 0.10) rear-nonsticky t)))
+          (?C . ,#("󰯱" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            display (raise 0.10) rear-nonsticky t)))
+          (?D . ,#("󰯴" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
+                            display (raise 0.10) rear-nonsticky t)))))
+  ;; IndianRed1 DeepSkyBlue1
   (setq org-priority-faces
-        (list (list ?A :foreground "#df5f5f" :height (- (face-attribute 'default :height) 20) :weight 'bold)
-              (list ?B :foreground "DarkOrange1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
-              (list ?C :foreground "yellow1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
-              (list ?D :foreground "green1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
-              (list ?1 :foreground "#df5f5f" :weight 'bold)
-              (list ?2 :foreground "DarkOrange1")
-              (list ?3 :foreground "yellow1")
-              (list ?4 :foreground "green1")
-              (list ?I :foreground "#df5f5f" :weight 'bold))))
+        `((?A :foreground "#df5f5f"
+              :height ,(- (face-attribute 'default :height) -5))
+          (?B :foreground "DarkOrange1"
+              :height ,(- (face-attribute 'default :height) -5))
+          (?C :foreground "yellow1"
+              :height ,(- (face-attribute 'default :height) -5))
+          (?D :foreground "green1"
+              :height ,(- (face-attribute 'default :height) -5))
+          (?1 :foreground "#df5f5f" :weight 'bold)
+          (?2 :foreground "DarkOrange1")
+          (?3 :foreground "yellow1")
+          (?4 :foreground "green1")
+          (?I :foreground "#df5f5f" :weight 'bold))))
 
 (use-package org-fragtog
   :hook (org-mode . org-fragtog-mode))
@@ -631,10 +637,9 @@ Suggest the URL title as a description for resource."
   (setq org-superstar-leading-bullet " ·")       ;; " ․" " ·" " ⚫" or to hide: ?\s (without quotation marks)
   (setq org-superstar-remove-leading-stars nil)  ;; to remove the indentation, needs org-superstar-leading-bullet set to ?\s
   (setq org-superstar-headline-bullets-list
-        '(?◉
-          ?○
-          ?✸
-          ?✿))
+        '(?󰓎 ?󰓒 ?󰫢 ?󰫣 ?󰫤 ?󰫥))  ;; '(?󰄯 ?󰄰 ?󰻂 ?󰻃 ?󰓏 ?󰦤 ? ?󰺕)
+  ;; '(?◉ ?○ ?✸ ?✿)  󰄯 󰄰 󰘻 󰘼 󰺕 󰬸 󰚕 󰻂 󰻃    󰓏 󰦤    󰐗 󰐙
+  ;; 󰓎 󰓒 󰫢 󰫣 󰫤 󰫥
   ;; (setq org-superstar-leading-bullet ?\s)
   ;; (setq org-superstar-leading-bullet "\u200b")
   ;; (setq org-superstar-headline-bullets-list '(?\s))
@@ -648,11 +653,11 @@ Suggest the URL title as a description for resource."
           (?+ . ?➤)
           (?- . ?–)))
   (setq org-superstar-special-todo-items t)     ;; using symbols defined in org-superstar-todo-bullet-alist
-  (setq org-superstar-todo-bullet-alist         ;; ☐ ☑
-        '(("TODO" . ?☐)
-          ("WAIT" . ?☐)
-          ("DONE" . ?☐)
-          ("CANC" . ?☐)))
+  (setq org-superstar-todo-bullet-alist         ;; ☐ ☑ ☒
+        '(("TODO" ?󰀼 ?☐)  ;;               󰀼 󱝋 󱝍 󱝏
+          ("WAIT" . ?󱝏)
+          ("DONE" . ?󱝍)
+          ("CANC" . ?󱝋)))
 
   (set-face-attribute 'org-superstar-leading nil :foreground "#42444a"))  ;;   "#42444a"