diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-12-08 19:30:27 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-12-08 19:30:27 +0100 |
commit | 2aac1818d57d994628f154bae69686b28768def1 (patch) | |
tree | 8a4fba273b064efaee8a8f7053464aa7121658a9 | |
parent | cbb96d69d312a611a25be86369d7d055af4a7200 (diff) | |
download | org-mode-2aac1818d57d994628f154bae69686b28768def1.tar.gz |
org-md: Fix export error with inline images
* contrib/lisp/org-md.el (org-md-link): Fix error with inline images.
-rw-r--r-- | contrib/lisp/org-md.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/contrib/lisp/org-md.el b/contrib/lisp/org-md.el index c640a1e..80e7017 100644 --- a/contrib/lisp/org-md.el +++ b/contrib/lisp/org-md.el @@ -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) |