Renamed gadict-insert-template => gadict-insert-article.
--- a/contrib/gadict.el Sun Sep 13 02:14:16 2020 +0300
+++ b/contrib/gadict.el Mon Sep 14 18:26:54 2020 +0300
@@ -254,8 +254,8 @@
values in .dir-local.el or as -*- gadict-tr: \"...\" -*- file prelude")
(put 'gadict-tr 'safe-local-variable 'string-or-null-p)
-(defun gadict-insert-template (&optional headword)
- "Insert new article template after the current place.
+(defun gadict-insert-article (&optional headword)
+ "Insert new article after the current place.
If `gadict-espeak-enabled' is `t' pronunciation will be filled
with espeak `gadict-espeak-default-voice'."
@@ -330,11 +330,11 @@
(gadict-search-floor headword)
(recenter))
-(defun gadict-insert-template-in-order (headword)
+(defun gadict-insert-article-in-order (headword)
"Insert new article template with respect of headword order."
(interactive (list (read-string "Headword: ")))
(unless (gadict-search-floor headword)
- (gadict-insert-template headword))
+ (gadict-insert-article headword))
(activate-input-method nil)
(recenter))
@@ -348,7 +348,7 @@
(point)))
(defun gadict-insert-translation (pos)
- "Insert translation template with using value of `gadict-tr'."
+ "Insert translation template using value of `gadict-tr'."
(interactive (list (completing-read "POS: " gadict--pos nil t)))
(let ( (headword-end (gadict--find-headword-end)) )
(if (< (point) headword-end)
@@ -411,7 +411,7 @@
(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-return] 'gadict-insert-article-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-S-return] 'gadict-copy-espeak-pronunciation))