summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--build-website.el16
1 files changed, 15 insertions, 1 deletions
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 <arunisaac@systemreboot.net>
+;;; Copyright © 2019, 2020 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; 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"))