58 lines
1.6 KiB
Haskell
58 lines
1.6 KiB
Haskell
module Plugins.Quote
|
|
( mainQuote
|
|
) where
|
|
|
|
import Control.Concurrent.Chan
|
|
import Control.Monad.State
|
|
import System.Time (ClockTime)
|
|
|
|
import Hsbot.IRCPlugin
|
|
import Hsbot.Types
|
|
import Hsbot.Utils
|
|
|
|
-- | A quote object
|
|
data Quote = Quote
|
|
{ quoter :: String
|
|
, quote :: [String]
|
|
, quoteTime :: ClockTime
|
|
, votes :: Int
|
|
} deriving (Show)
|
|
|
|
-- | A QuoteBot state
|
|
type QuoteDB = [Quote]
|
|
|
|
-- | The QuoteBot monad
|
|
type QuoteBot a = StateT QuoteDB IO a
|
|
|
|
-- | The plugin's main entry point
|
|
mainQuote :: Chan BotMsg -> Chan BotMsg -> IO ()
|
|
mainQuote serverChan chan = do
|
|
let plugin = PluginInstance "Quote" serverChan chan
|
|
(runStateT run plugin) `catch` (const $ return ((), plugin))
|
|
return ()
|
|
|
|
-- | The IrcPlugin monad main function
|
|
run :: IrcPlugin ()
|
|
run = do
|
|
-- TODO : init quote handling (sqlite + structure to handle temporary stuff)
|
|
sendRegisterCommand "quote"
|
|
runPlugin
|
|
sendUnregisterCommand "quote"
|
|
-- TODO : send cancel messages for all temporary stuff
|
|
|
|
runPlugin :: IrcPlugin ()
|
|
runPlugin = forever $ do
|
|
msg <- readMsg
|
|
eval msg
|
|
where
|
|
eval :: BotMsg -> IrcPlugin ()
|
|
eval (InternalCmd intCmd) = do
|
|
case intCmdCmd intCmd of
|
|
"RUN" -> let stuff = words $ intCmdMsg intCmd
|
|
in case head stuff of
|
|
"quote" -> lift $ trace $ "Quote module has been invoked for: " ++ (show intCmd)
|
|
_ -> lift $ trace $ show intCmd -- TODO : help message
|
|
_ -> lift $ trace $ show intCmd
|
|
eval (InputMsg msg) = return ()
|
|
eval _ = return ()
|
|
|