mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 17:02:51 +00:00
HTML export: New option to turn off Javascript inclusion
It is now possible to turn off the inclusion of any javascript into the HTML file.
This commit is contained in:
parent
3ed4b5e323
commit
6d6a7cb916
|
@ -1,3 +1,11 @@
|
||||||
|
2009-03-07 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-exp.el (org-export-html-style-include-scripts): New option.
|
||||||
|
(org-export-plist-vars): Add new option
|
||||||
|
`org-export-html-style-include-scripts'.
|
||||||
|
(org-export-as-html): Honor new option
|
||||||
|
`org-export-html-style-include-scripts'.
|
||||||
|
|
||||||
2009-03-06 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-03-06 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org-publish.el (org-publish-attachment): Only copy file when the
|
* org-publish.el (org-publish-attachment): Only copy file when the
|
||||||
|
|
|
@ -535,6 +535,13 @@ in this way, it will be wrapped."
|
||||||
:group 'org-export-html
|
:group 'org-export-html
|
||||||
:type '(string :tag "File or URL"))
|
:type '(string :tag "File or URL"))
|
||||||
|
|
||||||
|
(defcustom org-export-html-style-include-scripts t
|
||||||
|
"Non-nil means, include the javascript snippets in exported HTML files.
|
||||||
|
The actual script is defined in `org-export-html-scripts' and should
|
||||||
|
not be modified."
|
||||||
|
:group 'org-export-html
|
||||||
|
:type 'boolean)
|
||||||
|
|
||||||
(defconst org-export-html-scripts
|
(defconst org-export-html-scripts
|
||||||
"<script type=\"text/javascript\">
|
"<script type=\"text/javascript\">
|
||||||
<!--/*--><![CDATA[/*><!--*/
|
<!--/*--><![CDATA[/*><!--*/
|
||||||
|
@ -943,6 +950,7 @@ or if they are only using it locally."
|
||||||
(:tables "|" org-export-with-tables)
|
(:tables "|" org-export-with-tables)
|
||||||
(:table-auto-headline nil org-export-highlight-first-table-line)
|
(:table-auto-headline nil org-export-highlight-first-table-line)
|
||||||
(:style-include-default nil org-export-html-style-include-default)
|
(:style-include-default nil org-export-html-style-include-default)
|
||||||
|
(:style-include-scripts nil org-export-html-style-include-scripts)
|
||||||
(:style nil org-export-html-style)
|
(:style nil org-export-html-style)
|
||||||
(:style-extra nil org-export-html-style-extra)
|
(:style-extra nil org-export-html-style-extra)
|
||||||
(:agenda-style nil org-agenda-export-html-style)
|
(:agenda-style nil org-agenda-export-html-style)
|
||||||
|
@ -3318,7 +3326,9 @@ PUB-DIR is set, use this as the publishing directory."
|
||||||
org-export-html-style-default)
|
org-export-html-style-default)
|
||||||
(plist-get opt-plist :style)
|
(plist-get opt-plist :style)
|
||||||
(plist-get opt-plist :style-extra)
|
(plist-get opt-plist :style-extra)
|
||||||
"\n" org-export-html-scripts))
|
"\n"
|
||||||
|
(if (plist-get opt-plist :style-include-scripts)
|
||||||
|
org-export-html-scripts)))
|
||||||
(html-extension (plist-get opt-plist :html-extension))
|
(html-extension (plist-get opt-plist :html-extension))
|
||||||
(link-validate (plist-get opt-plist :link-validation-function))
|
(link-validate (plist-get opt-plist :link-validation-function))
|
||||||
valid thetoc have-headings first-heading-pos
|
valid thetoc have-headings first-heading-pos
|
||||||
|
|
Loading…
Reference in a new issue