emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

* stuck projects and org-agenda-dim-blocked-tasks
@ 2010-10-27  8:21 Magnus Nilsson
  2010-10-27 19:48 ` Magnus Nilsson
  0 siblings, 1 reply; 2+ messages in thread
From: Magnus Nilsson @ 2010-10-27  8:21 UTC (permalink / raw)
  To: emacs-orgmode


[-- Attachment #1.1: Type: text/plain, Size: 478 bytes --]

Dear all,

I now use
(setq org-agenda-dim-blocked-tasks 'invisible)
in order to not see parent tasks and tasks further down in ordered task
lists. I like this.

But I would still really like to see stuck projects with
(org-agenda-list-stuck-projects)

With the above setting, however, they unfortunately also become invisible.

How can I meet both my requirements:
1. Keep parent tasks invisible
2. Show stuck projects.

Does anyone have a solution to my problem?

Best,
Magnus

[-- Attachment #1.2: Type: text/html, Size: 548 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] 2+ messages in thread

• * Re: stuck projects and org-agenda-dim-blocked-tasks
    2010-10-27  8:21 stuck projects and org-agenda-dim-blocked-tasks Magnus Nilsson
  @ 2010-10-27 19:48 ` Magnus Nilsson
    0 siblings, 0 replies; 2+ messages in thread
  From: Magnus Nilsson @ 2010-10-27 19:48 UTC (permalink / raw)
    To: emacs-orgmode
  
  
  [-- Attachment #1.1: Type: text/plain, Size: 2976 bytes --]
  
  2010/10/27 Magnus Nilsson <magnus.nilsson@alumni.chalmers.se>
  
  > Dear all,
  >
  > I now use
  > (setq org-agenda-dim-blocked-tasks 'invisible)
  > in order to not see parent tasks and tasks further down in ordered task
  > lists. I like this.
  >
  > But I would still really like to see stuck projects with
  > (org-agenda-list-stuck-projects)
  >
  > With the above setting, however, they unfortunately also become invisible.
  >
  > How can I meet both my requirements:
  > 1. Keep parent tasks invisible
  > 2. Show stuck projects.
  >
  > Does anyone have a solution to my problem?
  >
  > Best,
  > Magnus
  >
  
  I made a working solution to my above requirements through a quick hack that
  seems to work.
  Not the prettiest solution, but I thought I'd post it if anyone else is
  interested in the same requirements.
  I'd be happy to hear if anyone has got a better solution, or if I have
  missed something related in the manual.
  I simply redefined org-finalize-agenda in my .emacs file to:
  
  (defun org-finalize-agenda ()
    "Finishing touch for the agenda buffer, called just before
    displaying it.
  
  NOTE: I have deliberately changed this function to only make blocked
  tasks invisible for the todo-list (if org-agenda-dim-blocked-tasks is set to
  'invisible).
  Compare with the original org-finalize-agenda function. /Magnus"
    (unless org-agenda-multi
      (save-excursion
        (let ((inhibit-read-only t))
      (goto-char (point-min))
          (while (org-activate-bracket-links (point-max))
            (add-text-properties (match-beginning 0) (match-end 0)
                                 '(face org-link)))
          (org-agenda-align-tags)
          (unless org-agenda-with-colors
            (remove-text-properties (point-min) (point-max) '(face nil))))
        (goto-char (point-min))
        (let  ((todo-listp (looking-at "Global"))) ;; Seems like all
  todo-lists start with the word 'Global'
          (if (and (boundp 'org-agenda-overriding-columns-format)
                   org-agenda-overriding-columns-format)
              (org-set-local 'org-agenda-overriding-columns-format
                             org-agenda-overriding-columns-format))
          (if (and (boundp 'org-agenda-view-columns-initially)
                   org-agenda-view-columns-initially)
              (org-agenda-columns))
          (when org-agenda-fontify-priorities
            (org-agenda-fontify-priorities))
          (when (and todo-listp org-agenda-dim-blocked-tasks org-blocker-hook)
            (org-agenda-dim-blocked-tasks))
          (org-agenda-mark-clocking-task)
          (when org-agenda-entry-text-mode
            (org-agenda-entry-text-hide)
            (org-agenda-entry-text-show))
          (if (functionp 'org-habit-insert-consistency-graphs)
              (org-habit-insert-consistency-graphs))
          (run-hooks 'org-finalize-agenda-hook)
          (setq org-agenda-type (org-get-at-bol 'org-agenda-type))
          (when (or org-agenda-filter (get 'org-agenda-filter :preset-filter))
            (org-agenda-filter-apply org-agenda-filter)))
        )))
  
  [-- Attachment #1.2: Type: text/html, Size: 3584 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] 2+ messages in thread

end of thread, other threads:[~2010-10-27 19:59 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-10-27  8:21 stuck projects and org-agenda-dim-blocked-tasks Magnus Nilsson
2010-10-27 19:48 ` Magnus Nilsson

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).