[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: OrgmodeGeneric export: Missing (?) 'body-section-suffix'
From: |
Wes Hardaker |
Subject: |
[Orgmode] Re: OrgmodeGeneric export: Missing (?) 'body-section-suffix' |
Date: |
Fri, 08 Jan 2010 07:51:26 -0800 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) XEmacs/21.4.22 (linux, no MULE) |
>>>>> On Thu, 07 Jan 2010 22:26:04 +0100, Christian Lasarczyk <address@hidden>
>>>>> 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/