From 716b92fda8412149194b07d28d36cb69d9547ab5 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 30 Sep 2011 21:42:22 +0200
Subject: Implemented the quote start function.

---
 Hsbot/Plugin/Quote.hs | 27 +++++++++++++++++++++++----
 1 file 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)
+
-- 
cgit v1.2.3