소스 검색

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
 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)