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

diff --git a/extra/irc/client/chats/chats.factor b/extra/irc/client/chats/chats.factor
index 8a87c1a6132b9151b0ace18ebb4bf4a5f1110fd7..5b90cd45227ff436af76b02e8c06668e5a7b75af 100644 (file)
--- a/extra/irc/client/chats/chats.factor
+++ b/extra/irc/client/chats/chats.factor
@@ -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 ;

diff --git a/extra/irc/gitbot/gitbot.factor b/extra/irc/gitbot/gitbot.factor
index c6fc67a8c63164e8026369020075e2b49ad3f372..4639a3a6fbbe92859c7f9d2edb74cd7bad180919 100644 (file)
--- a/extra/irc/gitbot/gitbot.factor
+++ b/extra/irc/gitbot/gitbot.factor
@@ -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