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

Export link target with images

Browse Source
This commit is contained in:
IGARASHI Masanao
2015-06-26 11:58:22 +09:00
parent 6182ad5902
commit ebfb43ecba
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ox-rst.el
View File

@@ -1000,13 +1000,17 @@ INFO is a plist holding contextual information."
((and (plist-get info :rst-inline-images) ((and (plist-get info :rst-inline-images)
(org-export-inline-image-p (org-export-inline-image-p
link (plist-get info :rst-inline-image-rules))) link (plist-get info :rst-inline-image-rules)))
(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-export-get-parent-element link)))
(if caption (format ".. figure:: %s%s\n\n %s\n" ipath attributes (linkname
(org-element-property :name (org-export-get-parent-element link)))
(label (if linkname (format ".. _%s:\n\n" linkname) "")))
(if caption (format "%s.. figure:: %s%s\n\n %s\n"
label ipath attributes
(org-export-data caption info)) (org-export-data caption info))
(format ".. image:: %s%s\n" ipath attributes)))) (format "%s.. image:: %s%s\n" label ipath attributes))))
((and (plist-get info :rst-inline-images) ((and (plist-get info :rst-inline-images)
desc desc
(my-org-export-inline-image-p (my-org-export-inline-image-p