From 6bc13f2df1395fe6b5c197dca8b24a959d02e5c1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 10 Jun 2021 17:16:34 +0530
Subject: build-aux: Do not override org-html--svg-image.

SVG image export works correctly out of the box in org.

* build-aux/build-home-page.el (org-html--svg-image): Delete function.
---
 build-aux/build-home-page.el | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'build-aux/build-home-page.el')

diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el
index e696634..51b1d03 100644
--- a/build-aux/build-home-page.el
+++ b/build-aux/build-home-page.el
@@ -33,19 +33,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