From: Magnus Nilsson <magnus.nilsson@alumni.chalmers.se>
To: emacs-orgmode@gnu.org
Subject: Re: stuck projects and org-agenda-dim-blocked-tasks
Date: Wed, 27 Oct 2010 21:48:04 +0200 [thread overview]
Message-ID: <AANLkTinnJW31f+jHS1UnynUOrOy_zzwtgWnpkFY3dpfZ@mail.gmail.com> (raw)
In-Reply-To: <AANLkTincpiwS_P90P0b+5x2CoRqnR2HuY+KLMr0hex6q@mail.gmail.com>
[-- 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
prev parent reply other threads:[~2010-10-27 19:59 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-27 8:21 stuck projects and org-agenda-dim-blocked-tasks Magnus Nilsson
2010-10-27 19:48 ` Magnus Nilsson [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=AANLkTinnJW31f+jHS1UnynUOrOy_zzwtgWnpkFY3dpfZ@mail.gmail.com \
--to=magnus.nilsson@alumni.chalmers.se \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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.