Browse Source

add :stream-asleep

master
eta 2 months ago
parent
commit
f10226f1e3
  1. 2
      whatscl.lisp

2
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

Loading…
Cancel
Save