kanban.el

(Arne Babenhauserheide)
2012-04-29: kanban-item → kanban-todo fluss

kanban-item → kanban-todo

diff --git a/kanban.el b/kanban.el
--- a/kanban.el
+++ b/kanban.el
@@ -56,7 +56,7 @@
         (equal
          elem nil) "" elem)))
 
-(defun kanban-item (column cels &optional match)
+(defun kanban-todo (column cels &optional match scope)
   "Kanban TODO item grabber. Fills the first row of the kanban
 table with org-mode TODO entries, if they are not in another cell
 of the table. This allows you to set the state manually and just
@@ -84,7 +84,7 @@
                                     (if match 
                                         (concat match "+TODO=\"" (nth 0 org-todo-keywords-1) "\"")
                                          (concat "+TODO=\"" (nth 0 org-todo-keywords-1) "\""))
-                                                            'agenda)))))
+                                                            (if scope scope 'agenda))))))
    (if
        (or (member elem (list cels)) (equal elem nil))
                " " elem)))