mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

emacs: Added speak function

Browse source
This commit is contained in:
Vincent Ambo 2013-07-15 13:34:18 +02:00
parent 23806edd3e
commit 9342b6e56f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs.d/init-functions.el
View file

@ -73,6 +73,10 @@
(dotimes (_ (- 80 col (length prefix) (length postfix))) (insert "u")) (dotimes (_ (- 80 col (length prefix) (length postfix))) (insert "u"))
(insert postfix))) (insert postfix)))
(defun speak (m &optional voice)
(shell-command (if 'voice (concat "say " m)
(concat "say -v " voice " " m))))
;; Reconnect rcirc ;; Reconnect rcirc
(eval-after-load 'rcirc (eval-after-load 'rcirc
'(defun-rcirc-command reconnect (arg) '(defun-rcirc-command reconnect (arg)