Timer alert noise
This commit is contained in:
parent
c3112365fe
commit
9d4b1dc6f2
7
init.el
7
init.el
|
|
@ -225,9 +225,16 @@
|
||||||
(setq org-pomodoro-audio-player "mpv")
|
(setq org-pomodoro-audio-player "mpv")
|
||||||
)
|
)
|
||||||
(defun sound-alert (alert)
|
(defun sound-alert (alert)
|
||||||
|
"Play a sound notification and show message ALERT."
|
||||||
(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
|
||||||
|
(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
|
; System notifications of org agenda items
|
||||||
(use-package org-alert
|
(use-package org-alert
|
||||||
:ensure t
|
:ensure t
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue