From mboxrd@z Thu Jan 1 00:00:00 1970 From: Wes Hardaker Subject: Re: OrgmodeGeneric export: Missing (?) 'body-section-suffix' Date: Fri, 08 Jan 2010 07:51:26 -0800 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NTH7f-0002md-MV for emacs-orgmode@gnu.org; Fri, 08 Jan 2010 10:51:35 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NTH7b-0002lk-5D for emacs-orgmode@gnu.org; Fri, 08 Jan 2010 10:51:35 -0500 Received: from [199.232.76.173] (port=49160 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NTH7a-0002lU-Se for emacs-orgmode@gnu.org; Fri, 08 Jan 2010 10:51:30 -0500 Received: from mail.hardakers.net ([168.150.236.43]:36707) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NTH7a-0000pe-EV for emacs-orgmode@gnu.org; Fri, 08 Jan 2010 10:51:30 -0500 In-Reply-To: (Christian Lasarczyk's message of "Thu, 07 Jan 2010 22:26:04 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Christian Lasarczyk Cc: emacs-orgmode@gnu.org >>>>> On Thu, 07 Jan 2010 22:26:04 +0100, Christian Lasarczyk 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/