kanban.el

(Arne Babenhauserheide)
2012-04-29: added scope to kanban-zero fluss

added scope to kanban-zero

diff --git a/kanban.el b/kanban.el
--- a/kanban.el
+++ b/kanban.el
@@ -30,7 +30,7 @@
 table."
   (let ((words org-todo-keywords-1)) (nth (- column 1) words)))
 
-(defun kanban-zero (column row &optional match)
+(defun kanban-zero (column row &optional match scope)
   "Zero-state Kanban board: This Kanban board just displays all
 org-mode headers which have a TODO state in their respective TODO
 state. Useful for getting a simple overview of your tasks."
@@ -51,7 +51,7 @@
                                    (concat match "+TODO=\"" (nth (- row 1) org-todo-keywords-1) "\"")
                                  (concat "+TODO=\"" (nth (- row 1) org-todo-keywords-1) "\""))
                                ; read all agenda files
-                               'agenda)))))
+                               (if scope scope 'agenda))))))
     (if
         (equal
          elem nil) "" elem)))