Improve/fix agenda alerts
This commit is contained in:
parent
d9546d97fe
commit
d66de1dbd3
42
init.el
42
init.el
|
|
@ -232,21 +232,14 @@
|
|||
(sound-wav-play (expand-file-name (concat user-emacs-directory "elpaca/builds/org-pomodoro/resources/bell.wav")))
|
||||
(message alert))
|
||||
|
||||
; Org timer set timer alert sound
|
||||
; Org timer custom alert
|
||||
(defun org-timer-sound-alert ()
|
||||
"Sound notification on org timer finish."
|
||||
(sound-alert "Timer done!"))
|
||||
(add-hook 'org-timer-done-hook 'org-timer-sound-alert)
|
||||
|
||||
; System notifications of org agenda items
|
||||
(use-package org-alert
|
||||
(use-package alert
|
||||
:ensure t
|
||||
:after org
|
||||
:config
|
||||
(setq org-alert-headline-regexp "TODO\\|WAITING")
|
||||
(setq org-agenda-skip-scheduled-if-done t)
|
||||
(setq org-agenda-skip-deadline-if-done t)
|
||||
|
||||
(alert-define-style 'custom-org-alert-notification
|
||||
:title "Custom Notification"
|
||||
:notifier
|
||||
|
|
@ -255,14 +248,35 @@
|
|||
(sound-alert (concat "ORG ALERT: "
|
||||
;(plist-get info :title)
|
||||
(plist-get info :message)))))
|
||||
|
||||
(setq alert-default-style 'custom-org-alert-notification)
|
||||
(org-alert-enable)
|
||||
|
||||
; Update notifications whenever the agenda is refreshed
|
||||
(add-hook 'org-finalize-agenda-hook 'org-alert-enable)
|
||||
)
|
||||
|
||||
; System notifications of org agenda items
|
||||
(use-package org-wild-notifier
|
||||
:ensure t
|
||||
:after org
|
||||
:config
|
||||
;; Notifications fire N minutes before an event
|
||||
(setq org-wild-notifier-alert-time '(1 10 30))
|
||||
;; Notification title and icon
|
||||
(setq org-wild-notifier-notification-title "Org Reminder")
|
||||
;(setq org-wild-notifier-notification-icon "/path/to/icon.png")
|
||||
|
||||
;; Alert severity: 'high, 'medium, or 'low
|
||||
(setq org-wild-notifier--alert-severity 'high)
|
||||
|
||||
;; Pass additional arguments to alert
|
||||
(setq org-wild-notifier-extra-alert-plist '(:persistent t))
|
||||
(org-wild-notifier-mode)
|
||||
)
|
||||
|
||||
; Upcoming agenda items in modeline
|
||||
(use-package org-upcoming-modeline
|
||||
:ensure t
|
||||
:after org ; if you don't want it to start until org has been loaded
|
||||
:config
|
||||
(org-upcoming-modeline-mode))
|
||||
|
||||
; Org Mode Journalling
|
||||
(use-package org-journal
|
||||
:ensure t
|
||||
|
|
|
|||
Loading…
Reference in New Issue