+ ((rx (: (let cmd-str (+ (not space))))
+ (opt
+ (: (+ " ")
+ (let params-str (+ anything)))))
+ (lirc-send-msg (lirc-msg nil nil
+ cmd-str
+ (if params-str
+ (split-string params-str)
+ nil)))))
+ (lirc-send-msg (lirc-msg nil nil "PRIVMSG" lirc-current-channel string))))