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

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2014-02-08 15:51:07 +01:00
parent def5cd8ca5 87b48e5a28
commit 9d85d96748
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ox-md.el
View File

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