Browse Source

HTML export: Add <div id="content"> around everything in <body>

Carsten Dominik 17 years ago
parent
commit
a68eb4b1e6
3 changed files with 12 additions and 2 deletions
  1. 5 0
      ORGWEBPAGE/Changes.org
  2. 3 0
      lisp/ChangeLog
  3. 4 2
      lisp/org-exp.el

+ 5 - 0
ORGWEBPAGE/Changes.org

@@ -188,6 +188,11 @@ The manual chapters about tags and about properties now only
 refer to the section about agenda views, where the general syntax
 refer to the section about agenda views, where the general syntax
 of tag/property matches is described.
 of tag/property matches is described.
 
 
+*** New div around the entire page in HTMP export
+
+A new =<div id=content>= is wrapped around the entire page,
+everything that is inside =<body>=.
+
 * Version 6.23
 * Version 6.23
 ** Overview
 ** Overview
 
 

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-03-03  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-03-03  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org-exp.el (org-export-as-html): Add a "content" div around the
+	entire content of the body tag.
+
 	* org.el (org-match-sparse-tree): Renamed from
 	* org.el (org-match-sparse-tree): Renamed from
 	`org-tags-sparse-tree'.
 	`org-tags-sparse-tree'.
 	(org-tags-sparse-tree): New alias.
 	(org-tags-sparse-tree): New alias.

+ 4 - 2
lisp/org-exp.el

@@ -3490,7 +3490,9 @@ lang=\"%s\" xml:lang=\"%s\">
 <meta name=\"generated\" content=\"%s\"/>
 <meta name=\"generated\" content=\"%s\"/>
 <meta name=\"author\" content=\"%s\"/>
 <meta name=\"author\" content=\"%s\"/>
 %s
 %s
-</head><body>
+</head>
+<body>
+<div id=\"content\">
 "
 "
 		 language language (org-html-expand title)
 		 language language (org-html-expand title)
 		 (or charset "iso-8859-1") date author style))
 		 (or charset "iso-8859-1") date author style))
@@ -4072,7 +4074,7 @@ lang=\"%s\" xml:lang=\"%s\">
 	(if org-export-html-with-timestamp
 	(if org-export-html-with-timestamp
 	    (insert org-export-html-html-helper-timestamp))
 	    (insert org-export-html-html-helper-timestamp))
 	(insert (or (plist-get opt-plist :postamble) ""))
 	(insert (or (plist-get opt-plist :postamble) ""))
-	(insert "</body>\n</html>\n"))
+	(insert "\n</div>\n</body>\n</html>\n"))
 
 
       (unless (plist-get opt-plist :buffer-will-be-killed)
       (unless (plist-get opt-plist :buffer-will-be-killed)
 	(normal-mode)
 	(normal-mode)