Re: OrgmodeGeneric export: Missing (?) 'body-section-suffix'

[Wes Hardaker <wjhns209@hardakers.net>]

>>>>> On Thu, 07 Jan 2010 22:26:04 +0100, Christian Lasarczyk <christian@lasarczyk.de> said:

CL> In my opinion the body-section-suffix [ here =")" ] is missing for
CL> all last section levels (hhh & jjj), so I expected an additional
CL> "))" at the end.

You're right that after the parsing is done it doesn't "pop back up" the
level tree for any close-out stuff.  Good catch.

Here's a patch to fix this (Carsten: can you apply it to your git tree?)

diff --git a/contrib/lisp/org-export-generic.el b/contrib/lisp/org-export-generic.el
index 90517c0..7b4a30d 100644
--- a/contrib/lisp/org-export-generic.el
+++ b/contrib/lisp/org-export-generic.el
@@ -949,6 +949,15 @@ underlined headlines.  The default is 3."
                      (org-export-generic-wrap line bodylinewrap))
              (setq line line)))
        (insert (format bodylineform line)))))
+
+    ;; if we're at a level > 0; insert the closing body level stuff
+    (let ((counter 0))
+      (while (> (- level counter) 0)
+ (insert
+  (org-export-generic-format export-plist :body-section-suffix 0
+                             (- level counter)))
+ (setq counter (1+ counter))))
+
     (org-export-generic-check-section "bottom")

     (org-export-generic-push-links (nreverse link-buffer))

-- 
Wes Hardaker                                     
My Pictures:  http://capturedonearth.com/
My Thoughts:  http://pontifications.hardakers.net/