equal
deleted
inserted
replaced
280 (match-string 1) |
280 (match-string 1) |
281 ))) |
281 ))) |
282 |
282 |
283 (defvar gadict-espeak-program "espeak") |
283 (defvar gadict-espeak-program "espeak") |
284 (defvar gadict-espeak-program-ipa-args "-q --ipa=2") |
284 (defvar gadict-espeak-program-ipa-args "-q --ipa=2") |
|
285 ;; "en" "en-gb" "en-us" "en-sc" |
285 (defvar gadict-espeak-voices-list '("en-gb" "en-us") |
286 (defvar gadict-espeak-voices-list '("en-gb" "en-us") |
286 "What voices to show. Look to 'espeak --voices' for full list.") |
287 "What voices to show. Look to 'espeak --voices' for full list.") |
287 |
288 |
288 (defun gadict-espeak-ipa (str &optional voice) |
289 (defun gadict-espeak-ipa (str &optional voice) |
289 (gadict--trim |
290 (gadict--trim |
307 |
308 |
308 (defvar gadict-espeak-ipa-headword nil) |
309 (defvar gadict-espeak-ipa-headword nil) |
309 |
310 |
310 (defun gadict-espeak-ipa-display () |
311 (defun gadict-espeak-ipa-display () |
311 (when (eq major-mode 'gadict-mode) |
312 (when (eq major-mode 'gadict-mode) |
312 (let ( (headword (gadict-nearest-headword)) ) |
313 (let ( (headword (condition-case nil (gadict-nearest-headword) (error nil))) ) |
313 (unless (eq headword gadict-espeak-ipa-headword) |
314 (unless (eq headword gadict-espeak-ipa-headword) |
314 (setq gadict-espeak-ipa-headword headword) |
315 (setq gadict-espeak-ipa-headword headword) |
315 (setq header-line-format (if headword (gadict-espeak-ipa-line headword) nil)) |
316 (setq header-line-format (if headword (gadict-espeak-ipa-line headword) nil)) |
316 (force-window-update))))) |
317 (force-window-update))))) |
317 |
318 |