emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* 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).