Translate.
authorDaiki Ueno <ueno@unixuser.org>
Sun, 21 Jan 2007 04:24:46 +0000 (04:24 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sun, 21 Jan 2007 04:24:46 +0000 (04:24 +0000)
lisp/riece-handle.el
lisp/riece-mcat-japanese.el

index e3cc584..87a602a 100644 (file)
             (buffer (riece-channel-buffer channel-identity)))
        (riece-insert-change
         buffer
-        (format "%s (%s) has joined %s\n"
+        (format (riece-mcat "%s (%s) has joined %s\n")
                 (riece-format-identity user-identity t)
                 (riece-user-get-user-at-host user)
                 (riece-format-identity channel-identity t)))
           riece-dialogue-buffer)
         (concat
          (riece-concat-server-name
-          (format "%s (%s) has joined %s"
+          (format (riece-mcat "%s (%s) has joined %s")
                   (riece-format-identity user-identity t)
                   (riece-user-get-user-at-host user)
                   (riece-format-identity channel-identity t)))
         buffer
         (concat
          (riece-concat-message
-          (format "%s has left %s"
+          (format (riece-mcat "%s has left %s")
                   (riece-format-identity user-identity t)
                   (riece-format-identity channel-identity t))
           message)
         (concat
          (riece-concat-server-name
           (riece-concat-message
-           (format "%s has left %s"
+           (format (riece-mcat "%s has left %s")
                    (riece-format-identity user-identity t)
                    (riece-format-identity channel-identity t))
            message))
        buffer
        (concat
        (riece-concat-message
-        (format "%s kicked %s out from %s"
+        (format (riece-mcat "%s kicked %s out from %s")
                 (riece-format-identity kicker-identity t)
                 (riece-format-identity user-identity t)
                 (riece-format-identity channel-identity t))
        (concat
        (riece-concat-server-name
         (riece-concat-message
-         (format "%s kicked %s out from %s\n"
+         (format (riece-mcat "%s kicked %s out from %s\n")
                 (riece-format-identity kicker-identity t)
                 (riece-format-identity user-identity t)
                 (riece-format-identity channel-identity t))
        buffers
        (concat
        (riece-concat-message
-        (format "%s has left IRC"
+        (format (riece-mcat "%s has left IRC")
                 (riece-format-identity user-identity t))
         message)
        "\n"))
        (concat
        (riece-concat-server-name
         (riece-concat-message
-         (format "%s has left IRC"
+         (format (riece-mcat "%s has left IRC")
                  (riece-format-identity user-identity t))
          message))
        "\n")))))
        buffers
        (concat
        (riece-concat-message
-        (format "%s killed %s"
+        (format (riece-mcat "%s killed %s")
                 (riece-format-identity killer-identity t)
                 (riece-format-identity user-identity t))
         message)
        (concat
        (riece-concat-server-name
         (riece-concat-message
-         (format "%s killed %s"
+         (format (riece-mcat "%s killed %s")
                 (riece-format-identity killer-identity t)
                 (riece-format-identity user-identity t))
          message))
      (list riece-dialogue-buffer riece-others-buffer)
      (concat
       (riece-concat-server-name
-       (format "%s invites %s to %s"
+       (format (riece-mcat "%s invites %s to %s")
               (riece-format-identity (riece-make-identity
                                       user riece-server-name))
               (riece-format-identity (riece-make-identity
     (let ((buffer (riece-channel-buffer channel-identity)))
       (riece-insert-change
        buffer
-       (format "Topic by %s: %s\n"
+       (format (riece-mcat "Topic by %s: %s\n")
               (riece-format-identity user-identity t)
               topic))
       (riece-insert-change
         riece-dialogue-buffer)
        (concat
        (riece-concat-server-name
-        (format "Topic on %s by %s: %s"
+        (format (riece-mcat "Topic on %s by %s: %s")
                 (riece-format-identity channel-identity t)
                 (riece-format-identity user-identity t)
                 topic))
             (buffer (riece-channel-buffer channel-identity)))
        (riece-insert-change
         buffer
-        (format "Mode by %s: %s\n"
+        (format (riece-mcat "Mode by %s: %s\n")
                 (riece-format-identity user-identity t)
                 string))
        (riece-insert-change
           riece-dialogue-buffer)
         (concat
          (riece-concat-server-name
-          (format "Mode on %s by %s: %s"
+          (format (riece-mcat "Mode on %s by %s: %s")
                   (riece-format-identity channel-identity t)
                   (riece-format-identity user-identity t)
                   string))
index 8d85a8d..f98698c 100644 (file)
 ;;; Code:
 
 (defconst riece-mcat-japanese-alist
-  '(("Sending QUIT...done" . "QUIT \e$B$rAw?.$7$F$$$^$9\e(B...\e$B40N;\e(B")
+  '(("%s killed %s" . "%s \e$B$,\e(B %s \e$B$r;&$7$^$7$?\e(B")
+    ("%s has left IRC" . "%s \e$B$,\e(B IRC \e$B$rN%$l$^$7$?\e(B")
+    ("%s has left %s" . "%s \e$B$,\e(B %s \e$B$rN%$l$^$7$?\e(B")
+    ("Topic on %s by %s: %s" . "%s \e$B$N%H%T%C%/$,\e(B %s \e$B$K$h$j@_Dj$5$l$^$7$?\e(B: %s")
+    ("Topic by %s: %s\n" . "%s \e$B$K$h$k%H%T%C%/@_Dj\e(B: %s\n")
+    ("Mode on %s by %s: %s" . "%s \e$B$N%b!<%I$,\e(B %s \e$B$K$h$j@_Dj$5$l$^$7$?\e(B: %s")
+    ("Mode by %s: %s\n" . "%s \e$B$K$h$k%b!<%I@_Dj\e(B: %s\n")
+    ("%s invites %s to %s" . "%s \e$B$,\e(B %s \e$B$r\e(B %s \e$B$K>7BT$7$F$$$^$9\e(B")
+    ("%s kicked %s out from %s\n" . "%s \e$B$,\e(B %s \e$B$r\e(B %s \e$B$+$i=3$j=P$7$^$7$?\e(B\n")
+    ("%s kicked %s out from %s" . "%s \e$B$,\e(B %s \e$B$r\e(B %s \e$B$+$i=3$j=P$7$^$7$?\e(B")
+    ("%s (%s) has joined %s\n" . "%s (%s) \e$B$,\e(B %s \e$B$K;22C$7$^$7$?\e(B")
+    ("%s (%s) has joined %s" . "%s (%s) \e$B$,\e(B %s \e$B$K;22C$7$^$7$?\e(B")
+    ("Sending QUIT...done" . "QUIT \e$B$rAw?.$7$F$$$^$9\e(B...\e$B40N;\e(B")
     ("Sending QUIT..." . "QUIT \e$B$rAw?.$7$F$$$^$9\e(B...")
     ("Sending QUIT to \"%s\"...done" . "\"%s\" \e$B$K\e(B QUIT \e$B$rAw?.$7$F$$$^$9\e(B...\e$B40N;\e(B")
     ("Sending QUIT to \"%s\"..." . "\"%s\" \e$B$K\e(B QUIT \e$B$rAw?.$7$F$$$^$9\e(B...")