[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern 0043e584db: Use `display ""` for hiding inst
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern 0043e584db: Use `display ""` for hiding instead of `invisible t` |
Date: |
Wed, 30 Nov 2022 12:57:52 -0500 (EST) |
branch: externals/org-modern
commit 0043e584dbc358f9f52e711c076836f9d7c74027
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Use `display ""` for hiding instead of `invisible t`
Unfortunately it seems that the invisible text property has been taken by
org-fold-core. I am not entirely sure, but I think there are downsides of
using
display "". Anyway let's try this for a while and see.
---
org-modern.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index ac72f2fa47..79f70b8703 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -317,7 +317,7 @@ the font.")
(unless rep
(setq rep (cdr (assq t org-modern-keyword)) end (match-end 1)))
(pcase rep
- ('t (put-text-property beg (match-end 1) 'invisible t))
+ ('t (put-text-property beg (match-end 1) 'display ""))
((pred stringp)
(put-text-property beg end 'display rep)))))
@@ -485,12 +485,12 @@ the font.")
(pcase rep
('t
(add-face-text-property beg-name end-name 'org-modern-block-name)
- (put-text-property (if fringe beg-ind beg-rep) beg-name 'invisible t))
+ (put-text-property (if fringe beg-ind beg-rep) beg-name 'display ""))
((pred stringp)
(add-face-text-property beg-name end-name 'org-modern-block-name)
(put-text-property beg-rep end-rep 'display rep)
(when fringe
- (put-text-property beg-ind beg-rep 'invisible t))))))
+ (put-text-property beg-ind beg-rep 'display ""))))))
(defun org-modern--block-fringe ()
"Prettify blocks with fringe bitmaps."
@@ -597,8 +597,8 @@ the font.")
,@(and (not (eq org-modern-hide-stars t))
(or org-modern-star (stringp org-modern-hide-stars))
'((0 (org-modern--star))))
- ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil invisible
t))))
- ,@(and (eq org-modern-hide-stars t) '((0 '(face nil invisible t)))))))
+ ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil display
""))))
+ ,@(and (eq org-modern-hide-stars t) '((0 '(face nil display "")))))))
(when org-modern-horizontal-rule
`(("^[ \t]*-\\{5,\\}$" 0
'(face org-modern-horizontal-rule display
@@ -631,7 +631,7 @@ the font.")
(3 '(face nil display ,(propertize (caddr
org-modern-internal-target)
'face 'org-modern-symbol)))
,@(unless (cadr org-modern-internal-target)
- '((2 '(face nil invisible t)))))))
+ '((2 '(face nil display "")))))))
(when org-modern-radio-target
`((,(format "\\(<<<\\)%s\\(>>>\\)" target)
(0 '(face org-modern-radio-target) t)
@@ -640,7 +640,7 @@ the font.")
(3 '(face nil display ,(propertize (caddr org-modern-radio-target)
'face 'org-modern-symbol)))
,@(unless (cadr org-modern-radio-target)
- '((2 '(face nil invisible t)))))))))
+ '((2 '(face nil display "")))))))))
(when org-modern-timestamp
'(("\\(?:<\\|\\[\\)\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\(?:
[[:word:]]+\\.?\\)?\\(?: [.+-]+[0-9ymwdh/]+\\)*\\)\\(\\(?: [0-9:-]+\\)?\\(?:
[.+-]+[0-9ymwdh/]+\\)*\\)\\(?:>\\|\\]\\)"
(0 (org-modern--timestamp)))
@@ -656,7 +656,7 @@ the font.")
(when org-modern-keyword
`(("^[ \t]*\\(#\\+\\)\\([^: \t\n]+\\):"
,@(pcase org-modern-keyword
- ('t '(1 '(face nil invisible t)))
+ ('t '(1 '(face nil display "")))
((pred stringp) `(1 '(face nil display ,org-modern-keyword)))
(_ '(0 (org-modern--keyword)))))))
;; Do not add source block fringe markers if org-indent-mode is
@@ -668,9 +668,9 @@ the font.")
(when org-modern-block-name
(let* ((indent (and org-modern-block-fringe
(not (bound-and-true-p org-indent-mode))
- '((1 '(face nil invisible t)))))
+ '((1 '(face nil display "")))))
(name '(3 'org-modern-block-name append))
- (hide `(,@indent (2 '(face nil invisible t)) ,name))
+ (hide `(,@indent (2 '(face nil display "")) ,name))
(specs
(pcase org-modern-block-name
('t ;; Hide
@@ -735,8 +735,8 @@ the font.")
(append
;; Only remove line-prefix and wrap-prefix if org-indent-mode is
disabled.
(if (bound-and-true-p org-indent-mode)
- '(display invisible)
- '(wrap-prefix line-prefix display invisible))
+ '(display)
+ '(wrap-prefix line-prefix display))
font-lock-extra-managed-props)))
(org-unfontify-region beg end)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org-modern 0043e584db: Use `display ""` for hiding instead of `invisible t`,
ELPA Syncer <=