Re: [O] Exclude all TODO keywords from refile targets
On Sat, Nov 24, 2012 at 1:22 AM, Bernt Hansen wrote: > Jason Dunsmore writes: > >> I found a bit of code to exclude DONE keywords from refile targets >> here: http://orgmode.org/worg/org-hacks.html#sec-2-3 >> >> Since I try to keep all headings with keywords as end nodes, I wanted >> to exclude all TODO (and DONE) keywords. However, the member function >> doesn't work on a sequence data type, so I couldn't use >> org-todo-keywords the same way the org-hacks code used >> org-done-keywords. Furthermore, org-todo-keywords contains extraneous >> characters in parenthesis that define "selection characters". I ended >> up creating a new variable, org-todo-keywords-list, and converting the >> data from org-todo-keywords into a similar format as >> org-done-keywords. >> >> Perhaps a org-todo-keywords-list variable would be a useful addition >> to org-mode. Here's the code I'm using: >> >> (setq org-todo-keywords '((sequence "TODO(t)" "DELEGATE(l)" >> "STARTED(s@)" "WAITING(w@)" "|" "DONE(d)" "CANCELLED(c)" >> "DELEGATED(e@)" "POSTPONED(p@)"))) >> > > You should be able to use org-todo-keywords-1 which contains a list of > todo keywords for the current org file. That works perfectly. Thank you.
Re: [O] Exclude all TODO keywords from refile targets
Jason Dunsmore writes: > I found a bit of code to exclude DONE keywords from refile targets > here: http://orgmode.org/worg/org-hacks.html#sec-2-3 > > Since I try to keep all headings with keywords as end nodes, I wanted > to exclude all TODO (and DONE) keywords. However, the member function > doesn't work on a sequence data type, so I couldn't use > org-todo-keywords the same way the org-hacks code used > org-done-keywords. Furthermore, org-todo-keywords contains extraneous > characters in parenthesis that define "selection characters". I ended > up creating a new variable, org-todo-keywords-list, and converting the > data from org-todo-keywords into a similar format as > org-done-keywords. > > Perhaps a org-todo-keywords-list variable would be a useful addition > to org-mode. Here's the code I'm using: > > (setq org-todo-keywords '((sequence "TODO(t)" "DELEGATE(l)" > "STARTED(s@)" "WAITING(w@)" "|" "DONE(d)" "CANCELLED(c)" > "DELEGATED(e@)" "POSTPONED(p@)"))) > You should be able to use org-todo-keywords-1 which contains a list of todo keywords for the current org file. HTH, Bernt > ;; define a new variable > (defvar org-todo-keywords-list nil > "A list version of org-todo-keywords, without the selection characters > in parenthesis.") > > ;; create org-todo-keywords-list from org-todo-keywords-list, using a > ;; similar format to org-done-keywords > (dolist (keyword (first org-todo-keywords)) > (when (and (stringp keyword) > (not (equal keyword "|"))) > (add-to-list 'org-todo-keywords-list > (replace-regexp-in-string "(.*)" "" keyword > > (defun jbd-verify-refile-target () > "Exclude todo keywords with a done state from refile targets" > (not (member (nth 2 (org-heading-components)) org-todo-keywords-list))) > > (setq org-refile-target-verify-function 'jbd-verify-refile-target)
