[PATCH] HTML export: Start the first exported headline at heading level 2

[Bernt Hansen <bernt@norang.ca>]

* lisp/org-exp.el (org-export):
* lisp/org-html.el (org-export-html-toplevel-to-export):
(org-html-level-start):

Adjust exported heading levels so the first heading is <h2>.
This allows narrow to subtree to be used when exporting part
of a file so you get reasonable heading levels in the resulting
HTML.
---
This patch seems to fix this issue so that the first export heading is <h2> in HTML.
So far this has had very limited tested.  Please report back if you have any problems
with it.

This patch is available at git://git.norang.ca/org-mode.git html-export

-Bernt


 lisp/org-exp.el  |    1 +
 lisp/org-html.el |   10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 54afdac..7a04cce 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -848,6 +848,7 @@ value of `org-export-run-in-background'."
   (interactive "P")
   (let* ((bg (org-xor (equal arg '(16)) org-export-run-in-background))
 	 subtree-p
+	 org-export-html-toplevel-to-export
 	 (help "[t]   insert the export option template
 \[v]   limit export to visible part of outline tree
 \[1]   only export the current subtree
diff --git a/lisp/org-html.el b/lisp/org-html.el
index 4a6ded4..ef71305 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -253,6 +253,12 @@ document title."
   :group 'org-export-html
   :type 'string)
 
+(defvar org-export-html-toplevel-to-export nil
+  "The first heading level found to export.  For full file export
+this will normally be level 1 but when you narrow to subtree this
+matches the first heading level we find to export.  This controls
+the heading levels in the resulting HTML export.")
+
 (defcustom org-export-html-link-org-files-as-html t
   "Non-nil means make file links to `file.org' point to `file.html'.
 When org-mode is exporting an org-mode file to HTML, links to
@@ -2232,7 +2238,9 @@ When TITLE is nil, just close all open levels."
 	(aset org-levels-open (1- level) t)
 	(setq snumber (org-section-number level)
 	      snu (replace-regexp-in-string "\\." "_" snumber))
-	(setq level (+ level org-export-html-toplevel-hlevel -1))
+	(unless org-export-html-toplevel-to-export
+	  (setq org-export-html-toplevel-to-export level))
+	(setq level (+ (- level org-export-html-toplevel-to-export) org-export-html-toplevel-hlevel))
 	(if (and org-export-with-section-numbers (not body-only))
 	    (setq title (concat
 			 (format "<span class=\"section-number-%d\">%s</span>"
-- 
1.7.1.575.gf526