From cd89da032d84beb55568c306e7fc19ec13827cfd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 9 May 2016 12:11:44 -0700
Subject: [PATCH] irc: use utf8 instead of latin1. not sure if this is the best
idea.
---
extra/irc/client/chats/chats.factor | 6 +++---
extra/irc/gitbot/gitbot.factor | 9 ++++-----
2 files changed, 7 insertions(+), 8 deletions(-)
diff --git a/extra/irc/client/chats/chats.factor b/extra/irc/client/chats/chats.factor
index 8a87c1a613..5b90cd4522 100644
--- 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 c6fc67a8c6..4639a3a6fb 100644
--- 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