From 87b48e5a28249c24bd42a59d3ebbdca221ebd213 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 8 Feb 2014 15:45:25 +0100 Subject: [PATCH] ox-md: Fix image transcoding * lisp/ox-md.el (org-md-link): Do not confuse caption and alt-text. Provide "img" as default alt-text. --- lisp/ox-md.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 2ecafc832..76bea94a2 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -302,12 +302,13 @@ a communication channel." ((org-export-inline-image-p link org-html-inline-image-rules) (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))) + (expand-file-name raw-path)))) + (caption (org-export-data + (org-export-get-caption + (org-export-get-parent-element link)) info))) + (format "![img](%s)" + (if (not (org-string-nw-p caption)) path + (format "%s \"%s\"" path caption))))) ((string= type "coderef") (let ((ref (org-element-property :path link))) (format (org-export-get-coderef-format ref contents)