2010/10/27 Magnus Nilsson <[email protected]>
> 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)))
)))
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
