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