From 9342b6e56f5a5481203a99d95ef442ae50f14f83 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Mon, 15 Jul 2013 13:34:18 +0200 Subject: [PATCH] emacs: Added speak function --- emacs.d/init-functions.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/emacs.d/init-functions.el b/emacs.d/init-functions.el index c15b27248..09ffe1777 100644 --- a/emacs.d/init-functions.el +++ b/emacs.d/init-functions.el @@ -73,6 +73,10 @@ (dotimes (_ (- 80 col (length prefix) (length postfix))) (insert "u")) (insert postfix))) +(defun speak (m &optional voice) + (shell-command (if 'voice (concat "say " m) + (concat "say -v " voice " " m)))) + ;; Reconnect rcirc (eval-after-load 'rcirc '(defun-rcirc-command reconnect (arg)