[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern 2afcb38b06 3/3: Add comments
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern 2afcb38b06 3/3: Add comments |
Date: |
Sun, 5 Jun 2022 08:57:50 -0400 (EDT) |
branch: externals/org-modern
commit 2afcb38b0680c8d5b37af30ef68432b45911b75a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add comments
---
org-modern.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/org-modern.el b/org-modern.el
index 5fb083ac4e..561f7e3fe8 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -635,6 +635,7 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
"Finalize Org agenda highlighting."
(save-excursion
(save-match-data
+ ;; Todo keywords
(goto-char (point-min))
(let ((re (format ": +%s "
(regexp-opt
@@ -643,10 +644,12 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
(org-done-keywords org-done-keywords-for-agenda))
(while (re-search-forward re nil 'noerror)
(org-modern--todo)))
+ ;; Tags
(goto-char (point-min))
(let ((re (concat "\\( \\)\\(:\\(?:" org-tag-re ":\\)+\\)[ \t]*$")))
(while (re-search-forward re nil 'noerror)
(org-modern--tag)))
+ ;; Priorities
(goto-char (point-min))
(while (re-search-forward "\\(\\[\\)#.\\(\\]\\)" nil 'noerror)
;; For some reason the org-agenda-fontify-priorities adds overlays?!