From 25c335ebb4ff3b3143b2adec694fe519a93808a2 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 10 Jun 2021 17:18:36 +0530 Subject: build-website: Do not override org-html--svg-image. SVG image export works correctly out of the box in org. * build-website.el (org-html--svg-image): Delete function. --- build-website.el | 16 +--------------- 1 file changed, 1 insertion(+), 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 +;;; Copyright © 2019, 2020, 2021 Arun Isaac ;;; ;;; 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")) -- cgit v1.2.3