branch: externals/org-modern
commit ab19a33a260a573fedd3fb2b8ef12c461762cbad
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Display priorities in similar style as TODO/DONE states (Fix #12)
---
org-modern.el | 29 ++++++++++++-----------------
1 file changed, 12 insertions(+), 17 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index b295f76b07..0e7cc74288 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -95,13 +95,9 @@ Set to nil to hide the vertical lines."
"Prettify horizontal table lines."
:type '(choice (const nil) number))
-(defcustom org-modern-priority
- '((?A . "🅐") ;; Ⓐ
- (?B . "🅑") ;; Ⓑ
- (?C . "🅒")) ;; Ⓒ
- "List of priority label replacements.
-Set to nil to disable styling priorities."
- :type '(alist :key-type character :value-type string))
+(defcustom org-modern-priority t
+ "Prettify priorities."
+ :type 'boolean)
(defcustom org-modern-list
'((?+ . "◦")
@@ -187,6 +183,11 @@ Set to nil to disable the indicator."
:weight semibold :inverse-video t))
"Face used for todo labels.")
+(defface org-modern-priority
+ '((t :inherit (org-priority org-modern-label)
+ :weight semibold :inverse-video t))
+ "Face used for priority labels.")
+
(defface org-modern-statistics
'((t :inherit org-modern-done))
"Face used for todo statistics labels.")
@@ -224,13 +225,6 @@ Set to nil to disable the indicator."
(defvar-local org-modern--keywords nil
"List of font lock keywords.")
-(defun org-modern--priority ()
- "Prettify headline priorities using the `org-modern-priority' character."
- (let ((beg (match-beginning 1))
- (end (match-end 1)))
- (when-let (sym (alist-get (char-after (+ 2 beg)) org-modern-priority))
- (put-text-property beg end 'display sym))))
-
(defun org-modern--checkbox ()
"Prettify checkboxes according to `org-modern-checkbox'."
(let ((beg (match-beginning 1))
@@ -451,9 +445,10 @@ Set to nil to disable the indicator."
(when-let (bullet (alist-get ?* org-modern-list))
`(("^[ \t]+\\(*\\)[ \t]" 1 '(face nil display ,bullet))))
(when org-modern-priority
- `((,(format "^\\*+.*? \\(\\[#[%s]\\]\\) "
- (apply #'string (mapcar #'car org-modern-priority)))
- (0 (org-modern--priority)))))
+ '(("^\\*+.*? \\(\\(\\[\\)#.\\(\\]\\)\\) "
+ (1 'org-modern-priority t)
+ (2 '(face nil display " "))
+ (3 '(face nil display " ")))))
(when org-modern-todo
`((,(format "^\\*+ +%s " (regexp-opt org-todo-keywords-1 t)) (0
(org-modern--todo)))))
(when org-modern-keyword
