# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1495042039 -10800
# Node ID 8ce278ad45d879860f1ac16ffa2e96416bbdbb6d
# Parent  bb4aa0240f5abeddf8bc53060be242c6bd30e374
Added key binding to copy espeak content to kill-ring.

diff -r bb4aa0240f5a -r 8ce278ad45d8 contrib/gadict.el
--- a/contrib/gadict.el	Mon May 15 20:01:10 2017 +0300
+++ b/contrib/gadict.el	Wed May 17 20:27:19 2017 +0300
@@ -364,12 +364,21 @@
     (when (search-forward-regexp "\\[\\([^]]+\\)]")
       (kill-new (match-string 1)))))
 
+(defun gadict-copy-espeak-pronunciation (&optional headword)
+  "Copy espeak pronunciation of selected region or current word to `kill-ring'."
+  (interactive
+   (list (if (use-region-p)
+             (buffer-substring (region-beginning) (region-end))
+           (thing-at-point 'word))))
+  (kill-new (gadict-espeak-headline-line headword)))
+
 (defun gadict-setup-keymap ()
   "Setup gadict keymap."
   (define-key (current-local-map) [S-return] 'gadict-insert-translation)
   (define-key (current-local-map) [C-return] 'gadict-insert-template-in-order)
   (define-key (current-local-map) [C-S-return] 'gadict-search)
-  (define-key (current-local-map) [M-return] 'gadict-copy-pronunciation))
+  (define-key (current-local-map) [M-return] 'gadict-copy-pronunciation)
+  (define-key (current-local-map) [M-S-return] 'gadict-copy-espeak-pronunciation))
 
 ;;;###autoload
 (define-derived-mode gadict-mode fundamental-mode "gadict"