Deal with KICKs.

[lurk.git] / lurk.el

diff --git a/lurk.el b/lurk.el
index 9563237..4d2a92e 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -442,11 +442,13 @@ portion of the source component of the message, as LURK doesn't use this.")
                    (if (equal to lurk-nick) from to))))
     (lurk-display-string
      context
-     (pcase (lurk-get-context-type to)
-       ('channel (concat to " <" from ">"))
-       ('nick (concat "[" from " -> " to "]"))
-       (_
-        (error "Unsupported context type")))
+     (propertize
+      (pcase (lurk-get-context-type to)
+        ('channel (concat to " <" from ">"))
+        ('nick (concat "[" from " -> " to "]"))
+        (_
+         (error "Unsupported context type")))
+      'face (lurk-get-context-facelist context))
      text)))
 
 (defun lurk-display-action (from to action-text)
@@ -509,8 +511,9 @@ portion of the source component of the message, as LURK doesn't use this.")
        (opt (group (: ":" (+ digit))))
        (opt (group (: "/"
                       (opt
-                       (* (any alnum ",.-~/@|:%#=&_"))
-                       (+ (any alnum "-~/@|:%#=&")))))))))
+                       (* (any alnum "-/.,#:%=&_"))
+                       (any alnum "-/#:%=&_")))))))
+  "Imperfect regex used to find URLs in plain text.")
 
 (defun lurk-click-url (button)
   (browse-url (button-get button 'url)))
@@ -543,10 +546,8 @@ portion of the source component of the message, as LURK doesn't use this.")
       ("PING"
        (lurk-send-msg
         (lurk-msg nil nil "PONG" (lurk-msg-params msg))))
-       ;; (lurk-display-notice nil "ping-pong (server initiated)"))
 
       ("PONG")
-       ;; (lurk-display-notice nil "ping-pong (client initiated)"))
 
       ("001"
        (let* ((params (lurk-msg-params msg))
@@ -618,6 +619,21 @@ portion of the source component of the message, as LURK doesn't use this.")
          (if lurk-show-joins
              (lurk-display-notice channel nick " left channel " channel))))
 
+      ((and "KICK")
+       (let ((kicker-nick (lurk-msg-src msg))
+             (channel (car (lurk-msg-params msg)))
+             (nick (cadr (lurk-msg-params msg)))
+             (reason (caddr (lurk-msg-params msg))))
+         (if (equal nick lurk-nick)
+             (progn
+               (lurk-display-notice channel kicker-nick " kicked you from " channel ": " reason)
+               (lurk-del-context channel)
+               (if (equal channel lurk-current-context)
+                   (lurk-set-current-context (lurk-get-next-context)))
+               (lurk-render-prompt))
+           (lurk-del-context-user channel nick)
+           (lurk-display-notice channel kicker-nick " kicked " nick " from " channel ": " reason))))
+
       ("QUIT"
        (let ((nick (lurk-msg-src msg))
              (reason (mapconcat 'identity (lurk-msg-params msg) " ")))