When Emacs starts, my Mac now pronounces it correctly
This commit is contained in:
parent
ff9703ce2e
commit
623aa30bc1
2 changed files with 3 additions and 3 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue