irc.client: Rename client message construcor, handle outgoing plain irc-messages.
parent
7a09b4aed3
commit
22b67ed378
|
@ -209,8 +209,8 @@ M: irc-broadcasted-message handle-incoming-irc ( irc-broadcasted-message -- )
|
||||||
|
|
||||||
GENERIC: handle-outgoing-irc ( obj -- )
|
GENERIC: handle-outgoing-irc ( obj -- )
|
||||||
|
|
||||||
! M: irc-message handle-outgoing-irc ( irc-message -- )
|
M: irc-message handle-outgoing-irc ( irc-message -- )
|
||||||
! irc-message>string irc-print ;
|
irc-message>client-line irc-print ;
|
||||||
|
|
||||||
M: privmsg handle-outgoing-irc ( privmsg -- )
|
M: privmsg handle-outgoing-irc ( privmsg -- )
|
||||||
[ name>> ] [ trailing>> ] bi /PRIVMSG ;
|
[ name>> ] [ trailing>> ] bi /PRIVMSG ;
|
||||||
|
|
|
@ -21,7 +21,7 @@ TUPLE: mode < irc-message name channel mode ;
|
||||||
TUPLE: names-reply < irc-message who = channel ;
|
TUPLE: names-reply < irc-message who = channel ;
|
||||||
TUPLE: unhandled < irc-message ;
|
TUPLE: unhandled < irc-message ;
|
||||||
|
|
||||||
: make-client-message ( command parameters trailing -- irc-message )
|
: <irc-client-message> ( command parameters trailing -- irc-message )
|
||||||
irc-message new now >>timestamp
|
irc-message new now >>timestamp
|
||||||
[ [ (>>trailing) ] [ (>>parameters) ] [ (>>command) ] tri ] keep ;
|
[ [ (>>trailing) ] [ (>>parameters) ] [ (>>command) ] tri ] keep ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue