branch: externals/org
commit a51c0f22b8d47a3ef0ec0c6bf91e4a31c6ef523b
Author: Bastien Guerry <[email protected]>
Commit: Bastien Guerry <[email protected]>
ox-html.el (org-html-scripts, org-html-style-default): Use defcustom
* ox-html.el (org-html-scripts, org-html-style-default): Turn
into configurable options.
---
etc/ORG-NEWS | 5 +++++
lisp/ox-html.el | 14 ++++++++++----
2 files changed, 15 insertions(+), 4 deletions(-)
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 5ce75ec..94dca32 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -109,6 +109,11 @@ By default ox-html now inlines webp images.
This is the CSS class name to use for the top level content wrapper.
+*** You can now configure ~org-html-scripts~ and ~org-html-style-default~
+
+~org-html-scripts~ and ~org-html-style-default~ used to be constants,
+you can now configure them.
+
*** Some faces now use fixed-pitch
See https://orgmode.org/list/[email protected].
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index c1dbfc8..aa6284f 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -232,7 +232,7 @@ property on the headline itself.")
("\\.\\.\\." . "…")) ; hellip
"Regular expressions for special string conversion.")
-(defconst org-html-scripts
+(defcustom org-html-scripts
"<script type=\"text/javascript\">
// @license
magnet:?xt=urn:btih:1f739d935676111cfff4b4693e3816e664797050&dn=gpl-3.0.txt
GPL-v3-or-Later
function CodeHighlightOn(elem, id)
@@ -255,9 +255,12 @@ property on the headline itself.")
}
// @license-end
</script>"
- "Basic JavaScript that is needed by HTML files produced by Org mode.")
+ "Basic JavaScript that is needed by HTML files produced by Org mode."
+ :group 'org-export-html
+ :package-version '(Org . "9.5")
+ :type 'string)
-(defconst org-html-style-default
+(defcustom org-html-style-default
"<style type=\"text/css\">
#content { max-width: 60em; margin: auto; }
.title { text-align: center;
@@ -444,7 +447,10 @@ property on the headline itself.")
"The default style specification for exported HTML files.
You can use `org-html-head' and `org-html-head-extra' to add to
this style. If you don't want to include this default style,
-customize `org-html-head-include-default-style'.")
+customize `org-html-head-include-default-style'."
+ :group 'org-export-html
+ :package-version '(Org . "9.5")
+ :type 'string)
;;; User Configuration Variables