From 19bebc98811f9b50c4a57bbcba4b91bdcabb13ee Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 7 Jan 2017 01:46:09 -0500 Subject: [PATCH] Handle IRC QUIT --- racket/syndicate/drivers/irc.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/racket/syndicate/drivers/irc.rkt b/racket/syndicate/drivers/irc.rkt index ff6fb93..69cf31f 100644 --- a/racket/syndicate/drivers/irc.rkt +++ b/racket/syndicate/drivers/irc.rkt @@ -100,6 +100,8 @@ (retract! (irc-presence C (bytes->string/utf-8 src) (bytes->string/utf-8 tgt)))] + [(regexp #px#"^:([^!]+)![^ ]* QUIT :(.*)\r$" (list _ src _quitmsg)) + (retract! (irc-presence C (bytes->string/utf-8 src) ?))] [(regexp #px#"^:([^!]+)![^ ]* JOIN ([^ ]+)\r$" (list _ src-bs tgt)) (define src (bytes->string/utf-8 src-bs)) (when (not (equal? src nick)) ;; See above marked (*)