From a1ac7a5c019f2dfa8df2baf795681faed2480bbb Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Sat, 12 Jul 2008 00:46:05 -0300 Subject: [PATCH] irc.client: Add participant mode symbols --- extra/irc/client/client.factor | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index 2dbbe8b8f5..65dc2fa017 100644 --- a/extra/irc/client/client.factor +++ b/extra/irc/client/client.factor @@ -31,6 +31,15 @@ TUPLE: irc-channel-listener < irc-listener name password timeout participants ; TUPLE: irc-nick-listener < irc-listener name ; SYMBOL: +server-listener+ +! participant modes +SYMBOL: +operator+ +SYMBOL: +voice+ +SYMBOL: +normal+ + +: participant-mode ( n -- assoc ) + H{ { 64 +operator+ } { 43 +voice+ } { 0 +normal+ } } at ; + +! listener objects : ( -- irc-listener ) irc-listener boa ; : ( -- irc-server-listener ) @@ -182,7 +191,7 @@ M: quit handle-incoming-irc ( quit -- ) call-next-method ; : >nick/mode ( string -- nick mode ) - dup first "+@" member? [ unclip ] [ f ] if ; + dup first "+@" member? [ unclip ] [ 0 ] if participant-mode ; : names-reply>participants ( names-reply -- participants ) trailing>> [ blank? ] trim " " split