equal
deleted
inserted
replaced
40 |
40 |
41 |
41 |
42 |
42 |
43 (defun gadict--espeak-cleanup (s) |
43 (defun gadict--espeak-cleanup (s) |
44 "Cleanup espeak IPA output." |
44 "Cleanup espeak IPA output." |
45 (replace-regexp-in-string "t$(O*h(B" "$,1$G(B" (replace-regexp-in-string "[\x200D]" "" (gadict--trim s)))) |
45 (mapc (lambda (fn) (setq s (funcall fn s))) |
|
46 (list |
|
47 ;; UTF symbol between t$(O*h(B to make ligature. |
|
48 (lambda (str) (replace-regexp-in-string "[\x200D]" "" str)) |
|
49 (lambda (str) (replace-regexp-in-string "t$(O*h(B" "$,1$G(B" str)) |
|
50 #'gadict--trim)) |
|
51 s) |
46 |
52 |
47 (defvar gadict-espeak-enabled nil |
53 (defvar gadict-espeak-enabled nil |
48 "Is espeak used.") |
54 "Is espeak used.") |
49 |
55 |
50 (defvar gadict-espeak-program "espeak") |
56 (defvar gadict-espeak-program "espeak") |