[elpa] externals/org-modern cbccc2926b 2/3: org-modern-agenda: Style tags (Fix #53)

[ELPA Syncer]

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))