emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Show TODO item in table of contents


From: Nicolas Goaziou
Subject: Re: [O] Show TODO item in table of contents
Date: Wed, 06 Nov 2013 15:29:28 +0100

Hello,

Rainer Stengele <address@hidden> writes:

> In html export include todo state words in table of contents.

Would the following patch do the job?


Regards,

-- 
Nicolas Goaziou
>From 7b85dbbc22e73766ac92295d2b37ae692b20d289 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <address@hidden>
Date: Wed, 6 Nov 2013 15:26:53 +0100
Subject: [PATCH] ox-html: Add TODO keyword to TOC entries

* lisp/ox-html.el (org-html--format-toc-headline): TOC entries are
  closer to regular headline formatting.
---
 lisp/ox-html.el | 54 +++++++++++++++++++++++++++++++-----------------------
 1 file changed, 31 insertions(+), 23 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index afc2437..84a3f45 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -1969,34 +1969,42 @@ and value is its relative level, as an integer."
 (defun org-html--format-toc-headline (headline info)
   "Return an appropriate table of contents entry for HEADLINE.
 INFO is a plist used as a communication channel."
-  (let* ((headline-number (org-export-get-headline-number headline info))
-        (section-number
-         (and (not (org-export-low-level-p headline info))
-              (org-export-numbered-headline-p headline info)
-              (concat (mapconcat 'number-to-string headline-number ".") ". ")))
+  (let* ((level (+ (org-export-get-relative-level headline info)
+                  (1- org-html-toplevel-hlevel)))
+        (todo (and (plist-get info :with-todo-keywords)
+                   (let ((todo (org-element-property :todo-keyword headline)))
+                     (and todo (org-export-data todo info)))))
+        (todo-type (and todo (org-element-property :todo-type headline)))
+        (priority (and (plist-get info :with-priority)
+                       (org-element-property :priority headline)))
+        (text (org-export-data-with-backend
+               (org-export-get-alt-title headline info)
+               ;; Create an anonymous back-end that will ignore any
+               ;; footnote-reference, link, radio-target and target
+               ;; in table of contents.
+               (org-export-create-backend
+                :parent 'html
+                :transcoders '((footnote-reference . ignore)
+                               (link . (lambda (object c i) c))
+                               (radio-target . (lambda (object c i) c))
+                               (target . ignore)))
+               info))
         (tags (and (eq (plist-get info :with-tags) t)
                    (org-export-get-tags headline info))))
     (format "<a href=\"#%s\">%s</a>"
-           ;; Label.
            (org-export-solidify-link-text
             (or (org-element-property :CUSTOM_ID headline)
-                (concat "sec-" (mapconcat 'number-to-string
-                                          headline-number "-"))))
-           ;; Body.
-           (concat section-number
-                   (org-export-data-with-backend
-                    (org-export-get-alt-title headline info)
-                    ;; Create an anonymous back-end that will ignore
-                    ;; any footnote-reference, link, radio-target and
-                    ;; target in table of contents.
-                    (org-export-create-backend
-                     :parent 'html
-                     :transcoders '((footnote-reference . ignore)
-                                    (link . (lambda (object c i) c))
-                                    (radio-target . (lambda (object c i) c))
-                                    (target . ignore)))
-                    info)
-                   (and tags "&#xa0;&#xa0;&#xa0;") (org-html--tags tags)))))
+                (concat "sec-"
+                        (mapconcat
+                         #'number-to-string
+                         (org-export-get-headline-number headline info)
+                         "-"))))
+           (apply (if (functionp org-html-format-headline-function)
+                      (lambda (todo todo-type priority text tags &rest ignore)
+                        (funcall org-html-format-headline-function
+                                 todo todo-type priority text tags))
+                    #'org-html-format-headline)
+                  todo todo-type priority text tags :section-number nil))))
 
 (defun org-html-list-of-listings (info)
   "Build a list of listings.
-- 
1.8.4.2


reply via email to

[Prev in Thread] Current Thread [Next in Thread]