gav451
/
emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweaks while making a MWE to propose a patch

This commit is contained in:
Gerard Vermeulen 2023-06-03 14:13:35 +02:00
parent d3c55eb86d
commit 881454f3d5
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
site-lisp/ox-my-html/ox-my-html.el
View File

@ -52,7 +52,8 @@
(if a (org-my-html-export-to-html t s v b)
(org-open-file (org-my-html-export-to-html nil s v b)))))))
:options-alist
'((:my-html-embed-svg "HTML_EMBED_SVG" nil nil t))
'((:with-html-svg-embedding "HTML_EMBED_SVG" ;; groks nil as "nil" in Org file!
"html-embed-svg" org-html-embed-svg))
:translate-alist
'((link . org-my-html-link)))
@ -61,9 +62,13 @@
;;;; Links :: Embed SVG
(defcustom org-my-html-embed-svg t
(defcustom org-html-embed-svg nil
"Non-nil means embed SVG images into exported my-HTML pages,
otherwise link to SVG images from exported my-HTML pages."
otherwise link to SVG images from exported my-HTML pages. Use
#+OPTIONS: html-embed-svg:t
or
#+OPTIONS: html-embed-svg:nil
to enable or disable SVG embedding in Org files."
:group 'org-export-html
:version "30.0"
:type 'boolean)
@ -171,7 +176,7 @@ contrary to `org-html-link' which can only link such images."
;; Link type is handled by a special function.
((org-export-custom-protocol-maybe link desc 'html info))
;; Embed SVG.
((and (plist-get info :my-html-embed-svg)
((and (plist-get info :with-html-svg-embedding)
(org--my-html-embed-svg-p link))
(org--my-html-svg-contents path))
;; Image file.