forked from colonelpanic/dotfiles
[Emacs] Use org-wild-notifier
This commit is contained in:
parent
6f196c8c86
commit
3eed03beb7
@ -184,6 +184,14 @@ We're going to use this to write separate parts of our config to different secti
|
||||
(org-priority-down)))
|
||||
nil
|
||||
'agenda))
|
||||
|
||||
(cl-defun imalison:org-at-time (&optional time &key (fn 'org-wild-notifier-check))
|
||||
(interactive)
|
||||
(setq time (or time (time-convert (encode-time (parse-time-string (org-read-date))) 'list)))
|
||||
(message "%s" time)
|
||||
(flet
|
||||
((current-time (&rest args) time))
|
||||
(funcall fn)))
|
||||
#+end_src
|
||||
** Miscellaneous
|
||||
#+begin_src emacs-lisp :tangle org-config-config.el
|
||||
@ -838,38 +846,27 @@ alphanumeric characters only."
|
||||
(org-roam-ui-update-on-save t)
|
||||
(org-roam-ui-open-on-start nil))
|
||||
#+end_src
|
||||
** org-notify
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package org-notify
|
||||
** org-wild-notifier
|
||||
#+begin_src emacs-lisp
|
||||
(use-package org-wild-notifier
|
||||
:after org
|
||||
:custom
|
||||
((org-wild-notifier-keyword-whitelist nil)
|
||||
(org-wild-notifier-tags-blacklist '("nonotify")))
|
||||
:config
|
||||
(progn
|
||||
|
||||
(setq org-show-notification-handler 'org-notify-action-notify)
|
||||
|
||||
(org-notify-add 'default
|
||||
'(:time "0s"
|
||||
:period "2m" :duration 60))
|
||||
(org-notify-add 'urgent-second '(:time "3m" :actions (-notify/window -ding)
|
||||
:period "15s" :duration 10))
|
||||
(org-notify-add 'minute '(:time "5m" :actions -notify/window
|
||||
:period "100s" :duration 70))
|
||||
(org-notify-add '12hours
|
||||
'(:time "3m" :actions (-notify/window -ding)
|
||||
:period "15s" :duration 10)
|
||||
'(:time "100m" :actions -notify/window
|
||||
:period "2m" :duration 60)
|
||||
'(:time "12h" :actions -notify/window :audible nil
|
||||
:period "10m" :duration 200))
|
||||
(org-notify-add '5days
|
||||
'(:time "100m" :actions -notify/window
|
||||
:period "2m" :duration 60)
|
||||
'(:time "2d" :actions -notify/window
|
||||
:period "15m" :duration 100)
|
||||
'(:time "5d" :actions -notify/window
|
||||
:period "2h" :duration 200))
|
||||
(org-notify-start 10)))
|
||||
#+END_SRC
|
||||
(org-wild-notifier-mode +1)
|
||||
(defun org-wild-notify-check-at-time ()
|
||||
(interactive)
|
||||
(imalison:org-at-time
|
||||
nil
|
||||
:fn (lambda ()
|
||||
(-each
|
||||
(->> (funcall (org-wild-notifier--retrieve-events))
|
||||
(-map 'org-wild-notifier--check-event)
|
||||
(-flatten)
|
||||
(-uniq))
|
||||
'org-wild-notifier--notify)))))
|
||||
#+end_src
|
||||
** org-reveal
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package ox-reveal
|
||||
|
Loading…
Reference in New Issue
Block a user