Re: [O] [PATCH] Agenda: Allow filter list without category in org-agenda-to-appt
Hi Peter, pmli...@free.fr (Peter Münster) writes: > Here the output of "git format-patch master". I hope it's correct, it > was my first git-commit... Yes, that's great -- I could save the patch and apply it without problem. http://orgmode.org/w/?p=org-mode.git;a=commit;h=68ffb7a7cc8cd99a49cf69491edba85988f8229c Next time, you can simply attach the patch instead of inserting it in the body of the email. That way it gets caught by the patchwork. Also, you can send it directly to the list, but the way to achieve this depends on your mail client. For example: http://andrewprice.me.uk/weblog/entry/generating-patch-emails-with-git Thanks! HTH, -- Bastien
[O] [PATCH] Agenda: Allow filter list without category in org-agenda-to-appt
Hello, Here the output of "git format-patch master". I hope it's correct, it was my first git-commit... --8<---cut here---start->8--- >From 82da273bb0884347762e883786b334302ad3f0cd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Peter=20M=C3=BCnster?= Date: Mon, 24 Oct 2011 20:52:45 +0200 Subject: [PATCH] Agenda: Allow filter list without category in org-agenda-to-appt * lisp/org-agenda.el (org-agenda-to-appt): Make sure filter-items are strings before calling `string-match'. Now it's possible to use (org-agenda-to-appt t '((headline "string"))). TINYCHANGE --- lisp/org-agenda.el | 10 ++ 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 24ead18..0b4c07b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8489,10 +8489,12 @@ details and examples." (and (stringp filter) (string-match filter evt)) (and (functionp filter) (funcall filter x)) (and (listp filter) - (or (string-match - (cadr (assoc 'category filter)) cat) - (string-match - (cadr (assoc 'headline filter)) evt)) + (let ((cat-filter (cadr (assoc 'category filter))) +(evt-filter (cadr (assoc 'headline filter +(or (and (stringp cat-filter) + (string-match cat-filter cat)) +(and (stringp evt-filter) + (string-match evt-filter evt ;; FIXME: Shall we remove text-properties for the appt text? ;; (setq evt (set-text-properties 0 (length evt) nil evt)) (when (and ok tod) -- 1.7.3.4 --8<---cut here---end--->8--- -- Peter
