diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Plugin/Quote.hs | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs index 33c29cc..b52137b 100644 --- a/Hsbot/Plugin/Quote.hs +++ b/Hsbot/Plugin/Quote.hs @@ -180,6 +180,16 @@ theQuote = do answerMsg msg $ "Usage: quote { [start] QUOTEE [QUOTE] | append [QUOTEID] QUOTEE QUOTE | " ++ "delete QUOTEID [ELTID] | show { QUOTEID | random [MIN_SCORE] } | stat }" "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":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase "quote":_ -> answerMsg msg "Invalid quote command." @@ -192,6 +202,13 @@ theQuote = do "vote":_ -> answerMsg msg "Invalid vote command." _ -> 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 () 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 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 quoteDB msg quotee phrase = case phrase of |