2014-06-07 00:50:27 +05:30
|
|
|
module Network.IRC.Handlers.Greet (greetMsgHandlerMaker) where
|
2014-05-25 18:13:52 +05:30
|
|
|
|
|
|
|
import ClassyPrelude
|
2014-06-01 23:14:19 +05:30
|
|
|
import Control.Monad.Reader (ask)
|
2014-05-25 18:13:52 +05:30
|
|
|
|
|
|
|
import Network.IRC.Types
|
|
|
|
import Network.IRC.Util
|
|
|
|
|
2014-06-07 00:50:27 +05:30
|
|
|
greetMsgHandlerMaker :: MsgHandlerMaker
|
|
|
|
greetMsgHandlerMaker = MsgHandlerMaker "greeter" go
|
2014-06-02 00:26:41 +05:30
|
|
|
where
|
|
|
|
go _ _ "greeter" = return . Just $ newMsgHandler { onMessage = greeter }
|
|
|
|
go _ _ "welcomer" = return . Just $ newMsgHandler { onMessage = welcomer }
|
|
|
|
go _ _ _ = return Nothing
|
2014-05-25 18:13:52 +05:30
|
|
|
|
2014-06-08 04:26:50 +05:30
|
|
|
greeter :: MonadMsgHandler m => FullMessage -> m [Command]
|
|
|
|
greeter FullMessage { .. } = case fromMessage message of
|
|
|
|
Just (ChannelMsg user msg) ->
|
|
|
|
return . maybeToList . map (toCommand . ChannelMsgReply . (++ nickToText (userNick user)) . (++ " "))
|
|
|
|
. find (== clean msg) $ greetings
|
|
|
|
_ -> return []
|
2014-05-25 18:13:52 +05:30
|
|
|
where
|
|
|
|
greetings = [ "hi", "hello", "hey", "sup", "bye"
|
|
|
|
, "good morning", "good evening", "good night" ]
|
|
|
|
|
2014-06-08 04:26:50 +05:30
|
|
|
welcomer :: MonadMsgHandler m => FullMessage -> m [Command]
|
|
|
|
welcomer FullMessage { .. } = case fromMessage message of
|
|
|
|
Just (JoinMsg user) -> do
|
|
|
|
BotConfig { .. } <- ask
|
|
|
|
return [toCommand . ChannelMsgReply $ "welcome back " ++ nickToText (userNick user)
|
|
|
|
| userNick user /= botNick]
|
|
|
|
_ -> return []
|
2014-05-25 18:13:52 +05:30
|
|
|
|
|
|
|
|