change org icons

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 . "🅰")
+        ;; ,(nerd-icons-mdicon "nf-md-alpha_a_box_outline")
-          (?B . "🅱")
+        ;; ,(nerd-icons-mdicon "nf-md-alpha_b_box_outline")
-          (?C . "🅲")
+        `((?A . ,#("󰯫" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
-          (?D . "🅳")))
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;; (setq org-priority-faces
+                            display (raise 0.10) rear-nonsticky t)))
-  ;;       '((?A :foreground "#df5f5f" :weight bold)  ;; "IndianRed1"
+          (?B . ,#("󰯮" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?B :foreground "DarkOrange1")
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?C :foreground "yellow1")
+                            display (raise 0.10) rear-nonsticky t)))
-  ;;         (?D :foreground "green1")  ;; DeepSkyBlue1
+          (?C . ,#("󰯱" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?1 :foreground "#df5f5f" :weight bold)
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?2 :foreground "DarkOrange1")
+                            display (raise 0.10) rear-nonsticky t)))
-  ;;         (?3 :foreground "yellow1")
+          (?D . ,#("󰯴" 0 1 (face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?4 :foreground "green1")
+                            font-lock-face (:family "Symbols Nerd Font Mono" :height 1.0)
-  ;;         (?I :foreground "#df5f5f" :weight bold)))
+                            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)
+        `((?A :foreground "#df5f5f"
-              (list ?B :foreground "DarkOrange1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
+              :height ,(- (face-attribute 'default :height) -5))
-              (list ?C :foreground "yellow1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
+          (?B :foreground "DarkOrange1"
-              (list ?D :foreground "green1" :height (- (face-attribute 'default :height) 20) :weight 'bold)
+              :height ,(- (face-attribute 'default :height) -5))
-              (list ?1 :foreground "#df5f5f" :weight 'bold)
+          (?C :foreground "yellow1"
-              (list ?2 :foreground "DarkOrange1")
+              :height ,(- (face-attribute 'default :height) -5))
-              (list ?3 :foreground "yellow1")
+          (?D :foreground "green1"
-              (list ?4 :foreground "green1")
+              :height ,(- (face-attribute 'default :height) -5))
-              (list ?I :foreground "#df5f5f" :weight 'bold))))
+          (?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         ;; ☐ ☑
+  (setq org-superstar-todo-bullet-alist         ;; ☐ ☑ ☒
-        '(("TODO" . ?☐)
+        '(("TODO" ?󰀼 ?☐)  ;;               󰀼 󱝋 󱝍 󱝏
-          ("WAIT" . ?☐)
+          ("WAIT" . ?󱝏)
-          ("DONE" . ?☐)
+          ("DONE" . ?󱝍)
-          ("CANC" . ?☐)))
+          ("CANC" . ?󱝋)))
 
   (set-face-attribute 'org-superstar-leading nil :foreground "#42444a"))  ;;   "#42444a"