From e6119f05df3a0fd851544fe1640cc2f6f56c6c6f Mon Sep 17 00:00:00 2001
From: Markus Hoenicka <markus.hoenicka@mhoenicka.de>
Date: Wed, 28 Nov 2007 00:31:27 +0100
Subject: [PATCH] id attribute for tasks in (x)html output

---
 planner-publish.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/planner-publish.el b/planner-publish.el
index 50e85eb..cad9ffb 100644
--- a/planner-publish.el
+++ b/planner-publish.el
@@ -204,7 +204,7 @@ This may be text or a filename."
     (planner-end-task-body       . "</ul>")
     (planner-begin-note-section  . "<div id=\"notes\" class=\"section\">")
     (planner-end-note-section    . "</div>")
-    (planner-begin-task   . "<li class=\"task\"><span class=\"%s\"><span class=\"%s\">%s</span>")
+    (planner-begin-task   . "<li class=\"task\"><span class=\"%s\"><span class=\"%s\" id=\"%s\">%s</span>")
     (planner-end-task     . "</span></li>")
     (planner-begin-note   . "<div class=\"note\"><a name=\"%s\"></a><span class=\"anchor\">%s</span>")
     (planner-end-note     . "</div>")
@@ -579,6 +579,9 @@ of each section."
        (muse-markup-text 'planner-begin-task
                          status
                          priority
+			 (if planner-use-task-numbers
+			     (concat priority number)
+			   (concat priority (number-to-string (random 134217727))))
                          (concat priority number " "
                                  (planner-publish-task-status-collapse status)
                                  " "))))))
-- 
2.11.4.GIT