+ ((rx "QUIT" (opt (: " " (let quit-msg (* not-newline)))))
+ (lurk-send-msg (lurk-msg nil nil "QUIT"
+ (or quit-msg lurk-default-quit-msg))))
+
+ ((rx (: "NICK" (* whitespace) string-end))
+ (lurk-display-notice nil "Current nick: " lurk-nick))
+
+ ((rx (: "NICK" (+ whitespace) (let nick (+ (not whitespace)))))
+ (if (lurk-connected-p)
+ (lurk-send-msg (lurk-msg nil nil "NICK" nick))
+ (setq lurk-nick nick)
+ (lurk-display-notice nil "Set default nick to '" nick "'")))
+