From 7f64860411c49f12ef96aa7f5066f3d342ec86a4 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 10 Jun 2021 00:20:26 +0530 Subject: README: Add continuous integration badges. * README.org (ci-badge): New macro. Add continuous integration badges. * build-aux/build-home-page.el (org-html--svg-image): Override org-html--svg-image to export svg using an img tag instead of an object tag. --- build-aux/build-home-page.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'build-aux') diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el index 51b1d03..e696634 100644 --- a/build-aux/build-home-page.el +++ b/build-aux/build-home-page.el @@ -33,5 +33,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