Renamed gadict-insert-template => gadict-insert-article.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Mon, 14 Sep 2020 18:26:54 +0300
changeset 1238 310253d08e04
parent 1237 14b40e4e88ef
child 1239 eebaa469434b
Renamed gadict-insert-template => gadict-insert-article.
contrib/gadict.el
--- 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))