irc: use utf8 instead of latin1. not sure if this is the best idea.

locals-and-roots
Doug Coleman 2016-05-09 12:11:44 -07:00
parent 449c740b23
commit cd89da032d
2 changed files with 7 additions and 8 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Bruno Deferrari
! See http://factorcode.org/license.txt for BSD license.
USING: accessors concurrency.mailboxes kernel calendar io.sockets
destructors arrays sequences io.encodings.8-bit.latin1 ;
USING: accessors calendar concurrency.mailboxes
io.encodings.utf8 io.sockets kernel ;
IN: irc.client.chats
CONSTANT: irc-port 6667 ! Default irc port
@ -47,6 +47,6 @@ TUPLE: irc-client profile stream in-messages out-messages
30 seconds >>reconnect-time
10 >>reconnect-attempts
V{ } clone >>exceptions
[ <inet> latin1 <client> drop ] >>connect ;
[ <inet> utf8 <client> drop ] >>connect ;
SINGLETONS: irc-chat-end irc-end irc-disconnected irc-connected ;

View File

@ -1,9 +1,8 @@
! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: fry irc.client irc.client.chats kernel namespaces
sequences threads io.launcher io splitting
make mason.common mason.git calendar math timers
io.encodings.8-bit.latin1 debugger ;
USING: calendar debugger fry io io.encodings.utf8 io.launcher
irc.client irc.client.chats kernel make mason.common mason.git
math sequences threads timers ;
IN: irc.gitbot
: bot-profile ( -- obj )
@ -34,7 +33,7 @@ M: object handle-message drop ;
"--pretty=format:%h %an: %s" ,
".." glue ,
] { } make
latin1 [ lines ] with-process-reader ;
utf8 [ lines ] with-process-reader ;
: updates ( from to -- lines )
git-log reverse