ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Protect image elements 

* org-html.el (org-export-html-format-image): Protect image elements.

Follow up of 6a369c26d3.
This commit is contained in:
David Maus 2011-03-14 20:38:04 +01:00
parent bb2dd85938
commit 1052f07ecf
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org-html.el
View File

@ -1801,7 +1801,7 @@ lang=\"%s\" xml:lang=\"%s\">
"Create image tag with source and attributes." "Create image tag with source and attributes."
(save-match-data (save-match-data
(if (string-match "^ltxpng/" src) (if (string-match "^ltxpng/" src)
(format "<img src=\"%s\" alt=\"%s\"/>" (format "@<img src=\"%s\" alt=\"%s\"/>"
src (org-find-text-property-in-string 'org-latex-src src)) src (org-find-text-property-in-string 'org-latex-src src))
(let* ((caption (org-find-text-property-in-string 'org-caption src)) (let* ((caption (org-find-text-property-in-string 'org-caption src))
(attr (org-find-text-property-in-string 'org-attributes src)) (attr (org-find-text-property-in-string 'org-attributes src))
@ -1809,20 +1809,20 @@ lang=\"%s\" xml:lang=\"%s\">
(setq caption (and caption (org-html-do-expand caption))) (setq caption (and caption (org-html-do-expand caption)))
(concat (concat
(if caption (if caption
(format "%s<div %sclass=\"figure\"> (format "%s@<div %sclass=\"figure\">
<p>" <p>"
(if org-par-open "</p>\n" "") (if org-par-open "@</p>\n" "")
(if label (format "id=\"%s\" " (org-solidify-link-text label)) ""))) (if label (format "id=\"%s\" " (org-solidify-link-text label)) "")))
(format "<img src=\"%s\"%s />" (format "@<img src=\"%s\"%s />"
src src
(if (string-match "\\<alt=" (or attr "")) (if (string-match "\\<alt=" (or attr ""))
(concat " " attr ) (concat " " attr )
(concat " " attr " alt=\"" src "\""))) (concat " " attr " alt=\"" src "\"")))
(if caption (if caption
(format "</p>%s (format "@</p>%s
</div>%s" @</div>%s"
(concat "\n<p>" caption "</p>") (concat "\n@<p>" caption "@</p>")
(if org-par-open "\n<p>" "")))))))) (if org-par-open "\n@<p>" ""))))))))
(defun org-export-html-get-bibliography () (defun org-export-html-get-bibliography ()
"Find bibliography, cut it out and return it." "Find bibliography, cut it out and return it."