branch: externals/org-transclusion
commit bc24be23348a6849868b6c49b865e56a175b50c5
Author: Noboru Ota <[email protected]>
Commit: Noboru Ota <[email protected]>
fix: adding the missing face overlays #174
This part was supposed to be part of commit 16c3576 and was simply a
human error that it was not.
The priority should be lower than the overlays from live-sync, which is
-50. That's why it's set as -60 here.
---
org-transclusion.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/org-transclusion.el b/org-transclusion.el
index 71f7faeab9..9015a851ee 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -17,7 +17,7 @@
;; Author: Noboru Ota <[email protected]>
;; Created: 10 October 2020
-;; Last modified: 10 May 2023
+;; Last modified: 11 May 2023
;; URL: https://github.com/nobiot/org-transclusion
;; Keywords: org-mode, transclusion, writing
@@ -1023,12 +1023,18 @@ based on the following arguments:
,(org-transclusion-propertize-transclusion)
wrap-prefix
,(org-transclusion-propertize-transclusion)))
+ ;; Put the transclusion overlay
+ (let ((ov-tc (text-clone-make-overlay beg end)))
+ (overlay-put ov-tc 'evaporate t)
+ (overlay-put ov-tc 'face 'org-transclusion)
+ (overlay-put ov-tc 'priority -60))
;; Put to the source overlay
(overlay-put ov-src 'org-transclusion-by beg-mkr)
(overlay-put ov-src 'evaporate t)
+ (overlay-put ov-src 'face 'org-transclusion-source)
(overlay-put ov-src 'line-prefix (org-transclusion-propertize-source))
(overlay-put ov-src 'wrap-prefix (org-transclusion-propertize-source))
- (overlay-put ov-src 'priority -50)
+ (overlay-put ov-src 'priority -60)
;; TODO this should not be necessary, but it is at the moment
;; live-sync-enclosing-element fails without tc-pair on source overlay
(overlay-put ov-src 'org-transclusion-pair tc-pair))
