tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-md: Fix export error with inline images

Browse source 
* contrib/lisp/org-md.el (org-md-link): Fix error with inline images.
This commit is contained in:
Nicolas Goaziou 2012-12-08 19:30:27 +01:00
parent cbb96d69d3
commit 2aac1818d5
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
contrib/lisp/org-md.el
View file

@ -286,11 +286,14 @@ a communication channel."
destination info)
".")))))))
((org-export-inline-image-p link org-e-html-inline-image-rules)
(format "![%s](%s)"
(let ((caption (org-export-get-caption
(org-export-get-parent-element link))))
(when caption (org-export-data caption info)))
path))
(let ((path (let ((raw-path (org-element-property :path link)))
(if (not (file-name-absolute-p raw-path)) raw-path
(expand-file-name raw-path)))))
(format "![%s](%s)"
(let ((caption (org-export-get-caption
(org-export-get-parent-element link))))
(when caption (org-export-data caption info)))
path)))
((string= type "coderef")
(let ((ref (org-element-property :path link)))
(format (org-export-get-coderef-format ref contents)