daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename `org-element-get-parent-element' and move to org-element

Browse Source
This commit is contained in:
Masanao Igarashi
2025-02-19 18:35:23 +09:00
parent 6e2015fdd4
commit 82b4db2ae2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ox-rst.el
View File

@@ -978,7 +978,7 @@ INFO is a plist holding contextual information."
;; do this for the first link in parent (inner image link ;; do this for the first link in parent (inner image link
;; for inline images). This is needed as long as ;; for inline images). This is needed as long as
;; attributes cannot be set on a per link basis. ;; attributes cannot be set on a per link basis.
(let* ((parent (org-export-get-parent-element link)) (let* ((parent (org-element-parent-element link))
(link (let ((container (org-element-parent link))) (link (let ((container (org-element-parent link)))
(if (and (org-element-type-p container 'link) (if (and (org-element-type-p container 'link)
(org-rst-inline-image-p link info)) (org-rst-inline-image-p link info))
@@ -1004,9 +1004,9 @@ INFO is a plist holding contextual information."
(let* ((ipath (if (not (file-name-absolute-p raw-path)) raw-path (let* ((ipath (if (not (file-name-absolute-p raw-path)) raw-path
(expand-file-name raw-path))) (expand-file-name raw-path)))
(caption (org-export-get-caption (caption (org-export-get-caption
(org-export-get-parent-element link))) (org-element-parent-element link)))
(linkname (linkname
(org-element-property :name (org-export-get-parent-element link))) (org-element-property :name (org-element-parent-element link)))
(label (if linkname (format ".. _%s:\n\n" linkname) ""))) (label (if linkname (format ".. _%s:\n\n" linkname) "")))
(if caption (format "%s.. figure:: %s%s\n\n %s\n" (if caption (format "%s.. figure:: %s%s\n\n %s\n"
label ipath attributes label ipath attributes