[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern cbccc2926b 2/3: org-modern-agenda: Style tag
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern cbccc2926b 2/3: org-modern-agenda: Style tags (Fix #53) |
Date: |
Sun, 5 Jun 2022 08:57:50 -0400 (EDT) |
branch: externals/org-modern
commit cbccc2926b3636aef58fbe9e6536e2220d85813f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
org-modern-agenda: Style tags (Fix #53)
---
README.org | 1 +
org-modern.el | 4 ++++
2 files changed, 5 insertions(+)
diff --git a/README.org b/README.org
index 7b7316ff0f..f0ab270159 100644
--- a/README.org
+++ b/README.org
@@ -105,6 +105,7 @@ screenshot above.
org-ellipsis "…"
;; Agenda styling
+ org-agenda-tags-column 0
org-agenda-block-separator ?─
org-agenda-time-grid
'((daily today require-timed)
diff --git a/org-modern.el b/org-modern.el
index a0125931a9..5fb083ac4e 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -644,6 +644,10 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
(while (re-search-forward re nil 'noerror)
(org-modern--todo)))
(goto-char (point-min))
+ (let ((re (concat "\\( \\)\\(:\\(?:" org-tag-re ":\\)+\\)[ \t]*$")))
+ (while (re-search-forward re nil 'noerror)
+ (org-modern--tag)))
+ (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))