howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug in "beep" when using recent Linux distribution

Browse source
This commit is contained in:
Howard Abrams 2026-02-09 22:35:39 -08:00
parent c5b6b5c54d
commit 02fb306fbe
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
elisp/beep.el
View file

@ -15,16 +15,21 @@
;;; Code: ;;; Code:
(defvar beep-alert-sound-file (defvar beep-alert-sound-file
(expand-file-name "~/other/hamacs/beep-notify.wav") (expand-file-name "~/src/hamacs/beep-notify.wav")
"A WAV or AU file used at the completion of a function.") "A WAV or AU file used at the completion of a function.")
;; My replacement in case we can't play internal sounds: ;; My replacement in case we can't play internal sounds:
(defun beep-beep (&rest _) (defun beep-beep (&rest _)
"Play a default notification sound file. "Play a default notification sound file.
Customize the variable, `beep-alert-sound-file' to adjust the sound." Customize the variable, `beep-alert-sound-file' to adjust the sound."
(if (fboundp 'play-sound-internal) (condition-case err
(play-sound-file beep-alert-sound-file) (play-sound-file beep-alert-sound-file)
(call-process-shell-command (format "afplay %s &" beep-alert-sound-file) nil 0))) (error
(cond
((= (call-process-shell-command "type aplay") 0)
(call-process-shell-command (format "aplay %s &" beep-alert-sound-file) nil 0))
((= (call-process-shell-command "type afplay") 0)
(call-process-shell-command (format "afplay %s &" beep-alert-sound-file) nil 0))))))
(defvar beep-speech-executable "say %s" (defvar beep-speech-executable "say %s"
"An OS-dependent shell string to speak. Replaces `%s' with a phrase.") "An OS-dependent shell string to speak. Replaces `%s' with a phrase.")