Handle IRC QUIT

This commit is contained in:
Tony Garnock-Jones 2017-01-07 01:46:09 -05:00
parent eb4a228c73
commit 19bebc9881
1 changed files with 2 additions and 0 deletions

View File

@ -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 (*)