cspark
/
Emacs-Configuration-Modern
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve/fix agenda alerts

This commit is contained in:
Curt Spark 2026-03-02 12:10:14 +00:00
parent d9546d97fe
commit d66de1dbd3
1 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
init.el
View File

@ -232,21 +232,14 @@
(sound-wav-play (expand-file-name (concat user-emacs-directory "elpaca/builds/org-pomodoro/resources/bell.wav"))) (sound-wav-play (expand-file-name (concat user-emacs-directory "elpaca/builds/org-pomodoro/resources/bell.wav")))
(message alert)) (message alert))
; Org timer set timer alert sound ; Org timer custom alert
(defun org-timer-sound-alert () (defun org-timer-sound-alert ()
"Sound notification on org timer finish." "Sound notification on org timer finish."
(sound-alert "Timer done!")) (sound-alert "Timer done!"))
(add-hook 'org-timer-done-hook 'org-timer-sound-alert) (add-hook 'org-timer-done-hook 'org-timer-sound-alert)
(use-package alert
; System notifications of org agenda items
(use-package org-alert
:ensure t :ensure t
:after org
:config :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 (alert-define-style 'custom-org-alert-notification
:title "Custom Notification" :title "Custom Notification"
:notifier :notifier
@ -255,14 +248,35 @@
(sound-alert (concat "ORG ALERT: " (sound-alert (concat "ORG ALERT: "
;(plist-get info :title) ;(plist-get info :title)
(plist-get info :message))))) (plist-get info :message)))))
(setq alert-default-style 'custom-org-alert-notification) (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 ; Org Mode Journalling
(use-package org-journal (use-package org-journal
:ensure t :ensure t