branch: externals/org-modern
commit 36188cfc82cd0c1d3c02ce08731a9b5a2a11dca4
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Handle org-agenda-align-tags-to-column (Fix #207)
---
org-modern.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/org-modern.el b/org-modern.el
index b4a0927610..cacbbf3da3 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -909,6 +909,10 @@ whole buffer; otherwise, for the line at point."
(goto-char (point-min))
(let ((re (concat "\\( \\)\\(:\\(?:" org-tag-re "::?\\)+\\)[
\t]*$")))
(while (re-search-forward re nil 'noerror)
+ ;; Hack to handle `org-agenda-align-tags-to-column'
+ (when (and (eq 'auto (bound-and-true-p
org-agenda-align-tags-to-column))
+ (eq ?\s (char-before (match-beginning 0))))
+ (put-text-property (1- (match-beginning 0)) (match-beginning
0) 'invisible t))
(org-modern--tag))))
(when org-modern-priority
(goto-char (point-min))
