add :stream-asleep

2 months ago · f10226f1e3
1 changed files with 2 additions and 0 deletions
--- a/whatscl.lisp
+++ b/whatscl.lisp
@ -537,6 +537,8 @@ accumulator and close the stream."
                                             (aval :status (car payload))))
          ((equal opcode "Presence") (on-server-presence conn (car payload)))
          ((equal opcode "Chat") (on-chat-modified conn (car payload)))
+          ((and (equal opcode "Stream") (equal (car payload) "asleep"))
+           (wac-emit :stream-asleep conn))
          (t (warn "Unhandled server message: ~A" msg))))
      (if (> (length tag) 10)
          (progn