summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2011-09-30 21:42:22 +0200
committerJulien Dessaux2011-09-30 21:42:22 +0200
commit716b92fda8412149194b07d28d36cb69d9547ab5 (patch)
treede4d37695d5ca52b587d05e8ee27961d29e93b6e /Hsbot/Plugin
parentAdded a transaction for handling the nextQuoteID. (diff)
downloadhsbot-716b92fda8412149194b07d28d36cb69d9547ab5.tar.gz
hsbot-716b92fda8412149194b07d28d36cb69d9547ab5.tar.bz2
hsbot-716b92fda8412149194b07d28d36cb69d9547ab5.zip
Implemented the quote start function.
Diffstat (limited to 'Hsbot/Plugin')
-rw-r--r--Hsbot/Plugin/Quote.hs27
1 files changed, 23 insertions, 4 deletions
diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index 7e52e5b..fae5a4e 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -162,9 +162,9 @@ theQuote = do
answerMsg msg "quote delete QUOTEID [ELTID] :"
answerMsg msg $ " If an ELTID is provided, deletes the ELTID's line (starting from zero) "
++ "in the quote QUOTEID. If not the whole quote is deleted."
- "quote":"help":"quick":_ -> do
- answerMsg msg "quote [quick] QUOTEE [QUOTE] :"
- answerMsg msg $ " Begins a quote for QUOTEE. You must provide the keywork quick if the "
+ "quote":"help":"start":_ -> do
+ answerMsg msg "quote [start] QUOTEE [QUOTE] :"
+ answerMsg msg $ " Begins a quote for QUOTEE. You must provide the keywork start if the "
++ "QUOTEE's nickname is a reserved word for this quote module. If no QUOTE is "
++ "provided this module lookup it's conversation history and records the "
++ "last sentence of QUOTEE."
@@ -173,9 +173,11 @@ theQuote = do
answerMsg msg "quote stat"
answerMsg msg " Compute statistics about the quote database : Most quoters, most quoted "
"quote":"help":[] ->
- answerMsg msg $ "Usage: quote { [quick] 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 }"
"quote":"help":_ -> answerMsg msg "Invalid help topic."
+ "quote":"start":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
+ "quote":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
"quote":_ -> answerMsg msg "Invalid quote command."
"vote":"help":"quick":_ -> do
answerMsg msg "vote [quick] [QUOTEID] { +1 | -1 | ++ | -- }"
@@ -244,3 +246,20 @@ quoteDeleteElt quoteDB msg quoteID eltID = do
| otherwise = let (l, r) = splitAt eltID elts
in l ++ tail r
+quoteStart :: AcidState QuoteDB -> IRC.Message -> IRC.UserName -> String -> Plugin (Env IO) ()
+quoteStart quoteDB msg quotee phrase =
+ case phrase of
+ [] -> answerMsg msg "TODO: implement history lookup"
+ that -> quoteThat that
+ where
+ sender = getSender msg
+ channel = getChannel msg
+ quoteThat :: String -> Plugin (Env IO) ()
+ quoteThat thatQuote = do
+ now <- liftIO getCurrentTime
+ quoteID <- update' quoteDB (TakeNextQuoteID sender channel now)
+ let newQuote = emptyQuote { quoter = sender
+ , quotE = [ QuoteElt { eltQuotee = quotee, eltQuote = thatQuote } ]
+ , quoteTime = now }
+ update' quoteDB (SetQuote quoteID newQuote)
+