[elpa] externals/org-modern 70d580f0ec 1/3: org-modern-agenda: Style priorities (Fix #53)

[ELPA Syncer]

branch: externals/org-modern
commit 70d580f0ec7c3accadbcac8d5472012d7c13c27a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    org-modern-agenda: Style priorities (Fix #53)
---
 org-modern.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/org-modern.el b/org-modern.el
index d7c7fc9b43..a0125931a9 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -642,7 +642,14 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
                                  org-done-keywords-for-agenda) t)))
             (org-done-keywords org-done-keywords-for-agenda))
         (while (re-search-forward re nil 'noerror)
-          (org-modern--todo))))))
+          (org-modern--todo)))
+      (goto-char (point-min))
+      (while (re-search-forward "\\(\\[\\)#.\\(\\]\\)" nil 'noerror)
+        ;; For some reason the org-agenda-fontify-priorities adds overlays?!
+        (when-let (ov (overlays-at (match-beginning 0))) (overlay-put (car ov) 
'face nil))
+        (put-text-property (match-beginning 0) (match-end 0) 'face 
'org-modern-priority)
+        (put-text-property (match-beginning 1) (match-end 1) 'display " ")
+        (put-text-property (match-beginning 2) (match-end 2) 'display " ")))))
 
 ;;;###autoload
 (define-globalized-minor-mode global-org-modern-mode