From 1202197e5b1206f663cc1acfe703d5cba9db1581 Mon Sep 17 00:00:00 2001 From: Anh T Nguyen Date: Mon, 14 Mar 2022 21:06:17 +0700 Subject: [PATCH] add option to disable ticking sound --- pomm.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/pomm.el b/pomm.el index d192f15..cda9c71 100644 --- a/pomm.el +++ b/pomm.el @@ -161,6 +161,11 @@ a particular event." :group 'pomm :type 'boolean) +(defcustom pomm-audio-tick-enabled nil + "Whether to play ticking sound." + :group 'pomm + :type 'boolean) + (defun pomm--get-sound-file-path (name) "Get path to the sound resource NAME. @@ -327,7 +332,8 @@ which can be played by `pomm-audio-player-executable'." (unless pomm-audio-player-executable (error "No audio player executable! Set 'pomm-audio-player-executable'") (setq pomm-audio-enabled nil)) - (when-let (sound (alist-get kind pomm-audio-files)) + (when-let ((play-sound (or (not (eq 'tick kind)) pomm-audio-tick-enabled)) + (sound (alist-get kind pomm-audio-files))) (start-process "pomm-audio-player" nil