From 03e9cacb826bd4a56d3d834fe5526e497d7c57eb Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 6 Dec 2020 10:33:39 +0530 Subject: website: Export svg using img tag. * build-website.el (org-html--svg-image): Override to export svg using an img tag instead of an object tag. --- build-website.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/build-website.el b/build-website.el index 9c37ea1..e85107f 100644 --- a/build-website.el +++ b/build-website.el @@ -1,5 +1,5 @@ ;;; guile-email --- Guile email parser -;;; Copyright © 2019 Arun Isaac +;;; Copyright © 2019, 2020 Arun Isaac ;;; ;;; This file is part of guile-email. ;;; @@ -39,5 +39,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")) -- cgit v1.2.3