all messages for Emacs-related lists mirrored at yhetil.org
 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

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 external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.