(if is-action
(format #t "~a emoted ~s in channel ~a\n"
speaker message channel-name)
(format #t "~a said ~s in channel ~a\n"
speaker message channel-name)))
(if is-action
(format #t "~a emoted ~s in channel ~a\n"
speaker message channel-name)
(format #t "~a said ~s in channel ~a\n"
speaker message channel-name)))