Update modeline.

[riece] / lisp / riece-300.el

diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index bab3204..5846267 100644 (file)
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -45,21 +45,29 @@
           (concat "^\\(" riece-user-regexp
                   "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
           (car replies))
-         (riece-insert-info
-          (list riece-dialogue-buffer riece-others-buffer)
-          (concat
-           (riece-concat-server-name
-            (format "%s is (%s) [%s, %s]"
-                    (match-string 1 (car replies))
-                    (riece-strip-user-at-host (match-string 4 (car replies)))
-                    (if (match-beginning 2)
-                        "operator"
-                      "not operator")
-                    (if (eq (match-string 3 (car replies)) ?-)
-                        "away"
-                      "not away")))
-           "\n")))
-      (setq replies (cdr replies)))))
+         (let ((user (match-string 1 (car replies)))
+               (away (eq (match-string 3 (car replies)) ?-))
+               (user-at-host (match-string 4 (car replies)))
+               (operator (not (null (match-beginning 2)))))
+           (riece-user-toggle-away user away)
+           (riece-user-toggle-operator user operator)
+           (riece-insert-info
+            (list riece-dialogue-buffer riece-others-buffer)
+            (concat
+             (riece-concat-server-name
+              (format "%s is (%s) [%s, %s]"
+                      user
+                      (riece-strip-user-at-host user-at-host)
+                      (if operator
+                          "operator"
+                        "not operator")
+                      (if away
+                          "away"
+                        "not away")))
+             "\n"))))
+      (setq replies (cdr replies)))
+  (riece-update-status-indicators)
+  (force-mode-line-update t)))
 
 (defun riece-handle-303-message (prefix number name string)
   (riece-insert-info
@@ -69,17 +77,30 @@
     "\n")))
 
 (defun riece-handle-301-message (prefix number name string)
-  (if (string-match
-       (concat "^\\(" riece-user-regexp "\\) :")
-       string)
+  (when (string-match
+        (concat "^\\(" riece-user-regexp "\\) :")
+        string)
+    (let ((user (match-string 1 string))
+         (message (substring string (match-end 0))))
+      (riece-user-toggle-away user t)
       (riece-insert-info
        (list riece-dialogue-buffer riece-others-buffer)
        (concat
        (riece-concat-server-name
-        (format "%s is away: %s"
-                (match-string 1 string)
-                (substring string (match-end 0))))
-       "\n"))))
+        (format "%s is away: %s" user message))
+       "\n")))
+  (riece-update-status-indicators)
+  (force-mode-line-update t)))
+
+(defun riece-handle-305-message (prefix number name string)
+  (riece-user-toggle-away riece-real-nickname nil)
+  (riece-update-status-indicators)
+  (force-mode-line-update t))
+
+(defun riece-handle-306-message (prefix number name string)
+  (riece-user-toggle-away riece-real-nickname t)
+  (riece-update-status-indicators)
+  (force-mode-line-update t))
 
 (defun riece-handle-311-message (prefix number name string)
   (if (string-match
@@ -168,12 +189,33 @@
          (setq users (cdr users)))
        (riece-redisplay-buffers))))
 
+(defun riece-handle-322-message (prefix number name string)
+  (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
+      (let* ((channel (match-string 1 string))
+            (visible (match-string 2 string))
+            (topic (substring string (match-end 0))))
+       (let ((buffer (cdr (riece-identity-assoc-no-server
+                           (riece-make-identity channel)
+                           riece-channel-buffer-alist))))
+         (riece-insert-info buffer (concat visible " users, topic: "
+                                           topic "\n"))
+         (riece-insert-info
+          (if (and riece-channel-buffer-mode
+                   (not (eq buffer riece-channel-buffer)))
+              (list riece-dialogue-buffer riece-others-buffer)
+            riece-dialogue-buffer)
+          (concat
+           (riece-concat-server-name
+            (format "%s users on %s, topic: %s" visible channel topic))
+           "\n"))))))
+
 (defun riece-handle-324-message (prefix number name string)
   (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
       (let* ((channel (match-string 1 string))
             (mode-string (substring string (match-beginning 2)))
             (modes (string-to-list (match-string 2 string)))
-            (toggle (pop modes)))
+            (toggle (car modes)))
+       (setq modes (cdr modes))
        (while modes
          (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
          (setq modes (cdr modes)))
@@ -244,8 +286,8 @@
             (host (match-string 3 string))
             (server (match-string 4 string))
             (nick (match-string 5 string))
-            (away (match-string 6 string))
-            (operator (match-string 7 string))
+            (away (equal (match-string 6 string) "G"))
+            (operator (not (null (match-beginning 7))))
             (flag (match-string 8 string))
             (hops (match-string 9 string))
             (name (substring string (match-end 0)))
@@ -253,6 +295,8 @@
                           (riece-make-identity channel)
                           riece-channel-buffer-alist))))
        (riece-naming-assert-join nick channel)
+       (riece-user-toggle-away user away)
+       (riece-user-toggle-operator user operator)
        (riece-insert-info
         buffer
         (format "%10s = %s (%s) [%s, %s, %s hops, on %s]\n"
@@ -292,7 +336,7 @@
                   (if operator
                       "operator"
                     "not operator")
-                  (if (equal away "G")
+                  (if away
                       "away"
                     "not away")
                   hops
@@ -302,6 +346,7 @@
 
 (defun riece-handle-315-message (prefix number name string))
 (defun riece-handle-318-message (prefix number name string))
+(defun riece-handle-323-message (prefix number name string))
 (defun riece-handle-366-message (prefix number name string))
 
 (provide 'riece-300)