From a6153fb69ae166044873b7c966deb90703da3c34 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Fri, 11 Jul 2025 08:34:37 +0300 Subject: [PATCH] emacs: define org-tag-faces --- .../prot-emacs-modules/prot-emacs-org.el | 22 +++++++++++++++++++ emacs/.emacs.d/prot-emacs.org | 22 +++++++++++++++++++ 2 files changed, 44 insertions(+) diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-org.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-org.el index 8c423c09..e2c454d4 100644 --- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-org.el +++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-org.el @@ -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) diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org index 7f60130e..ecdc4fe0 100644 --- a/emacs/.emacs.d/prot-emacs.org +++ b/emacs/.emacs.d/prot-emacs.org @@ -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)