diff options
Diffstat (limited to 'src/IRC.hs')
| -rw-r--r-- | src/IRC.hs | 181 |
1 files changed, 91 insertions, 90 deletions
@@ -1,95 +1,96 @@ {-# LANGUAGE OverloadedStrings #-} module IRC - ( connectIRC + ( -- connectIRC ) where -import Control.Monad (sequence_) -import Control.Monad.IO.Class (liftIO) -import Control.Monad.Trans.Class (lift) -import Control.Monad.Trans.Maybe (MaybeT(MaybeT), runMaybeT) -import qualified Data.ByteString as B -import qualified Data.Text as T - -import qualified Network.IRC.Client as IRC - -import Bot (Bot) -import Message -import Plugin (matchPlugin, performPlugin) -import Plugin.Base (queryOnly) - -connectIRC :: B.ByteString -> Int -> T.Text -> IO () -connectIRC host port nick = do - conn <- IRC.connectWithTLS host port 0.2 - let cfg = IRC.defaultIRCConf nick - let cfg' = cfg - { - IRC._eventHandlers = handlePrivmsg : IRC._eventHandlers cfg - , IRC._channels = ["#test-chan-13513"] - } - IRC.start conn cfg' - -handlePrivmsg :: IRC.EventHandler s -handlePrivmsg = IRC.EventHandler - { IRC._description = "" - , IRC._matchType = IRC.EPrivmsg - , IRC._eventFunc = \evt -> dispatchEvent evt - } - where - dispatchEvent :: IRC.UnicodeEvent -> IRC.StatefulIRC s () - dispatchEvent (IRC.Event _ (IRC.User nick) (IRC.Privmsg _ (Right msg))) = do - let message = Message - { text = msg - , channel = nick - , nick = nick - } - response <- lift $ runMaybeT $ privmsgFromPlugin message - case response of - Nothing -> return () - Just r -> sequence_ r - dispatchEvent (IRC.Event - _ (IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) = do - let message = Message - { text = msg - , channel = chan - , nick = nick - } - case messageForBot message of - Nothing -> return () - Just message -> do - response <- lift $ runMaybeT $ privmsgFromPlugin message - case response of - Nothing -> return () - Just r -> sequence_ r - -privmsgFromPlugin :: Message -> MaybeT Bot [IRC.StatefulIRC s ()] -privmsgFromPlugin message = do - plugin <- liftMaybe $ matchPlugin message - response <- lift $ performPlugin plugin message - -- plugin' <- liftMaybe plugin - return $ case response of - Left err -> [IRC.send $ IRC.Privmsg - (toChannel plugin message) - (Right err)] - Right r -> map - (\r -> IRC.send $ IRC.Privmsg - (toChannel plugin message) - (Right r) ) - (splitAtNewlines $ splitLongLines r) - where - liftMaybe = MaybeT . return - - -- IRC only permits 512 bytes per line. Use less to allow for protocol - -- information that gets sent in addition to the message content. - splitLongLines txt = T.chunksOf 400 txt - - splitAtNewlines lst = foldr (\s acc -> (T.lines s) ++ acc) [] lst - - toChannel plugin message = case queryOnly plugin of - False -> channel message - True -> nick message - -messageForBot :: Message -> Maybe Message -messageForBot m = case T.stripPrefix "sorbot: " (text m) of - Nothing -> Nothing - Just t -> Just m { text = t } +-- import Control.Monad (sequence_) +-- import Control.Monad.IO.Class (liftIO) +-- import Control.Monad.Trans.Class (lift) +-- import Control.Monad.Trans.Maybe (MaybeT(MaybeT), runMaybeT) +-- import qualified Data.ByteString as B +-- import qualified Data.Text as T +-- +-- import qualified Network.IRC.Client as IRC +-- +-- -- import Bot (Bot) +-- import Bot (Bot, runBot) +-- import Message +-- import Plugin (matchPlugin, performPlugin) +-- import Plugin.Base (queryOnly) +-- +-- connectIRC :: B.ByteString -> Int -> T.Text -> IO () +-- connectIRC host port nick = do +-- conn <- IRC.connectWithTLS host port 0.2 +-- let cfg = IRC.defaultIRCConf nick +-- let cfg' = cfg +-- { +-- IRC._eventHandlers = handlePrivmsg : IRC._eventHandlers cfg +-- , IRC._channels = ["#test-chan-13513"] +-- } +-- IRC.start conn cfg' +-- +-- handlePrivmsg :: IRC.EventHandler s +-- handlePrivmsg = IRC.EventHandler +-- { IRC._description = "" +-- , IRC._matchType = IRC.EPrivmsg +-- , IRC._eventFunc = \evt -> dispatchEvent evt +-- } +-- where +-- dispatchEvent :: IRC.UnicodeEvent -> IRC.StatefulIRC s () +-- dispatchEvent (IRC.Event _ (IRC.User nick) (IRC.Privmsg _ (Right msg))) = do +-- let message = Message +-- { text = msg +-- , channel = nick +-- , nick = nick +-- } +-- response <- lift $ runMaybeT $ privmsgFromPlugin message +-- case response of +-- Nothing -> return () +-- Just r -> sequence_ r +-- dispatchEvent (IRC.Event +-- _ (IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) = do +-- let message = Message +-- { text = msg +-- , channel = chan +-- , nick = nick +-- } +-- case messageForBot message of +-- Nothing -> return () +-- Just message -> do +-- response <- lift $ runMaybeT $ privmsgFromPlugin message +-- case response of +-- Nothing -> return () +-- Just r -> sequence_ r +-- +-- privmsgFromPlugin :: Message -> MaybeT Bot [IRC.StatefulIRC s ()] +-- privmsgFromPlugin message = do +-- plugin <- liftMaybe $ matchPlugin message +-- response <- lift $ performPlugin plugin message +-- -- plugin' <- liftMaybe plugin +-- return $ case response of +-- Left err -> [IRC.send $ IRC.Privmsg +-- (toChannel plugin message) +-- (Right err)] +-- Right r -> map +-- (\r -> IRC.send $ IRC.Privmsg +-- (toChannel plugin message) +-- (Right r) ) +-- (splitAtNewlines $ splitLongLines r) +-- where +-- liftMaybe = MaybeT . return +-- +-- -- IRC only permits 512 bytes per line. Use less to allow for protocol +-- -- information that gets sent in addition to the message content. +-- splitLongLines txt = T.chunksOf 400 txt +-- +-- splitAtNewlines lst = foldr (\s acc -> (T.lines s) ++ acc) [] lst +-- +-- toChannel plugin message = case queryOnly plugin of +-- False -> channel message +-- True -> nick message +-- +-- messageForBot :: Message -> Maybe Message +-- messageForBot m = case T.stripPrefix "sorbot: " (text m) of +-- Nothing -> Nothing +-- Just t -> Just m { text = t } |