From: Bernt Hansen <bernt@norang.ca>
To: Jason Dunsmore <jasondunsmore@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Exclude all TODO keywords from refile targets
Date: Sat, 24 Nov 2012 02:22:47 -0500 [thread overview]
Message-ID: <87txsfsbw8.fsf@norang.ca> (raw)
In-Reply-To: <CAEgAqcsTdxjCioWgmEF=i84QNn0ber=WM_gWyw9DiBtfWgx=NQ@mail.gmail.com> (Jason Dunsmore's message of "Thu, 15 Nov 2012 10:15:45 -0600")
Jason Dunsmore <jasondunsmore@gmail.com> 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)
next prev parent reply other threads:[~2012-11-24 7:22 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-11-15 16:15 Exclude all TODO keywords from refile targets Jason Dunsmore
2012-11-24 7:22 ` Bernt Hansen [this message]
2012-11-25 2:46 ` Jason Dunsmore
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87txsfsbw8.fsf@norang.ca \
--to=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
--cc=jasondunsmore@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).