equal
deleted
inserted
replaced
252 (defvar-local gadict-tr nil |
252 (defvar-local gadict-tr nil |
253 "Translation markers as string separated by comma. Define own |
253 "Translation markers as string separated by comma. Define own |
254 values in .dir-local.el or as -*- gadict-tr: \"...\" -*- file prelude") |
254 values in .dir-local.el or as -*- gadict-tr: \"...\" -*- file prelude") |
255 (put 'gadict-tr 'safe-local-variable 'string-or-null-p) |
255 (put 'gadict-tr 'safe-local-variable 'string-or-null-p) |
256 |
256 |
257 (defun gadict-insert-article (&optional headword) |
257 (defun gadict-insert-article (headword) |
258 "Insert new article after the current place. |
258 "Insert new article after the current place. |
259 |
259 |
260 If `gadict-espeak-enabled' is `t' pronunciation will be filled |
260 If `gadict-espeak-enabled' is `t' pronunciation will be filled |
261 with espeak `gadict-espeak-default-voice'." |
261 with espeak `gadict-espeak-default-voice'." |
262 (interactive) |
262 (interactive) |
276 (split-string gadict-tr ",")) |
276 (split-string gadict-tr ",")) |
277 (insert-char ?\n) |
277 (insert-char ?\n) |
278 (backward-char) |
278 (backward-char) |
279 (re-search-backward "^$")) |
279 (re-search-backward "^$")) |
280 (backward-char) |
280 (backward-char) |
281 (when headword |
281 (insert headword) |
282 (insert headword) |
282 (insert "\n [") |
283 (insert "\n [") |
283 (if gadict-espeak-enabled |
284 (if gadict-espeak-enabled |
284 (progn |
285 (progn |
285 (insert (gadict-espeak-ipa headword gadict-espeak-default-voice)) |
286 (insert (gadict-espeak-ipa headword gadict-espeak-default-voice)) |
286 (insert "]") |
287 (insert "]") |
287 (when gadict-tr |
288 (when gadict-tr |
288 (search-forward ": "))) |
289 (search-forward ": "))) |
289 (insert "]") |
290 (insert "]") |
290 (backward-char))) |
291 (backward-char)))) |
|
292 |
291 |
293 (defun gadict-search-floor (headword) |
292 (defun gadict-search-floor (headword) |
294 "Move to HEADWORD definition or place on posiiton for new corresponding |
293 "Move to HEADWORD definition or place on posiiton for new corresponding |
295 definition. Check for headwords ordering during search. |
294 definition. Check for headwords ordering during search. |
296 |
295 |