From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH] Fix section id on HTML export when no custom id is present Date: Sun, 19 Apr 2009 12:29:04 -0400 Message-ID: <1240158544-8214-2-git-send-email-bernt@norang.ca> References: <1240158544-8214-1-git-send-email-bernt@norang.ca> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LvZtO-00012b-Gc for emacs-orgmode@gnu.org; Sun, 19 Apr 2009 12:29:18 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LvZtL-0000zg-4H for emacs-orgmode@gnu.org; Sun, 19 Apr 2009 12:29:18 -0400 Received: from [199.232.76.173] (port=50377 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LvZtK-0000zW-KQ for emacs-orgmode@gnu.org; Sun, 19 Apr 2009 12:29:14 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:51051) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LvZtK-0006dF-BM for emacs-orgmode@gnu.org; Sun, 19 Apr 2009 12:29:14 -0400 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-01-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1LvZtI-000BnP-0t for emacs-orgmode@gnu.org; Sun, 19 Apr 2009 16:29:12 +0000 In-Reply-To: <1240158544-8214-1-git-send-email-bernt@norang.ca> 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: emacs-orgmode@gnu.org Cc: Bernt Hansen This fixes a bug where section ids were all set to 'nil'. suffix and href were identical so suffix is no more. Before this change the table of contents had the correct id but the heading levels all had id="nil" --- This patch is available at git://git.norang.ca/org-mode for-carsten lisp/org-html.el | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/org-html.el b/lisp/org-html.el index 0f3d113..0c416af 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -1817,7 +1817,7 @@ When TITLE is nil, just close all open levels." (preferred (cdr (assoc target org-export-preferred-target-alist))) (remove (or preferred target)) (l org-level-max) - snumber href suffix) + snumber href) (setq extra-targets (remove remove extra-targets)) (setq extra-targets (mapconcat (lambda (x) @@ -1874,12 +1874,11 @@ When TITLE is nil, just close all open levels." level snumber) " " title))) (unless (= head-count 1) (insert "\n\n")) - (setq href (cdr (assoc (concat "sec-" snumber) org-export-preferred-target-alist))) - (setq suffix (or href (concat "sec-" snumber))) + (setq href (or (cdr (assoc (concat "sec-" snumber) org-export-preferred-target-alist)) (concat "sec-" snumber))) (insert (format "\n
\n%s%s\n
\n" - suffix level level href + href level level href extra-targets - title level level suffix)) + title level level href)) (org-open-par))))) (defun org-export-html-get-tag-class-name (tag) -- 1.6.3.rc1