* Supporting non-stuck projects view with minimal effort
@ 2009-12-22 17:58 Friedrich Delgado Friedrichs
2009-12-26 11:06 ` Carsten Dominik
2010-01-04 16:51 ` Carsten Dominik
0 siblings, 2 replies; 6+ messages in thread
From: Friedrich Delgado Friedrichs @ 2009-12-22 17:58 UTC (permalink / raw)
To: Emacs-orgmode mailing list
[-- Attachment #1.1: Type: text/plain, Size: 3131 bytes --]
Hi!
I've been thinking, the view of stuck projects is nice, but I'd need a
view of non-stuck projects to complement it.
I came up with this ugly mess:
(defun fdf/org-agenda-list-unstuck-projects (&rest ignore)
"Create agenda view for projects that are NOT stuck.
Stuck projects are project that have no next actions. For the
definitions
of what a project is and how to check if it stuck, customize the
variable
`org-stuck-projects'.
MATCH is being ignored."
(interactive)
(let* ((org-agenda-overriding-header
(or org-agenda-overriding-header "List of unstuck projects:
"))
(matcher (nth 0 org-stuck-projects))
(todo (nth 1 org-stuck-projects))
(todo-wds (if (member "*" todo)
(progn
(org-prepare-agenda-buffers (org-agenda-files
nil 'ifmode))
(org-delete-all
org-done-keywords-for-agenda
(copy-sequence
org-todo-keywords-for-agenda)))
todo))
(todo-re (concat "^\\*+[ \t]+\\("
(mapconcat 'identity todo-wds "\\|")
"\\)\\>"))
(tags (nth 2 org-stuck-projects))
(tags-re (if (member "*" tags)
(org-re "^\\*+ .*:[[:alnum:]_@]+:[ \t]*$")
(if tags
(concat "^\\*+ .*:\\("
(mapconcat 'identity tags "\\|")
(org-re "\\):[[:alnum:]_@:]*[
\t]*$")))))
(gen-re (nth 3 org-stuck-projects))
(re-list
(delq nil
(list
(if todo todo-re)
(if tags tags-re)
(and gen-re (stringp gen-re) (string-match "\\S-"
gen-re)
gen-re))))
(skip-regexp
(if re-list
(mapconcat 'identity re-list "\\|")
(error "No information how to identify unstuck
projects"))))
(org-tags-view nil matcher)
(let ((org-agenda-skip-function
(lambda ()
(org-agenda-skip-if t 'notregexp skip-regexp))))
(with-current-buffer org-agenda-buffer-name
(setq org-agenda-redo-command
'(org-agenda-list-stuck-projects
(or current-prefix-arg org-last-arg)))))))
As you will notice, this is blatantly copied and pasted from
org-agenda-list-stuck-projects (which is why it's ugly), the only
difference is that it doesn't set org-agenda-skip-function but uses
org-agenda-skip-if.
I think this could be very easily integrated into
org-agenda-list-stuck-projects (with an optional parameter 'negate'),
but I somehow feel reluctant to patch org-core for some irrational
reason.
Kind regards
Friedel
--
Friedrich Delgado Friedrichs <friedel@nomaden.org>
TauPan on Ircnet and Freenode ;)
[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]
[-- Attachment #2: Type: text/plain, Size: 201 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Supporting non-stuck projects view with minimal effort
2009-12-22 17:58 Supporting non-stuck projects view with minimal effort Friedrich Delgado Friedrichs
@ 2009-12-26 11:06 ` Carsten Dominik
2009-12-26 16:20 ` Friedrich Delgado Friedrichs
2010-01-04 16:51 ` Carsten Dominik
1 sibling, 1 reply; 6+ messages in thread
From: Carsten Dominik @ 2009-12-26 11:06 UTC (permalink / raw)
To: friedel; +Cc: Emacs-orgmode mailing list
On Dec 22, 2009, at 6:58 PM, Friedrich Delgado Friedrichs wrote:
> Hi!
>
> I've been thinking, the view of stuck projects is nice, but I'd need a
> view of non-stuck projects to complement it.
Hi Friedel,
can you describe how you would use such a view in your workflow?
- Carsten
>
> I came up with this ugly mess:
>
> (defun fdf/org-agenda-list-unstuck-projects (&rest ignore)
> "Create agenda view for projects that are NOT stuck.
> Stuck projects are project that have no next actions. For the
> definitions
> of what a project is and how to check if it stuck, customize the
> variable
> `org-stuck-projects'.
> MATCH is being ignored."
> (interactive)
> (let* ((org-agenda-overriding-header
> (or org-agenda-overriding-header "List of unstuck projects:
> "))
> (matcher (nth 0 org-stuck-projects))
> (todo (nth 1 org-stuck-projects))
> (todo-wds (if (member "*" todo)
> (progn
> (org-prepare-agenda-buffers (org-agenda-files
> nil 'ifmode))
> (org-delete-all
> org-done-keywords-for-agenda
> (copy-sequence
> org-todo-keywords-for-agenda)))
> todo))
> (todo-re (concat "^\\*+[ \t]+\\("
> (mapconcat 'identity todo-wds "\\|")
> "\\)\\>"))
> (tags (nth 2 org-stuck-projects))
> (tags-re (if (member "*" tags)
> (org-re "^\\*+ .*:[[:alnum:]_@]+:[ \t]*$")
> (if tags
> (concat "^\\*+ .*:\\("
> (mapconcat 'identity tags "\\|")
> (org-re "\\):[[:alnum:]_@:]*[
> \t]*$")))))
> (gen-re (nth 3 org-stuck-projects))
> (re-list
> (delq nil
> (list
> (if todo todo-re)
> (if tags tags-re)
> (and gen-re (stringp gen-re) (string-match "\\S-"
> gen-re)
> gen-re))))
> (skip-regexp
> (if re-list
> (mapconcat 'identity re-list "\\|")
> (error "No information how to identify unstuck
> projects"))))
> (org-tags-view nil matcher)
> (let ((org-agenda-skip-function
> (lambda ()
> (org-agenda-skip-if t 'notregexp skip-regexp))))
> (with-current-buffer org-agenda-buffer-name
> (setq org-agenda-redo-command
> '(org-agenda-list-stuck-projects
> (or current-prefix-arg org-last-arg)))))))
>
> As you will notice, this is blatantly copied and pasted from
> org-agenda-list-stuck-projects (which is why it's ugly), the only
> difference is that it doesn't set org-agenda-skip-function but uses
> org-agenda-skip-if.
>
> I think this could be very easily integrated into
> org-agenda-list-stuck-projects (with an optional parameter 'negate'),
> but I somehow feel reluctant to patch org-core for some irrational
> reason.
>
> Kind regards
> Friedel
> --
> Friedrich Delgado Friedrichs <friedel@nomaden.org>
> TauPan on Ircnet and Freenode ;)
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Supporting non-stuck projects view with minimal effort
2009-12-26 11:06 ` Carsten Dominik
@ 2009-12-26 16:20 ` Friedrich Delgado Friedrichs
2009-12-26 16:30 ` Bernt Hansen
0 siblings, 1 reply; 6+ messages in thread
From: Friedrich Delgado Friedrichs @ 2009-12-26 16:20 UTC (permalink / raw)
To: Emacs-orgmode mailing list
Hi!
Carsten Dominik schrieb:
> On Dec 22, 2009, at 6:58 PM, Friedrich Delgado Friedrichs wrote:
> >I've been thinking, the view of stuck projects is nice, but I'd need a
> >view of non-stuck projects to complement it.
> can you describe how you would use such a view in your workflow?
---Zitatende---
Sure. I'll mostly use it in my reviews or mindsweeps. I am using the
trigger list from the GTD book (also on
http://wiki.43folders.com/index.php/Trigger_List ) so I'll start by
looking through the projects that are already started to see if
something requires my attention, then review the list of stuck (or
unstarted) projects and see if I can come up with a next action for
them.
It's important for me that there are no items that occur on both
lists, since that means I will review them twice (and might end up not
reviewing them thoroughly). Without the list of unstuck projects I can
only look at stuck projects and then at all projects.
Greetings
Friedel
--
friedel@nomaden.org
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Supporting non-stuck projects view with minimal effort
2009-12-26 16:20 ` Friedrich Delgado Friedrichs
@ 2009-12-26 16:30 ` Bernt Hansen
2009-12-26 18:14 ` Friedrich Delgado Friedrichs
0 siblings, 1 reply; 6+ messages in thread
From: Bernt Hansen @ 2009-12-26 16:30 UTC (permalink / raw)
To: Friedrich Delgado Friedrichs; +Cc: Emacs-orgmode mailing list
Friedrich Delgado Friedrichs <friedel@nomaden.org> writes:
> Hi!
>
> Carsten Dominik schrieb:
>> On Dec 22, 2009, at 6:58 PM, Friedrich Delgado Friedrichs wrote:
>> >I've been thinking, the view of stuck projects is nice, but I'd need a
>> >view of non-stuck projects to complement it.
>> can you describe how you would use such a view in your workflow?
> ---Zitatende---
>
> Sure. I'll mostly use it in my reviews or mindsweeps. I am using the
> trigger list from the GTD book (also on
> http://wiki.43folders.com/index.php/Trigger_List ) so I'll start by
> looking through the projects that are already started to see if
> something requires my attention, then review the list of stuck (or
> unstarted) projects and see if I can come up with a next action for
> them.
>
> It's important for me that there are no items that occur on both
> lists, since that means I will review them twice (and might end up not
> reviewing them thoroughly). Without the list of unstuck projects I can
> only look at stuck projects and then at all projects.
Or you can look at NEXT actions which should only be unstuck project
tasks you can work on immediately.
-Bernt
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Supporting non-stuck projects view with minimal effort
2009-12-26 16:30 ` Bernt Hansen
@ 2009-12-26 18:14 ` Friedrich Delgado Friedrichs
0 siblings, 0 replies; 6+ messages in thread
From: Friedrich Delgado Friedrichs @ 2009-12-26 18:14 UTC (permalink / raw)
To: Emacs-orgmode mailing list
Hi!
Bernt Hansen schrieb:
> Or you can look at NEXT actions which should only be unstuck project
> tasks you can work on immediately.
---Zitatende---
No, that's not the same.
- Next actions might not have a project at all. A single action is
not a project.
- Projects may have more than one next action. If the order doesn't
matter, I'll just do them in the appropriate context to further the
project. If I use those actions as placeholder for a project, the
project will turn up multiple times.
--
friedel@nomaden.org
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Supporting non-stuck projects view with minimal effort
2009-12-22 17:58 Supporting non-stuck projects view with minimal effort Friedrich Delgado Friedrichs
2009-12-26 11:06 ` Carsten Dominik
@ 2010-01-04 16:51 ` Carsten Dominik
1 sibling, 0 replies; 6+ messages in thread
From: Carsten Dominik @ 2010-01-04 16:51 UTC (permalink / raw)
To: friedel; +Cc: Emacs-orgmode mailing list
Hi Friedrich,
I don't have an easy way to make this simpler. So until there are
more people asking for this functionality, I guess you can simply live
with the "ugly" version.
Greetings
- Carsten
On Dec 22, 2009, at 6:58 PM, Friedrich Delgado Friedrichs wrote:
> Hi!
>
> I've been thinking, the view of stuck projects is nice, but I'd need a
> view of non-stuck projects to complement it.
>
> I came up with this ugly mess:
>
> (defun fdf/org-agenda-list-unstuck-projects (&rest ignore)
> "Create agenda view for projects that are NOT stuck.
> Stuck projects are project that have no next actions. For the
> definitions
> of what a project is and how to check if it stuck, customize the
> variable
> `org-stuck-projects'.
> MATCH is being ignored."
> (interactive)
> (let* ((org-agenda-overriding-header
> (or org-agenda-overriding-header "List of unstuck projects:
> "))
> (matcher (nth 0 org-stuck-projects))
> (todo (nth 1 org-stuck-projects))
> (todo-wds (if (member "*" todo)
> (progn
> (org-prepare-agenda-buffers (org-agenda-files
> nil 'ifmode))
> (org-delete-all
> org-done-keywords-for-agenda
> (copy-sequence
> org-todo-keywords-for-agenda)))
> todo))
> (todo-re (concat "^\\*+[ \t]+\\("
> (mapconcat 'identity todo-wds "\\|")
> "\\)\\>"))
> (tags (nth 2 org-stuck-projects))
> (tags-re (if (member "*" tags)
> (org-re "^\\*+ .*:[[:alnum:]_@]+:[ \t]*$")
> (if tags
> (concat "^\\*+ .*:\\("
> (mapconcat 'identity tags "\\|")
> (org-re "\\):[[:alnum:]_@:]*[
> \t]*$")))))
> (gen-re (nth 3 org-stuck-projects))
> (re-list
> (delq nil
> (list
> (if todo todo-re)
> (if tags tags-re)
> (and gen-re (stringp gen-re) (string-match "\\S-"
> gen-re)
> gen-re))))
> (skip-regexp
> (if re-list
> (mapconcat 'identity re-list "\\|")
> (error "No information how to identify unstuck
> projects"))))
> (org-tags-view nil matcher)
> (let ((org-agenda-skip-function
> (lambda ()
> (org-agenda-skip-if t 'notregexp skip-regexp))))
> (with-current-buffer org-agenda-buffer-name
> (setq org-agenda-redo-command
> '(org-agenda-list-stuck-projects
> (or current-prefix-arg org-last-arg)))))))
>
> As you will notice, this is blatantly copied and pasted from
> org-agenda-list-stuck-projects (which is why it's ugly), the only
> difference is that it doesn't set org-agenda-skip-function but uses
> org-agenda-skip-if.
>
> I think this could be very easily integrated into
> org-agenda-list-stuck-projects (with an optional parameter 'negate'),
> but I somehow feel reluctant to patch org-core for some irrational
> reason.
>
> Kind regards
> Friedel
> --
> Friedrich Delgado Friedrichs <friedel@nomaden.org>
> TauPan on Ircnet and Freenode ;)
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2010-01-04 17:27 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-12-22 17:58 Supporting non-stuck projects view with minimal effort Friedrich Delgado Friedrichs
2009-12-26 11:06 ` Carsten Dominik
2009-12-26 16:20 ` Friedrich Delgado Friedrichs
2009-12-26 16:30 ` Bernt Hansen
2009-12-26 18:14 ` Friedrich Delgado Friedrichs
2010-01-04 16:51 ` Carsten Dominik
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).