[New planner function to create bicycle light charging tasks
clinton@unknownlamer.org**20071229230226
 * Added [C-c p e] as a prefix for extended planner task type functions
 * Bound create-book-tasks[-range] and create-bicycle-light-tasks
] {
hunk ./init.d/planner-cke.el 182
+;;; Special task creation functions
+
hunk ./init.d/planner-cke.el 199
+(defun cke-planner-create-bicycle-light-tasks ()
+  (interactive)
+  (let ((cke-date (planner-read-date))
+	(planner-default-task-priority "A"))
+    (mapc (lambda (task-description)
+	    (planner-create-task task-description cke-date nil "Bicycle"))
+	  '("Charge headlight"
+	    "Charge LD-600 AAAs"
+	    "Charge LD-1000 AAs"))))
+
+(global-set-key [?\C-c ?p ?e ?b] #'cke-planner-create-book-tasks)
+(global-set-key [?\C-c ?p ?e ?B] #'cke-planner-create-book-tasks-range)
+(global-set-key [?\C-c ?p ?e ?l] #'cke-planner-create-bicycle-light-tasks)
+
+
}