From dbf336c034760cde4451267f33642f67ce8245f5 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 26 Apr 2026 19:53:12 +0200 Subject: [PATCH] update google-translate --- .../google-translate-20260419.134/README-elpa | 41 +++++++++++++++++ .../google-translate-autoloads.el | 32 +++++++------- .../google-translate-backend.el | 0 .../google-translate-core-ui.el | 44 +++++++++++++++++-- .../google-translate-core.el | 0 .../google-translate-default-ui.el | 0 .../google-translate-pkg.el | 6 +-- .../google-translate-smooth-ui.el | 0 .../google-translate.el | 4 +- 9 files changed, 102 insertions(+), 25 deletions(-) create mode 100644 elpa/google-translate-20260419.134/README-elpa rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-autoloads.el (88%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-backend.el (100%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-core-ui.el (95%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-core.el (100%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-default-ui.el (100%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-pkg.el (72%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate-smooth-ui.el (100%) rename elpa/{google-translate-20250115.609 => google-translate-20260419.134}/google-translate.el (97%) diff --git a/elpa/google-translate-20260419.134/README-elpa b/elpa/google-translate-20260419.134/README-elpa new file mode 100644 index 00000000..c662befa --- /dev/null +++ b/elpa/google-translate-20260419.134/README-elpa @@ -0,0 +1,41 @@ +Installation: + +From MELPA or Marmalade. + +Just run `M-x package-install RET google-translate RET` + +Manual installation. + +Assuming that the file `google-translate.el' and other files which +relates to this package is somewhere on the load path, add the +following lines to your `.emacs' file: + +(require 'google-translate) +(require 'google-translate-default-ui) +(global-set-key "\C-ct" 'google-translate-at-point) +(global-set-key "\C-cT" 'google-translate-query-translate) + +or + +(require 'google-translate) +(require 'google-translate-smooth-ui) +(global-set-key "\C-ct" 'google-translate-smooth-translate) + +Change the key bindings to your liking. + +The difference between these configurations is in UI which will be +used: Default UI or Smooth UI. + +Please read the source of `google-translate-default-ui.el' and +`google-translate-smooth-ui.el' for more details. + +Customization: + +Variables which are available for customization are depends on UI +package which is selected for the google-translate +package. google-translate-default-ui - is UI which is selected by +default. It loads by default and is available right after +google-translate installation and its initialization. Please read +documentation for the `google-translate-core-ui.el' and +`google-translate-default-ui.el' packages for more info about +customization. diff --git a/elpa/google-translate-20250115.609/google-translate-autoloads.el b/elpa/google-translate-20260419.134/google-translate-autoloads.el similarity index 88% rename from elpa/google-translate-20250115.609/google-translate-autoloads.el rename to elpa/google-translate-20260419.134/google-translate-autoloads.el index 7ab1b3dc..53a95ea1 100644 --- a/elpa/google-translate-20250115.609/google-translate-autoloads.el +++ b/elpa/google-translate-20260419.134/google-translate-autoloads.el @@ -26,8 +26,8 @@ ;;; Generated autoloads from google-translate-default-ui.el -(autoload 'google-translate-query-translate "google-translate-default-ui" "\ -Interactively translate text with Google Translate. +(autoload 'google-translate-query-translate "google-translate-default-ui" +"Interactively translate text with Google Translate. Query a text (a word or a phrase), and pop up a buffer named *Google Translate* displaying available translations of the text. @@ -52,8 +52,8 @@ source language prompt is considered as an instruction for Google Translate to detect the source language. (fn &optional OVERRIDE-P)" t) -(autoload 'google-translate-query-translate-reverse "google-translate-default-ui" "\ -Like `google-translate-query-translate', but performs translation +(autoload 'google-translate-query-translate-reverse "google-translate-default-ui" +"Like `google-translate-query-translate', but performs translation in the reverse direction. The value of the variable `google-translate-default-source-language' @@ -65,30 +65,30 @@ In particular, when both variables are set, translation is performed in the reverse direction. (fn &optional OVERRIDE-P)" t) -(autoload 'google-translate-at-point "google-translate-default-ui" "\ -Translate the word at point or the words in the active region. +(autoload 'google-translate-at-point "google-translate-default-ui" +"Translate the word at point or the words in the active region. For the meaning of OVERRIDE-P, see `google-translate-query-translate'. (fn &optional OVERRIDE-P)" t) -(autoload 'google-translate-at-point-reverse "google-translate-default-ui" "\ -Like `google-translate-at-point', but performs translation in the +(autoload 'google-translate-at-point-reverse "google-translate-default-ui" +"Like `google-translate-at-point', but performs translation in the reverse direction. (fn &optional OVERRIDE-P)" t) -(autoload 'google-translate-buffer "google-translate-default-ui" "\ -Translate current buffer. +(autoload 'google-translate-buffer "google-translate-default-ui" +"Translate current buffer. For the meaning of OVERRIDE-P, see `google-translate-query-translate'. (fn &optional OVERRIDE-P REVERSE-P)" t) -(autoload 'google-translate-paragraphs-overlay "google-translate-default-ui" "\ -Translate current buffer with paragraph by paragraph and SHOW results in overlay below paragraph. +(autoload 'google-translate-paragraphs-overlay "google-translate-default-ui" +"Translate current buffer with paragraph by paragraph and SHOW results in overlay below paragraph. This command also specificly support org-mode. (fn &optional OVERRIDE-P REVERSE-P)" t) -(autoload 'google-translate-paragraphs-insert "google-translate-default-ui" "\ -Translate current buffer with paragraph by paragraph and INSERT results below paragraph. +(autoload 'google-translate-paragraphs-insert "google-translate-default-ui" +"Translate current buffer with paragraph by paragraph and INSERT results below paragraph. This command does NOT support document format like org-mode. (fn &optional OVERRIDE-P REVERSE-P)" t) @@ -97,8 +97,8 @@ This command does NOT support document format like org-mode. ;;; Generated autoloads from google-translate-smooth-ui.el -(autoload 'google-translate-smooth-translate "google-translate-smooth-ui" "\ -Translate a text using translation directions. +(autoload 'google-translate-smooth-translate "google-translate-smooth-ui" +"Translate a text using translation directions. Make a prompt in minibuffer for a text to translate. Default text is word at point. diff --git a/elpa/google-translate-20250115.609/google-translate-backend.el b/elpa/google-translate-20260419.134/google-translate-backend.el similarity index 100% rename from elpa/google-translate-20250115.609/google-translate-backend.el rename to elpa/google-translate-20260419.134/google-translate-backend.el diff --git a/elpa/google-translate-20250115.609/google-translate-core-ui.el b/elpa/google-translate-20260419.134/google-translate-core-ui.el similarity index 95% rename from elpa/google-translate-20250115.609/google-translate-core-ui.el rename to elpa/google-translate-20260419.134/google-translate-core-ui.el index 9b40245f..9555e5d0 100644 --- a/elpa/google-translate-20250115.609/google-translate-core-ui.el +++ b/elpa/google-translate-20260419.134/google-translate-core-ui.el @@ -1,11 +1,11 @@ -;;; google-translate-core-ui.el --- The google translate core UI +;;; google-translate-core-ui.el --- The google translate core UI -*- lexical-binding: t; -*- ;; Copyright (C) 2012 Oleksandr Manzyuk ;; Author: Oleksandr Manzyuk ;; Maintainer: Andrey Tykhonov ;; URL: https://github.com/atykhonov/google-translate -;; Package-Requires: ((emacs "24.3") (popup "0.5.8")) +;; Package-Requires: ((emacs "24.3")) ;; Keywords: convenience ;; Contributors: @@ -169,8 +169,6 @@ (eval-when-compile (require 'cl-lib)) (require 'google-translate-core) -(require 'ido) -(require 'popup) (require 'color) (require 'facemenu) @@ -329,6 +327,7 @@ You can use any other suitable program." - If it is `nil', output to temporary pop up buffer (default). - `echo-area': output to the Echo Area. +- `posframe': output to the child frame using `posframe' package. - `popup': output to the popup tooltip using `popup' package. - `kill-ring': the output will be added in `kill-ring'. - `current-buffer': the output will be inserted to current buffer. @@ -338,6 +337,7 @@ You can use any other suitable program." :group 'google-translate-core-ui :type '(repeat (choice (const :tag "temporary popup buffer" nil) (const :tag "Echo Area" echo-area) + (const :tag "posframe (a child-frame)" posframe) (const :tag "popup tooltip using popup.el" popup) (const :tag "kill-ring" kill-ring) (const :tag "current buffer" current-buffer) @@ -407,6 +407,10 @@ translation) gets focus.") "Face used to display button \"Listen\"." :group 'google-translate-core-ui) +(defface google-translate-posframe-face + '((t (:inherit tooltip))) + "Face used to display `posframe' child frame.") + (defvar google-translate-input-method-auto-toggling nil "When t, the current source language is compared. @@ -714,6 +718,8 @@ At last will save result translation to `google-translate-result-translation'." (google-translate-buffer-output-translation gtos)) ((equal output-destination 'echo-area) (google-translate-echo-area-output-translation gtos)) + ((equal output-destination 'posframe) + (google-translate-posframe-output-translation gtos)) ((equal output-destination 'popup) (google-translate-popup-output-translation gtos)) ((equal output-destination 'kill-ring) @@ -736,6 +742,35 @@ At last will save result translation to `google-translate-result-translation'." (when google-translate-translation-to-kill-ring (kill-new google-translate-result-translation)))))) +(defun google-translate-posframe-output-translation (gtos) + "Output translation to the posframe tooltip using `posframe' +package." + (require 'posframe) + (let ((text + (with-temp-buffer + (google-translate-insert-translation gtos) + (google-translate--trim-string + (buffer-substring (point-min) (point-max))))) + (cleanup-hook nil)) + (with-current-buffer (get-buffer-create " *google-translate-posframe*") + (erase-buffer) + (insert text)) + (posframe-show " *google-translate-posframe*" + :position (point) + :internal-border-width 10 + ;; Don't use `:foreground-color', the package must color + ;; the text itself, otherwise it may break + ;; `google-translate-phonetic-face' and etc. + :background-color (face-background 'google-translate-posframe-face nil t) + ) + (when (use-region-p) + (deactivate-mark)) + (setq cleanup-hook + (lambda () + (posframe-delete " *google-translate-posframe*") + (remove-hook 'pre-command-hook cleanup-hook))) + (add-hook 'pre-command-hook cleanup-hook))) + (defun google-translate-popup-output-translation (gtos) "Output translation to the popup tooltip using `popup' package." @@ -909,6 +944,7 @@ The input is guaranteed to be non-null." If `google-translate-enable-ido-completion' is non-NIL, use ido-style completion." + (require 'ido) (funcall (if google-translate-enable-ido-completion #'ido-completing-read #'completing-read) diff --git a/elpa/google-translate-20250115.609/google-translate-core.el b/elpa/google-translate-20260419.134/google-translate-core.el similarity index 100% rename from elpa/google-translate-20250115.609/google-translate-core.el rename to elpa/google-translate-20260419.134/google-translate-core.el diff --git a/elpa/google-translate-20250115.609/google-translate-default-ui.el b/elpa/google-translate-20260419.134/google-translate-default-ui.el similarity index 100% rename from elpa/google-translate-20250115.609/google-translate-default-ui.el rename to elpa/google-translate-20260419.134/google-translate-default-ui.el diff --git a/elpa/google-translate-20250115.609/google-translate-pkg.el b/elpa/google-translate-20260419.134/google-translate-pkg.el similarity index 72% rename from elpa/google-translate-20250115.609/google-translate-pkg.el rename to elpa/google-translate-20260419.134/google-translate-pkg.el index 3e9d9eb2..24f138b1 100644 --- a/elpa/google-translate-20250115.609/google-translate-pkg.el +++ b/elpa/google-translate-20260419.134/google-translate-pkg.el @@ -1,11 +1,11 @@ ;; -*- no-byte-compile: t; lexical-binding: nil -*- -(define-package "google-translate" "20250115.609" +(define-package "google-translate" "20260419.134" "Emacs interface to Google Translate." '((emacs "24.3") (popup "0.5.8")) :url "https://github.com/atykhonov/google-translate" - :commit "e84599df7c70870b33dd6c902b527d7f78310815" - :revdesc "e84599df7c70" + :commit "47c5719b7dd51a37a6ad270489738187a436d920" + :revdesc "47c5719b7dd5" :keywords '("convenience") :authors '(("Oleksandr Manzyuk" . "manzyuk@gmail.com")) :maintainers '(("Andrey Tykhonov" . "atykhonov@gmail.com"))) diff --git a/elpa/google-translate-20250115.609/google-translate-smooth-ui.el b/elpa/google-translate-20260419.134/google-translate-smooth-ui.el similarity index 100% rename from elpa/google-translate-20250115.609/google-translate-smooth-ui.el rename to elpa/google-translate-20260419.134/google-translate-smooth-ui.el diff --git a/elpa/google-translate-20250115.609/google-translate.el b/elpa/google-translate-20260419.134/google-translate.el similarity index 97% rename from elpa/google-translate-20250115.609/google-translate.el rename to elpa/google-translate-20260419.134/google-translate.el index 8bb88863..c3d277a2 100644 --- a/elpa/google-translate-20250115.609/google-translate.el +++ b/elpa/google-translate-20260419.134/google-translate.el @@ -6,8 +6,8 @@ ;; Maintainer: Andrey Tykhonov ;; URL: https://github.com/atykhonov/google-translate ;; Package-Requires: ((emacs "24.3") (popup "0.5.8")) -;; Package-Version: 20250115.609 -;; Package-Revision: e84599df7c70 +;; Package-Version: 20260419.134 +;; Package-Revision: 47c5719b7dd5 ;; Keywords: convenience ;; Contributors: -- 2.47.3