branch: externals/org-modern
commit 8a0bce9661dd290003c7954c25f4641c9d209c85
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Blocks: Add wrap-prefix to support visual-line-mode
---
org-modern.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index acfb6f91b7..80d068fb41 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -402,9 +402,12 @@ Set to nil to disable the indicator."
(save-excursion
(re-search-forward
"^[ \t]*#\\+end_" (line-end-position) 'noerror))))
- (put-text-property
- (point) (1+ (point)) 'line-prefix
- #(" " 0 1 (display (left-fringe org-modern--line
org-block-begin-line))))
+ (add-text-properties
+ (point) (line-end-position)
+ '(wrap-prefix
+ #(" " 0 1 (display (left-fringe org-modern--line
org-block-begin-line)))
+ line-prefix
+ #(" " 0 1 (display (left-fringe org-modern--line
org-block-begin-line)))))
(forward-line))))
;;;###autoload
@@ -467,14 +470,14 @@ Set to nil to disable the indicator."
;; TODO implement better unfontify
(with-silent-modifications
(remove-list-of-text-properties (point-min) (point-max)
- '(line-prefix display face
invisible)))))
+ '(wrap-prefix line-prefix display face
invisible)))))
(font-lock-flush))
(defun org-modern--unfontify (beg end &optional _)
"Unfontify prettified elements between BEG and END."
(when org-modern-mode
;; TODO implement better unfontify
- (remove-list-of-text-properties beg end '(line-prefix display face
invisible))))
+ (remove-list-of-text-properties beg end '(wrap-prefix line-prefix display
face invisible))))
(define-fringe-bitmap 'org-modern--line (make-vector 1 #x80) nil nil '(top t))
(define-fringe-bitmap 'org-modern--top (vconcat (make-vector 20 0) [#xFF]
(make-vector 107 #x80)) nil nil 'top)
