From mboxrd@z Thu Jan 1 00:00:00 1970 From: Karl Voit Subject: Re: Exclude tag from custom agenda Date: Sun, 9 Dec 2012 22:31:46 +0100 Message-ID: <2012-12-09T22-28-49@devnull.Karl-Voit.at> References: <2012-12-07T18-18-52@devnull.Karl-Voit.at> <871uezql9d.fsf@mean.albasani.net> Reply-To: news1142@Karl-Voit.at Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:41837) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ThoTl-0002R9-TF for emacs-orgmode@gnu.org; Sun, 09 Dec 2012 16:32:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ThoTk-0004aO-NA for emacs-orgmode@gnu.org; Sun, 09 Dec 2012 16:32:05 -0500 Received: from plane.gmane.org ([80.91.229.3]:37271) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ThoTk-0004aJ-Gb for emacs-orgmode@gnu.org; Sun, 09 Dec 2012 16:32:04 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ThoTv-0005Ua-DF for emacs-orgmode@gnu.org; Sun, 09 Dec 2012 22:32:15 +0100 Received: from mail.michael-prokop.at ([88.198.6.110]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 09 Dec 2012 22:32:15 +0100 Received: from news1142 by mail.michael-prokop.at with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 09 Dec 2012 22:32:15 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * Memnon Anon wrote: > Karl Voit writes: > >> What I want to achieve: on top, there should be my normal agenda >> (events, tasks, habits, ...) but minus elements tagged with >> "reward". > > #+begin_src emacs-lisp > ;;; Based on http://article.gmane.org/gmane.emacs.orgmode/41427 > (defun my-skip-tag(tag) > "Skip entries that are tagged TAG" > (let* ((entry-tags (org-get-tags-at (point)))) > (if (member tag entry-tags) > (progn (outline-next-heading) (point)) > nil))) > #+end_src > > #+begin_src emacs-lisp > (agenda "" > ((org-agenda-skip-function '(my-skip-tag"reward")) > (org-agenda-overriding-header "Agenda (without rewards: "))))) > #+end_src > > That should do it. > Please give it a try :) Awesome! Works great! Now I only need the "DONE today" section and a much faster CPU core to generate my uber-agenda :-) Thanks for your help! -- Karl Voit