diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el index fcdf006..78582a5 100644 --- a/contrib/lisp/org-e-html.el +++ b/contrib/lisp/org-e-html.el @@ -132,7 +132,9 @@ (:html-table-tag nil nil org-e-html-table-tag) (:xml-declaration nil nil org-e-html-xml-declaration) (:LaTeX-fragments nil "LaTeX" org-export-with-LaTeX-fragments) - (:mathjax "MATHJAX" nil "" space))) + (:mathjax "MATHJAX" nil "" space) + (:html-body-onload nil nil org-e-html-body-onload) + (:html-body-onunload nil nil org-e-html-body-onunload))) @@ -996,6 +998,33 @@ CSS classes, then this prefix can be very useful." :type 'string) +;;;; Template :: body-onload + +(defcustom org-e-html-body-onload nil + "Additional onload attribute for HTML body tags. +The value of this variable is inserted in a onload attribute of +the body tag in the HTML buffer. Use this variable to include +script code to be executed after loading the HTML page." + :group 'org-export-e-html + :type '(choice + (const :tag "No preamble" nil) + ((string ) :tag "Custom string"))) + + +;;;; Template :: body-onunload + +(defcustom org-e-html-body-onunload nil + "Additional onunload attribute for HTML body tags. +The value of this variable is inserted in a onunload attribute of +the body tag in the HTML buffer. Use this variable to include +script code to be executed when leaving the HTML page." + :group 'org-export-e-html + :type '(choice + (const :tag "No preamble" nil) + ((string ) :tag "Custom string"))) + + + ;;; Internal Functions @@ -1422,7 +1451,16 @@ holding export options." (org-e-html--build-style info) (org-e-html--build-mathjax-config info) "\n" - "\n" + "\n" (let ((link-up (org-trim (plist-get info :link-up))) (link-home (org-trim (plist-get info :link-home)))) (unless (and (string= link-up "") (string= link-up ""))