kanban: now kanban-zero uses the matcher for item selection, too.
diff --git a/kanban.el b/kanban.el
--- a/kanban.el
+++ b/kanban.el
@@ -38,12 +38,14 @@
(point) (line-end-position)))
(keyword (nth (- row 1) org-todo-keywords-1)))
(let ((cleanline (nth 1 (split-string line "* "))))
- (if (not (member keyword (split-string cleanline " ")))
- nil
- (concat "[[" cleanline "]["
+ (concat "[[" cleanline "]["
(substring cleanline
(+ (length keyword) 1)
- (min 30 (length cleanline))) "]]" ))))) nil 'agenda)))))
+ (min 30 (length cleanline))) "]]" ))))
+ ; select the TODO state via the matcher: just match the TODO.
+ (concat "+TODO=\"" (nth (- row 1) org-todo-keywords-1) "\"")
+ ; read all agenda files
+ 'agenda)))))
(if
(equal
elem nil) "" elem)))