From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
Subject: Re: Hotlist agenda view: how to simplify its expression?
Date: Mon, 12 Aug 2013 13:58:50 +0200
Message-ID: <86k3jrf7d1.fsf@somewhere.org>
References: <867gfu3obv.fsf@somewhere.org>
	<CAEWDx5diOsPj3ibAaoVLbF-_E8jYx3U6fris-=HCM+bvQZwWpg@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org

Hello Jonathan,

Jonathan Leech-Pepin wrote:
> On Aug 9, 2013 10:57 AM, "Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org> wrote:
>> Suppose I want a convenient way to see my most important tasks, the ones
>> which:
>>
>> - are due soon (in the next 7 days), or
>> - have a high priority (#A), or
>> - are FLAGGED.
>>
>> If I want 3 different blocks (in the above order) with *no repetition* of
>> entries, I need to write such a monster expression:
>>
>> #+begin_src emacs-lisp
>>   (add-to-list 'org-agenda-custom-commands
>>                '("I" "Hotlist"
>>                  ((tags-todo "DEADLINE<=\"<+1w>\""
>>                              ((org-agenda-overriding-header "Due in next 7 days")))
>>                   (tags-todo "PRIORITY=\"A\"+DEADLINE=\"\"|PRIORITY=\"A\"+DEADLINE>\"<+1w>\""
>>                              ((org-agenda-overriding-header "High priority")))
>>                   (tags-todo "FLAGGED+PRIORITY=\"\"+DEADLINE=\"\"|FLAGGED+PRIORITY=\"\"+DEADLINE>\"<+1w>\"|FLAGGED+PRIORITY<>\"A\"+DEADLINE=\"\"|FLAGGED+PRIORITY<>\"A\"+DEADLINE>\"<+1w>\""
>>                              ((org-agenda-overriding-header "Starred"))))
>>                  ((org-agenda-todo-ignore-scheduled 'future))) t)
>> #+end_src
>>
>> Do you see a way to optimize it (make it shorter)?
>
> Could you use (org-agenda-skip-regexp "...") combined with
> (org-agenda-skip-function (org-agenda-skip-entry-when-regexp-matches))
>
> Just change the ... in the above to the deadline/priority you want to
> exclude in the block.

I can do it for checking for the PRIORITY cookie (#A), but I can't transform
(the inverse of) DEADLINE<="<+1w>" into a regexp...

Though, here is already a nicer version of the above command:

--8<---------------cut here---------------start------------->8---
  (add-to-list 'org-agenda-custom-commands
               '("dh" "Hotlist"
                 ;; tags-todo "DEADLINE<=\"<+1w>\"|PRIORITY=\"A\"|FLAGGED"
                 ((tags-todo "DEADLINE<=\"<+1w>\""
                             ((org-agenda-overriding-header "Due in next 7 days")))
                  (tags-todo "PRIORITY=\"A\"+DEADLINE=\"\"|PRIORITY=\"A\"+DEADLINE>\"<+1w>\""
                             ((org-agenda-overriding-header "High priority")))
                  (tags-todo "FLAGGED+DEADLINE=\"\"|FLAGGED+DEADLINE>\"<+1w>\""
                             ((org-agenda-overriding-header "Starred")
                              (org-agenda-skip-regexp "\\[#A\\]")
                              (org-agenda-skip-function
                               '(org-agenda-skip-entry-when-regexp-matches)))))
                 ((org-agenda-todo-ignore-scheduled 'future))) t)
--8<---------------cut here---------------end--------------->8---

Thanks!

Best regards,
  Seb

-- 
Sebastien Vauban