[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-transclusion ff722826ce: fix: #168 :expand-links ex
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-transclusion ff722826ce: fix: #168 :expand-links expands path incorrectly |
Date: |
Sun, 5 Mar 2023 15:59:07 -0500 (EST) |
branch: externals/org-transclusion
commit ff722826cec3a77f57f819a7810bc50fcc36d262
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>
fix: #168 :expand-links expands path incorrectly
The :raw-link prop of the link element is not the right one -- it
contains the string "file:path/to/file.ext".
:path prop is the right one.
Thanks to GitHub user @stardiviner
---
org-transclusion.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/org-transclusion.el b/org-transclusion.el
index 624e9beea5..2678bdbde3 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -17,7 +17,7 @@
;; Author: Noboru Ota <me@nobiot.com>
;; Created: 10 October 2020
-;; Last modified: 04 March 2023
+;; Last modified: 05 March 2023
;; URL: https://github.com/nobiot/org-transclusion
;; Keywords: org-mode, transclusion, writing
@@ -1192,12 +1192,12 @@ to LINK if the link is already absolute.
The current buffer is assumed to be the source buffer for the
transclusion."
(when (string-equal "file" (org-element-property :type link))
- (let ((raw-link (org-element-property :raw-link link)))
- (unless (file-name-absolute-p raw-link)
+ (let ((path (org-element-property :path link)))
+ (unless (file-name-absolute-p path)
(org-element-put-property
link :path
(expand-file-name
- raw-link
+ path
(file-name-directory (buffer-file-name (current-buffer)))))))))
(defun org-transclusion-content-filter-org-exclude-elements (data)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org-transclusion ff722826ce: fix: #168 :expand-links expands path incorrectly,
ELPA Syncer <=