branch: externals/org-modern
commit 30cdd1bcf360f5b2bfde3ddfdedd44eb8f19068d
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
README: recommend static org-modern-block-name
The top bracket does not like the invisible text property org-modern
draws at the same position. Using a static pair of blank strings
gives the same appearance, but allows the bracket with line-prefix to
appear promptly.
---
README.md | 1 +
org-modern-indent.el | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/README.md b/README.md
index 6364ca2f1b..1447aa908e 100644
--- a/README.md
+++ b/README.md
@@ -84,6 +84,7 @@ Optionally, if you want to use
[org-modern](https://github.com/minad/org-modern)
'(;; (?- . "-")
(?* . "•")
(?+ . "‣")))
+ (org-modern-block-name '("" . "")) ; or other chars; so top bracket is drawn
promptly
:hook
(org-mode . org-modern-mode)
(org-agenda-finalize . org-modern-agenda))
diff --git a/org-modern-indent.el b/org-modern-indent.el
index 05d9a4c311..0aed31e656 100644
--- a/org-modern-indent.el
+++ b/org-modern-indent.el
@@ -128,7 +128,7 @@ of the returned vector. If PREFIX is nil or empty, nil is
returned."
`(line-prefix ,pf wrap-prefix ,pf))) ; restore
(put-text-property pind (1+ pind) 'org-modern-indent-block-type
'indent))
- (put-text-property (point) (1- block-indent) 'face nil)
+ (put-text-property (point) block-indent 'face nil)
(put-text-property (1- block-indent) block-indent
'display org-modern-indent-begin)
(while
