emacs: define org-tag-faces

This commit is contained in:
Protesilaos Stavrou 2025-07-11 08:34:37 +03:00
parent 04df00a6b1
commit a6153fb69a
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 44 additions and 0 deletions

View file

@ -162,6 +162,28 @@
'(("MAYBE" . prot/org-todo-alternative)
("CANCELED" . prot/org-done-alternative)))
(defface prot/org-tag-coaching
'((default :inherit unspecified :weight regular :slant normal)
(((class color) (min-colors 88) (background light))
:foreground "#004476")
(((class color) (min-colors 88) (background dark))
:foreground "#c0d0ef")
(t :foreground "cyan"))
"Face for coaching Org tag.")
(defface prot/org-tag-protasks
'((default :inherit unspecified :weight regular :slant normal)
(((class color) (min-colors 88) (background light))
:foreground "#603f00")
(((class color) (min-colors 88) (background dark))
:foreground "#deba66")
(t :foreground "yellow"))
"Face for protasks Org tag.")
(setq org-tag-faces
'(("coaching" . prot/org-tag-coaching)
("protasks" . prot/org-tag-protasks)))
(setq org-use-fast-todo-selection 'expert)
(setq org-fontify-done-headline nil)

View file

@ -7690,6 +7690,28 @@ the capture phase ([[#h:f8f06938-0dfe-45c3-b4cf-996d36cba82d][The =prot-emacs-or
'(("MAYBE" . prot/org-todo-alternative)
("CANCELED" . prot/org-done-alternative)))
(defface prot/org-tag-coaching
'((default :inherit unspecified :weight regular :slant normal)
(((class color) (min-colors 88) (background light))
:foreground "#004476")
(((class color) (min-colors 88) (background dark))
:foreground "#c0d0ef")
(t :foreground "cyan"))
"Face for coaching Org tag.")
(defface prot/org-tag-protasks
'((default :inherit unspecified :weight regular :slant normal)
(((class color) (min-colors 88) (background light))
:foreground "#603f00")
(((class color) (min-colors 88) (background dark))
:foreground "#deba66")
(t :foreground "yellow"))
"Face for protasks Org tag.")
(setq org-tag-faces
'(("coaching" . prot/org-tag-coaching)
("protasks" . prot/org-tag-protasks)))
(setq org-use-fast-todo-selection 'expert)
(setq org-fontify-done-headline nil)