# HG changeset patch # User Oleksandr Gavenko # Date 1600097214 -10800 # Node ID 310253d08e04856a97eab3a3830b872690c7f395 # Parent 14b40e4e88ef074e40db8f5d182cecb087e7795b Renamed gadict-insert-template => gadict-insert-article. diff -r 14b40e4e88ef -r 310253d08e04 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))