refactor: translate user-facing messages to English

This commit is contained in:
kj
2026-08-07 13:16:22 -03:00
parent c4a2dff9df
commit 0e5f78ef0f

View File

@@ -228,7 +228,7 @@ if they exist."
(push f seen) (push f seen)
(condition-case nil (condition-case nil
(gptel-context-add-file f) (gptel-context-add-file f)
(error (message "kj-gptel: no se pudo añadir AGENTS.md %s" f))))))) (error (message "kj-gptel: could not add AGENTS.md %s" f)))))))
(defun kj-gptel--agent-buffer-setup () (defun kj-gptel--agent-buffer-setup ()
"Load AGENTS.md rules when a gptel-agent session buffer is created. "Load AGENTS.md rules when a gptel-agent session buffer is created.
@@ -269,7 +269,7 @@ that gptel-agent uses for that button. DATA is ignored (compatibility
with `buttonize')." with `buttonize')."
(interactive) (interactive)
(unless (bound-and-true-p gptel-mode) (unless (bound-and-true-p gptel-mode)
(user-error "No estás en una sesión gptel")) (user-error "You are not in a gptel session"))
(let ((action (kj-gptel--header-button-action))) (let ((action (kj-gptel--header-button-action)))
(if action (if action
(funcall action nil) ; exactamente lo que hace el clic (funcall action nil) ; exactamente lo que hace el clic
@@ -277,7 +277,7 @@ with `buttonize')."
(gptel--apply-preset (gptel--apply-preset
(if (eq gptel--preset 'gptel-plan) 'gptel-agent 'gptel-plan) (if (eq gptel--preset 'gptel-plan) 'gptel-agent 'gptel-plan)
(lambda (sym val) (set (make-local-variable sym) val))))) (lambda (sym val) (set (make-local-variable sym) val)))))
(message "Modo %s activado" (if (eq gptel--preset 'gptel-plan) "plan" "build"))) (message "Mode %s activated" (if (eq gptel--preset 'gptel-plan) "plan" "build")))
(defun kj-gptel--eglot-start () (defun kj-gptel--eglot-start ()
"Start eglot immediately for the current buffer if it is not managed. "Start eglot immediately for the current buffer if it is not managed.
@@ -287,7 +287,7 @@ Unlike `eglot-ensure', this connects right away instead of waiting for a
(unless eglot--managed-mode (unless eglot--managed-mode
(condition-case err (condition-case err
(apply #'eglot--connect (eglot--guess-contact)) (apply #'eglot--connect (eglot--guess-contact))
(error (message "kj-gptel: error iniciando eglot: %s" (error (message "kj-gptel: error starting eglot: %s"
(error-message-string err)))))) (error-message-string err))))))
(defun kj-gptel--lsp-buffer (&optional path) (defun kj-gptel--lsp-buffer (&optional path)
@@ -436,7 +436,7 @@ plans without adding extra files to the project directory."
"Generate a PR-style summary of the current gptel session (prompt summary.txt)." "Generate a PR-style summary of the current gptel session (prompt summary.txt)."
(interactive) (interactive)
(unless (bound-and-true-p gptel-mode) (unless (bound-and-true-p gptel-mode)
(user-error "El buffer actual no es una sesión gptel")) (user-error "You are not in a gptel session"))
(let* ((buf (current-buffer)) (let* ((buf (current-buffer))
(transcript (buffer-substring-no-properties (point-min) (point-max))) (transcript (buffer-substring-no-properties (point-min) (point-max)))
(out (get-buffer-create "*opencode-summary*"))) (out (get-buffer-create "*opencode-summary*")))
@@ -452,13 +452,13 @@ plans without adding extra files to the project directory."
:stream t :stream t
:system (kj-gptel--read-prompt "summary.txt") :system (kj-gptel--read-prompt "summary.txt")
:callback (lambda (_info &rest _) :callback (lambda (_info &rest _)
(message "Resumen generado en *opencode-summary*"))))) (message "Summary generated in *opencode-summary*")))))
(defun kj-gptel-opencode-title () (defun kj-gptel-opencode-title ()
"Generate a title for the current gptel session (prompt title.txt)." "Generate a title for the current gptel session (prompt title.txt)."
(interactive) (interactive)
(unless (bound-and-true-p gptel-mode) (unless (bound-and-true-p gptel-mode)
(user-error "El buffer actual no es una sesión gptel")) (user-error "You are not in a gptel session"))
(let* ((buf (current-buffer)) (let* ((buf (current-buffer))
(transcript (buffer-substring-no-properties (point-min) (point-max))) (transcript (buffer-substring-no-properties (point-min) (point-max)))
(tmp (generate-new-buffer " *gptel-title*"))) (tmp (generate-new-buffer " *gptel-title*")))
@@ -477,7 +477,7 @@ plans without adding extra files to the project directory."
(kill-buffer tmp) (kill-buffer tmp)
(with-current-buffer buf (with-current-buffer buf
(rename-buffer (format "*gptel-agent:%s*" title) t)) (rename-buffer (format "*gptel-agent:%s*" title) t))
(message "Título: %s" title)))))) (message "Title: %s" title))))))
:custom :custom
(kj-gptel-opencode-small-model nil) (kj-gptel-opencode-small-model nil)
:bind :bind