From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: org-e-html and table of contents Date: Thu, 23 Aug 2012 15:29:40 -0400 Message-ID: <6157.1345750180@alphaville> References: <87d32h63lg.fsf@gmx.com> <11332.1345737403@alphaville> <871uix5znw.fsf@gmx.com> <3161.1345744363@alphaville> <87ipc9fo14.fsf@gmx.com> Reply-To: nicholas.dokos@hp.com Return-path: Received: from eggs.gnu.org ([208.118.235.92]:33984) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T4d6K-0008JC-04 for emacs-orgmode@gnu.org; Thu, 23 Aug 2012 15:29:56 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T4d6I-0002Kw-UP for emacs-orgmode@gnu.org; Thu, 23 Aug 2012 15:29:55 -0400 Received: from g4t0016.houston.hp.com ([15.201.24.19]:11882) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T4d6I-0002Kk-PS for emacs-orgmode@gnu.org; Thu, 23 Aug 2012 15:29:54 -0400 In-Reply-To: Message from Eric Schulte of "Thu, 23 Aug 2012 12:42:31 MDT." <87ipc9fo14.fsf@gmx.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: Org Mode Mailing List Eric Schulte wrote: > I'd recommend the attached patch. > > Thanks, > > From 228c4bbdd2fc145b135de233632e8884d1d53cd7 Mon Sep 17 00:00:00 2001 > From: Eric Schulte > Date: Thu, 23 Aug 2012 12:41:52 -0600 > Subject: [PATCH] Better use of default org-export-with-toc value > > * contrib/lisp/org-e-html.el (org-e-html-template): Default value of t > for org-export-with-toc has no impact, so instead when t set TOC depth > to 4. > --- > contrib/lisp/org-e-html.el | 1 + > 1 file changed, 1 insertion(+) > > diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el > index 4e9d398..ee0f247 100644 > --- a/contrib/lisp/org-e-html.el > +++ b/contrib/lisp/org-e-html.el > @@ -1473,6 +1473,7 @@ original parsed data. INFO is a plist holding export options." >

%s

\n" (org-export-data (plist-get info :title) info)) > ;; table of contents > (let ((depth (plist-get info :with-toc))) > + (when (eq t depth) (setq depth 4)) > (when (wholenump depth) (org-e-html-toc depth info))) > ;; document contents > contents In the t case, the depth should probably be set to org-export-headline-levels, instead of 4. Nick