瀏覽代碼

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

Carsten Dominik 16 年之前
父節點
當前提交
a68eb4b1e6
共有 3 個文件被更改,包括 12 次插入2 次删除
  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
 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
 ** Overview
 

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 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-tags-sparse-tree'.
 	(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=\"author\" content=\"%s\"/>
 %s
-</head><body>
+</head>
+<body>
+<div id=\"content\">
 "
 		 language language (org-html-expand title)
 		 (or charset "iso-8859-1") date author style))
@@ -4072,7 +4074,7 @@ lang=\"%s\" xml:lang=\"%s\">
 	(if org-export-html-with-timestamp
 	    (insert org-export-html-html-helper-timestamp))
 	(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)
 	(normal-mode)