emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug: / RET filter no longer auto-excludes FILETAGS [6.33trans (release_6.33f.34.gf806)]
Date: Thu, 26 Nov 2009 07:02:00 +0100	[thread overview]
Message-ID: <D20031C0-3D68-4B72-AF3D-161BE2992046@gmail.com> (raw)
In-Reply-To: <200911251854.nAPIsQjM001980@gollum.intra.norang.ca>


On Nov 25, 2009, at 7:54 PM, Bernt Hansen wrote:

>
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?   
> See
>
>     http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> I have a function that excludes tasks in the agenda using / RET
> (auto-exclude.)  This works in release_6.33f but is broken on the
> current master.
>
> One of the following commits breaks it:
>
> There are only 'skip'ped commits left to test.
> The first bad commit could be any of:
> c6186f49b361dcb2ef05bf769c9abf80307bd658
> 1a0e1a6f07303aa935a643863c7cb85264e73481
>
> Excluding tasks by FILETAGS only breaks for me.
>
> The tag 'MARK' is a
>
>    #+FILETAGS: MARK
>
> entry only in mark.org.  Auto Exclusion of the MARK tag no longer
> works with the current master.
>
> My auto exclude functions are inline below:
>
> -Bernt
>
> --8<---------------cut here---------------start------------->8---
> (defun bh/weekday-p ()
>  (let ((wday (nth 6 (decode-time))))
>    (and (< wday 6)
> 	 (> wday 0))))
>
> (defun bh/working-p ()
>  (let ((hour (nth 2 (decode-time))))
>    (and (bh/weekday-p)
> 	 (or (and (>= hour 8) (<= hour 11))
> 	     (and (>= hour 13) (<= hour 16))))))
>
> (defun bh/mark-p ()
>  (let ((hour (nth 2 (decode-time))))
>    (or (and (bh/weekday-p)
> 	     (or (= hour 8)
> 		 (and (>= hour 16) (<= hour 20))))
> 	(and (not (bh/weekday-p))
> 	     (>= hour 9)
> 	     (<= hour 20)))))
>
> (defun bh/org-auto-exclude-function (tag)
>  (and (cond
> 	((string= tag "@home")
> 	 (bh/working-p))
> 	((string= tag "@office")
> 	 (not (bh/working-p)))
> 	((string= tag "MARK")
> 	 (not (bh/mark-p)))
> 	((or (string= tag "@errand") (string= tag "PHONE"))
> 	 (let ((hour (nth 2 (decode-time))))
> 	   (or (< hour 8) (> hour 21)))))
>       (concat "-" tag)))
>
> (setq org-agenda-auto-exclude-function 'bh/org-auto-exclude-function)

Hi Bernt,

do you get it back to when when replacing "MARK" with "mark" and
"PHONE" wiht "phone"?

- Carsten

  reply	other threads:[~2009-11-26  6:02 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-11-25 18:54 Bug: / RET filter no longer auto-excludes FILETAGS [6.33trans (release_6.33f.34.gf806)] Bernt Hansen
2009-11-26  6:02 ` Carsten Dominik [this message]
2009-11-26 10:55   ` Bernt Hansen
2009-11-26 11:03     ` Carsten Dominik
2009-11-26 11:21       ` Bernt Hansen
2009-11-26 11:26         ` Carsten Dominik
2009-11-26 11:28           ` Bernt Hansen

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

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=D20031C0-3D68-4B72-AF3D-161BE2992046@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=bernt@norang.ca \
    --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 public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).