From 3ff41f19e501911e434dd17eb261b777396db2bd Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 30 Aug 2023 22:56:56 -0600 Subject: [PATCH] [Emacs] Set predicate blacklist for keywords for org-wild-notifier --- dotfiles/emacs.d/org-config.org | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/dotfiles/emacs.d/org-config.org b/dotfiles/emacs.d/org-config.org index ad647c3c..168f5fe1 100644 --- a/dotfiles/emacs.d/org-config.org +++ b/dotfiles/emacs.d/org-config.org @@ -853,19 +853,16 @@ alphanumeric characters only." ((org-wild-notifier-keyword-whitelist nil) (org-wild-notifier-tags-blacklist '("nonotify")) (org-wild-notifier-alert-time '(30 5 0)) - (org-wild-notifier-extra-alert-plist '(:persistent t))) + (org-wild-notifier-extra-alert-plist '(:persistent t)) + (org-wild-notifier-predicate-blacklist + '(org-wild-notifier-done-keywords-predicate))) :config (org-wild-notifier-mode +1) (defun org-wild-notify-check-at-time () (interactive) (imalison:org-at-time :fn (lambda () - (-each - (->> (funcall (org-wild-notifier--retrieve-events)) - (-map 'org-wild-notifier--check-event) - (-flatten) - (-uniq)) - 'org-wild-notifier--notify)))) + (org-wild-notifier--check-events (funcall (org-wild-notifier--retrieve-events)))))) (defun org-wild-notify-list-at-time () (interactive) (imalison:org-at-time