diff options
| -rw-r--r-- | build-website.el | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/build-website.el b/build-website.el index e85107f..f10b89b 100644 --- a/build-website.el +++ b/build-website.el @@ -1,5 +1,5 @@ ;;; guile-email --- Guile email parser -;;; Copyright © 2019, 2020 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of guile-email. ;;; @@ -39,19 +39,5 @@ 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")) |