adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added quote show.

Browse source
This commit is contained in:
Julien Dessaux 2011-10-01 00:29:18 +02:00
parent 2cfccca8e2
commit f0c95c5c28
1 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
Hsbot/Plugin/Quote.hs
View file

@ -180,6 +180,16 @@ theQuote = do
answerMsg msg $ "Usage: quote { [start] QUOTEE [QUOTE] | append [QUOTEID] QUOTEE QUOTE | " answerMsg msg $ "Usage: quote { [start] QUOTEE [QUOTE] | append [QUOTEID] QUOTEE QUOTE | "
++ "delete QUOTEID [ELTID] | show { QUOTEID | random [MIN_SCORE] } | stat }" ++ "delete QUOTEID [ELTID] | show { QUOTEID | random [MIN_SCORE] } | stat }"
"quote":"help":_ -> answerMsg msg "Invalid help topic." "quote":"help":_ -> answerMsg msg "Invalid help topic."
"quote":"show":"random":[] -> showRandomQuote
"quote":"show":quoteID:[] ->
case reads quoteID :: [(Int, String)] of
(qid,_):_ -> do
thisQuote <- query' quoteDB (GetQuote qid)
case thisQuote of
Just this -> quoteShow quoteDB msg qid this
Nothing -> answerMsg msg $ (getSender msg) ++ ": Invalid quoteID or empty database."
_ -> answerMsg msg $ getSender msg ++ " : Invalid quoteID."
"quote":"show":[] -> showRandomQuote
"quote":"start":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase "quote":"start":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
"quote":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase "quote":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
"quote":_ -> answerMsg msg "Invalid quote command." "quote":_ -> answerMsg msg "Invalid quote command."
@ -192,6 +202,13 @@ theQuote = do
"vote":_ -> answerMsg msg "Invalid vote command." "vote":_ -> answerMsg msg "Invalid vote command."
_ -> return () _ -> return ()
| otherwise = return () | otherwise = return ()
where
showRandomQuote :: Plugin (Env IO) ()
showRandomQuote = do
rquote <- liftIO (getRandomQuote quoteDB)
case rquote of
Just (that, qid) -> quoteShow quoteDB msg qid that
Nothing -> answerMsg msg $ (getSender msg) ++ ": the quote database is empty."
eval _ _ = return () eval _ _ = return ()
quoteAppend :: AcidState QuoteDB -> IRC.Message -> QuoteID -> IRC.UserName -> String -> Plugin (Env IO) () quoteAppend :: AcidState QuoteDB -> IRC.Message -> QuoteID -> IRC.UserName -> String -> Plugin (Env IO) ()
@ -250,6 +267,19 @@ quoteDeleteElt quoteDB msg quoteID eltID = do
| otherwise = let (l, r) = splitAt eltID elts | otherwise = let (l, r) = splitAt eltID elts
in l ++ tail r in l ++ tail r
quoteShow :: AcidState QuoteDB -> IRC.Message -> QuoteID -> Quote -> Plugin (Env IO) ()
quoteShow quoteDB msg quoteID thatQuote = do
mapM_ (answerMsg msg) $ formatQuote
update' quoteDB (SetLastActiveQuote channel quoteID)
where
channel = getChannel msg
formatQuote :: [String]
formatQuote = ("+-- [" ++ show quoteID ++ "] --- Reported by " ++ quoter thatQuote ++ " on " ++ quoteFrom thatQuote)
: map formatElt (quotE thatQuote)
++ [ "+-- Added on " ++ show (quoteTime thatQuote) ++ " --- Score : " ++ show (votes thatQuote) ]
formatElt :: QuoteElt -> String
formatElt this = "| " ++ eltQuotee this ++ ": " ++ eltQuote this
quoteStart :: AcidState QuoteDB -> IRC.Message -> IRC.UserName -> String -> Plugin (Env IO) () quoteStart :: AcidState QuoteDB -> IRC.Message -> IRC.UserName -> String -> Plugin (Env IO) ()
quoteStart quoteDB msg quotee phrase = quoteStart quoteDB msg quotee phrase =
case phrase of case phrase of