From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: todo and deadline highlighting Date: Mon, 12 Jun 2006 23:16:01 +0200 Message-ID: <8d4e5559aac3ee21d130dd05102c89f7@science.uva.nl> References: <3c12eb8d0606071634k6bdcf44dh37207ab742221d2f@mail.gmail.com> Mime-Version: 1.0 (Apple Message framework v624) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FptlU-0000Rz-09 for emacs-orgmode@gnu.org; Mon, 12 Jun 2006 17:16:04 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FptlS-0000RI-GW for emacs-orgmode@gnu.org; Mon, 12 Jun 2006 17:16:03 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FptlS-0000RC-BW for emacs-orgmode@gnu.org; Mon, 12 Jun 2006 17:16:02 -0400 Received: from [194.134.35.149] (helo=smtp08.wanadoo.nl) by monty-python.gnu.org with esmtp (Exim 4.52) id 1FptuG-000203-3n for emacs-orgmode@gnu.org; Mon, 12 Jun 2006 17:25:08 -0400 In-Reply-To: <3c12eb8d0606071634k6bdcf44dh37207ab742221d2f@mail.gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Piotr Zielinski Cc: emacs-orgmode@gnu.org Hi Piotr, On Jun 8, 2006, at 1:34, Piotr Zielinski wrote: > > It would be nice to be able to tell the org-occur function not to > remove existing highlights in a less hacky way. In the next version, you can warp your call into (let *(org-inhibit-highlight-removal t)) ...... > Another suggestion: > explicit specification of the face used for highlighting so that > deadlines and todos could use a different face. Yet another > suggestion: the org-occur callback could return the face to use, so > that different faces could be used for deadline highlighting, > depending on the urgency of the deadline (ie. in 3 days vs. in 30 > days). Suggestion noted - maybe at a later time. Thanks > > The following two functions redefine org-show-todo-tree, so that TODO > items SCHEDULED for the future are not highlighted. Only > non-scheduled TODO items or TODO items scheduled for the past or > present are highlighted. The SCHEDULED directive must be on the same > line as the TODO keyword. This is another interesting idea, but the search must allow more than the current line. Everything up to the next headline (or any level) should be searched. - Carsten > > (defun org-todo-is-current () > "Checks whether a TODO items is current." > (if (re-search-forward org-scheduled-time-regexp (point-at-eol) t) > (let ((today (calendar-absolute-from-gregorian > (calendar-current-date))) > (timestamp (time-to-days > (org-time-string-to-time (match-string 1))))) > (<= timestamp today)) > t)) > > (defun org-show-todo-tree (arg) > "Make a compact tree which shows all headlines marked with TODO. > The tree will show the lines where the regexp matches, and all higher > headlines above the match. > With \\[universal-argument] prefix, also show the DONE entries. > With a numeric prefix N, construct a sparse tree for the Nth element > of `org-todo-keywords'." > (interactive "P") > (let ((case-fold-search nil) > (kwd-re > (cond ((null arg) org-not-done-regexp) > ((equal arg '(4)) org-todo-regexp) > ((<= (prefix-numeric-value arg) (length org-todo-keywords)) > (regexp-quote (nth (1- (prefix-numeric-value arg)) > org-todo-keywords))) > (t (error "Invalid prefix argument: %s" arg))))) > (message "%d TODO entries found" > (org-occur (concat "^" outline-regexp " +" kwd-re ) > 'org-todo-is-current)))) > > > Piotr > > > _______________________________________________ > Emacs-orgmode mailing list > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode > > -- Carsten Dominik Sterrenkundig Instituut "Anton Pannekoek" Universiteit van Amsterdam Kruislaan 403 NL-1098SJ Amsterdam phone: +31 20 525 7477