Browse Source

org-html.el: New defcustom: `org-export-html-before-content-div'

(org-export-html-before-content-div): New defcustom for
arbitrary HTML code placed before the main div container.
Bastien Guerry 13 years ago
parent
commit
d20aa46a49
1 changed files with 7 additions and 0 deletions
  1. 7 0
      lisp/org-html.el

+ 7 - 0
lisp/org-html.el

@@ -612,6 +612,11 @@ with a link to this URL."
 	  (const :tag "Keep internal css" nil)
 	  (string :tag "URL or local href")))
 
+(defcustom org-export-html-before-content-div ""
+  "Arbitrary HTML code placed before <div id=\"content\">."
+  :group 'org-export-htmlize
+  :type 'string)
+
 (defcustom org-export-html-content-div "content"
   "The name of the container DIV that holds all the page contents."
   :group 'org-export-htmlize
@@ -1292,6 +1297,7 @@ lang=\"%s\" xml:lang=\"%s\">
 %s
 </head>
 <body>
+%s
 <div id=\"%s\">
 %s
 "
@@ -1309,6 +1315,7 @@ lang=\"%s\" xml:lang=\"%s\">
 		 date author description keywords
 		 style
 		 mathjax
+		 org-export-html-before-content-div
 		 org-export-html-content-div
 		 (if (or link-up link-home)
 		     (concat