kanban: cope with "" as matcher (just append TODO)
diff --git a/kanban.el b/kanban.el
--- a/kanban.el
+++ b/kanban.el
@@ -73,7 +73,9 @@
(split-string shortline " "))))
" ") shortline)))
(concat "[[" cleanline "][" clean "]]" ))))))
- (if match match (concat "TODO=\"" (nth 0 org-todo-keywords-1) "\""))
+ (if match
+ (concat match "+TODO=\"" (nth 0 org-todo-keywords-1) "\"")
+ (concat "+TODO=\"" (nth 0 org-todo-keywords-1) "\""))
'agenda)))))
(if
(or (member elem (list cels)) (equal elem nil))