When Emacs starts, my Mac now pronounces it correctly

This commit is contained in:
Howard Abrams 2023-03-15 09:21:03 -07:00
parent ff9703ce2e
commit 623aa30bc1
2 changed files with 3 additions and 3 deletions

View file

@ -35,7 +35,7 @@ Customize the variable, `beep-speech-executable'."
(let ((command (format beep-speech-executable phrase)))
(shell-command command)))
(defun beep--when-finished (phrase)
(defun beep--when-finished (phrase &optional to-speak)
"Notify us with string, PHRASE, to grab our attention.
Useful after a long process has completed, but use sparingly,
as this can be pretty distracting."
@ -43,7 +43,7 @@ as this can be pretty distracting."
(when (functionp 'alert)
(alert phrase :title "Completed"))
(beep--beep)
(beep--speak phrase))
(beep--speak (or to-speak phrase)))
(defun compile-and-notify ()
"Call `compile' and notify us when finished.

View file

@ -327,7 +327,7 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html
(use-package beep
:straight nil ; Already in the load-path
:hook (after-init . (lambda () (beep--when-finished "Emacs has started")))
:hook (after-init . (lambda () (beep--when-finished "Emacs has started." "Eemacs has started")))
:config
(dolist (func '(org-publish
org-publish-all