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

Tweaks while making a MWE to propose a patch

Browse Source
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) (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))))))) (org-open-file (org-my-html-export-to-html nil s v b)))))))
:options-alist :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 :translate-alist
'((link . org-my-html-link))) '((link . org-my-html-link)))
@ -61,9 +62,13 @@
;;;; Links :: Embed SVG ;;;; 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, "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 :group 'org-export-html
:version "30.0" :version "30.0"
:type 'boolean) :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. ;; Link type is handled by a special function.
((org-export-custom-protocol-maybe link desc 'html info)) ((org-export-custom-protocol-maybe link desc 'html info))
;; Embed SVG. ;; 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-embed-svg-p link))
(org--my-html-svg-contents path)) (org--my-html-svg-contents path))
;; Image file. ;; Image file.