Subject: [PATCH 2/4] Support to change speech speed To: hirofumi@mail.parknet.co.jp From: OGAWA Hirofumi Date: Wed, 07 Dec 2016 07:51:47 +0900 Message-ID: References: <9a53f38b3e858474103131290.ps@mail.parknet.co.jp> In-Reply-To: <9a53f38b3e858474103131290.ps@mail.parknet.co.jp> --- google-translate-core.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff -puN google-translate-core.el~support-ttsspeed google-translate-core.el --- google-translate/google-translate-core.el~support-ttsspeed 2016-12-07 07:26:33.056793391 +0900 +++ google-translate-hirofumi/google-translate-core.el 2016-12-07 07:28:49.602369744 +0900 @@ -79,6 +79,9 @@ (defvar google-translate-listen-url "http://translate.google.com/translate_tts") +(defvar google-translate-ttsspeed "1" + "Speed (e.g. 0.24 for slow speech) for tts.") + (defun google-translate--format-query-string (query-params) "Format QUERY-PARAMS as a query string. @@ -115,7 +118,8 @@ QUERY-PARAMS must be an alist of field-v ("textlen" . ,(number-to-string (length text))) ("client" . "t") ("prev" . "input") - ("tk" . ,(google-translate--gen-tk text))))) + ("tk" . ,(google-translate--gen-tk text)) + ("ttsspeed" . ,google-translate-ttsspeed)))) (defun google-translate--http-response-body (url &optional for-test-purposes) "Retrieve URL and return the response body as a string." _