From 81367dea39809c522aea56e12516be3c5e18cdd4 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 Jan 2007 01:51:47 +0000 Subject: [PATCH] Translate. --- lisp/riece-ctcp.el | 35 +++++++++++++++++++---------------- lisp/riece-mcat-japanese.el | 11 +++++++++++ 2 files changed, 30 insertions(+), 16 deletions(-) diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el index 7060735..8e47be0 100644 --- a/lisp/riece-ctcp.el +++ b/lisp/riece-ctcp.el @@ -33,6 +33,7 @@ (require 'riece-highlight) (require 'riece-display) (require 'riece-debug) +(require 'riece-mcat) (defface riece-ctcp-action-face '((((class color) @@ -104,7 +105,7 @@ riece-dialogue-buffer) (concat (riece-concat-server-name - (format "CTCP VERSION from %s (%s) to %s" + (format (riece-mcat "CTCP VERSION from %s (%s) to %s") user (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) (riece-format-identity target-identity t))) @@ -127,7 +128,7 @@ riece-dialogue-buffer) (concat (riece-concat-server-name - (format "CTCP PING from %s (%s) to %s" + (format (riece-mcat "CTCP PING from %s (%s) to %s") user (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) (riece-format-identity target-identity t))) @@ -163,7 +164,7 @@ riece-dialogue-buffer) (concat (riece-concat-server-name - (format "CTCP CLIENTINFO from %s (%s) to %s" + (format (riece-mcat "CTCP CLIENTINFO from %s (%s) to %s") user (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) (riece-format-identity target-identity t))) @@ -204,7 +205,8 @@ (time (format-time-string "%c"))) (riece-send-string (format "NOTICE %s :\1TIME %s\1\r\n" user time)) - (riece-insert-change buffer (format "CTCP TIME from %s\n" user)) + (riece-insert-change buffer (format (riece-mcat "CTCP TIME from %s\n") + user)) (riece-insert-change (if (and riece-channel-buffer-mode (not (eq buffer riece-channel-buffer))) @@ -212,7 +214,7 @@ riece-dialogue-buffer) (concat (riece-concat-server-name - (format "CTCP TIME from %s (%s) to %s" + (format (riece-mcat "CTCP TIME from %s (%s) to %s") user (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) (riece-format-identity target-identity t))) @@ -254,7 +256,7 @@ (list riece-dialogue-buffer riece-others-buffer) (concat (riece-concat-server-name - (format "CTCP VERSION for %s (%s) = %s" + (format (riece-mcat "CTCP VERSION for %s (%s) = %s") (riece-prefix-nickname prefix) (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) string)) @@ -268,7 +270,7 @@ (list riece-dialogue-buffer riece-others-buffer) (concat (riece-concat-server-name - (format "CTCP PING for %s (%s) = %d sec" + (format (riece-mcat "CTCP PING for %s (%s) = %d sec") (riece-prefix-nickname prefix) (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) elapsed)) @@ -279,7 +281,7 @@ (list riece-dialogue-buffer riece-others-buffer) (concat (riece-concat-server-name - (format "CTCP CLIENTINFO for %s (%s) = %s" + (format (riece-mcat "CTCP CLIENTINFO for %s (%s) = %s") (riece-prefix-nickname prefix) (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) string)) @@ -290,7 +292,7 @@ (list riece-dialogue-buffer riece-others-buffer) (concat (riece-concat-server-name - (format "CTCP TIME for %s (%s) = %s" + (format (riece-mcat "CTCP TIME for %s (%s) = %s") (riece-prefix-nickname prefix) (riece-strip-user-at-host (riece-prefix-user-at-host prefix)) string)) @@ -299,7 +301,7 @@ (defun riece-command-ctcp-version (target) (interactive (list (riece-completing-read-identity - "Channel/User: " + (riece-mcat "Channel/User: ") (riece-get-identities-on-server (riece-current-server-name))))) (riece-send-string (format "PRIVMSG %s :\1VERSION\1\r\n" (riece-identity-prefix target)))) @@ -307,7 +309,7 @@ (defun riece-command-ctcp-ping (target) (interactive (list (riece-completing-read-identity - "Channel/User: " + (riece-mcat "Channel/User: ") (riece-get-identities-on-server (riece-current-server-name))))) (riece-send-string (format "PRIVMSG %s :\1PING\1\r\n" (riece-identity-prefix target))) @@ -316,7 +318,7 @@ (defun riece-command-ctcp-clientinfo (target) (interactive (list (riece-completing-read-identity - "Channel/User: " + (riece-mcat "Channel/User: ") (riece-get-identities-on-server (riece-current-server-name))))) (riece-send-string (format "PRIVMSG %s :\1CLIENTINFO\1\r\n" (riece-identity-prefix target)))) @@ -325,7 +327,7 @@ (interactive (list (if current-prefix-arg (riece-completing-read-identity - "Channel/User: " + (riece-mcat "Channel/User: ") (riece-get-identities-on-server (riece-current-server-name))) riece-current-channel) (let (message) @@ -333,8 +335,9 @@ (setq message (buffer-substring (point) (progn (end-of-line) (point)))) (if (equal message "") - (read-string "Action: ") - (prog1 (read-from-minibuffer "Action: " (cons message 0)) + (read-string (riece-mcat "Action: ")) + (prog1 (read-from-minibuffer (riece-mcat "Action: ") + (cons message 0)) (let ((next-line-add-newlines t)) (next-line 1))))))) (if (equal action "") @@ -363,7 +366,7 @@ (defun riece-command-ctcp-time (target) (interactive (list (riece-completing-read-identity - "Channel/User: " + (riece-mcat "Channel/User: ") (riece-get-identities-on-server (riece-current-server-name))))) (riece-send-string (format "PRIVMSG %s :\1TIME\1\r\n" (riece-identity-prefix target)))) diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el index 52fd6b3..257a0a4 100644 --- a/lisp/riece-mcat-japanese.el +++ b/lisp/riece-mcat-japanese.el @@ -50,6 +50,7 @@ ("%s will be insinuated. Continue? " . "%s は組み込まれていません。続行しますか? ") ("%s: %s users, topic: %s" . "%s: %s 人、トピック: %s\n") ("(no description)" . "(説明なし)") + ("Action: " . "アクション: ") ("Add-on %S disabled" . "アドオン %S が無効になりました") ("Add-on %S enabled" . "アドオン %S が有効になりました") ("Add-on %S is already disabled" . "アドオン %S は既に無効です") @@ -64,9 +65,19 @@ ("Already registered" . "登録済みです") ("Away message: " . "離席のメッセージ: ") ("Beginning of buffer" . "バッファの先頭です") + ("CTCP CLIENTINFO for %s (%s) = %s" . "%s (%s) の CTCP CLIENTINFO = %s") + ("CTCP CLIENTINFO from %s (%s) to %s" . "%s (%s) が %s に CTCP CLIENTINFO") + ("CTCP PING for %s (%s) = %d sec" . "%s (%s) の CTCP PING = %d 秒") + ("CTCP PING from %s (%s) to %s" . "%s (%s) が %s に CTCP PING") + ("CTCP TIME for %s (%s) = %s" . "%s (%s) の CTCP TIME = %s") + ("CTCP TIME from %s\n" . "%s から CTCP TIME\n") + ("CTCP TIME from %s (%s) to %s" . "%s (%s) が %s に CTCP TIME") + ("CTCP VERSION for %s (%s) = %s" . "%s (%s) の CTCP VERSION = %s") + ("CTCP VERSION from %s (%s) to %s" . "%s (%s) が %s に CTCP VERSION") ("Can't find completion for \"%s\"" . "\"%s\" に対する補完が見つかりません") ("Change layout: " . "変更後のレイアウト: ") ("Change mode for channel/user: " . "モードを変更するチャンネルまたはユーザ: ") + ("Channel/User: " . "チャンネルまたはユーザ: ") ("Close server: " . "接続を閉じるサーバ: ") ("Command to execute on \"%s\":" . "\"%s\" で実行するコマンド: ") ("Connecting to %s..." . "%s に接続しています...") -- 1.7.10.4