diff options
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/build-home-page.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el index 51b1d03..e696634 100644 --- a/build-aux/build-home-page.el +++ b/build-aux/build-home-page.el @@ -33,5 +33,19 @@ org-html-head-include-scripts nil org-html-postamble nil) +;; Override org-html--svg-image to export svg using an img tag instead +;; of an object tag. +(defun org-html--svg-image (source attributes info) + "Return \"object\" embedding svg file SOURCE with given ATTRIBUTES. +INFO is a plist used as a communication channel." + (let ((attrs (org-html--make-attribute-string + (org-combine-plists + ;; Remove fallback attribute, which is not meant to + ;; appear directly in the attributes string, and + ;; provide a default class if none is set. + '(:class "org-svg") attributes '(:fallback nil))))) + (org-html-close-tag + "img" (format "src=\"%s\" %s" source attrs) info))) + (with-current-buffer (find-file "README.org") (org-export-to-file 'html "website/index.html")) |