emacs-elpa-diffs
[Top][All Lists]
Advanced

[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?!



reply via email to

[Prev in Thread] Current Thread [Next in Thread]