branch: externals/org-modern
commit c46436fda56515d33fdc366e60c4cc4d50ce4247
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Add org-modern-todo-faces (Fix #28)
---
org-modern.el | 20 +++++++++++++++++---
1 file changed, 17 insertions(+), 3 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 842a2e1ca4..49e6a1745b 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -133,6 +133,18 @@ Set to nil to disable styling checkboxes."
"Prettify todo keywords, see `org-todo-keywords'."
:type 'boolean)
+(defcustom org-modern-todo-faces nil
+ "Faces for todo keywords.
+This is an alist, with todo keywords in the car
+and faces in the cdr. Example:
+
+ (setq org-modern-todo-faces
+ '((\"TODO\" :background \"red\"
+ :foreground \"yellow\")))"
+ :type '(repeat
+ (cons (string :tag "Keyword")
+ (sexp :tag "Face "))))
+
(defcustom org-modern-tag t
"Prettify tags in headlines, e.g., :tag1:tag2:."
:type 'boolean)
@@ -310,9 +322,11 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
(put-text-property
beg end
'face
- (if (member todo org-done-keywords)
- 'org-modern-done
- 'org-modern-todo))))
+ (if-let (face (cdr (assoc todo org-modern-todo-faces)))
+ `(:inherit (,face org-modern-label))
+ (if (member todo org-done-keywords)
+ 'org-modern-done
+ 'org-modern-todo)))))
(defun org-modern--timestamp ()
"Prettify timestamps."
