From d33ab441f876620171ff70762069efb378824562 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 22 Aug 2010 17:57:30 +0200
Subject: Added the quote quick command.

---
 HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs | 10 ++++++++++
 HsbotIrcBot/hsbot-irc.cabal           |  2 +-
 TODO                                  |  6 +++---
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
index 0335d8b..81c3794 100644
--- a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
+++ b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
@@ -105,6 +105,16 @@ runCommand intCmd
     -- | quote command dispatcher
     dispatchQuoteCmd :: String -> QuoteBot ()
     dispatchQuoteCmd cmd
+      | cmd == "quick" = do
+          quoteBot <- get
+          now <- liftIO $ getCurrentTime
+          let sender   = takeWhile (/= '!') $ fromMaybe "ARGH" (ircMsgPrefix request)
+              newQuote = Quote sender [(quoteElt stuff)] now 0
+              quoteId  = nextQuoteId quoteBot
+              quoteBotDB' = M.insert quoteId newQuote (quoteBotDB quoteBot)
+          put $ quoteBot { nextQuoteId = quoteId + 1, quoteBotDB = quoteBotDB' }
+          lift $ answerMsg request ("New quoteId : " ++ show quoteId)
+          syncQuoteBot
       | cmd == "start"  = do
           quoteBot <- get
           now <- liftIO $ getCurrentTime
diff --git a/HsbotIrcBot/hsbot-irc.cabal b/HsbotIrcBot/hsbot-irc.cabal
index 861e506..5e9d7d0 100644
--- a/HsbotIrcBot/hsbot-irc.cabal
+++ b/HsbotIrcBot/hsbot-irc.cabal
@@ -1,5 +1,5 @@
 Name:               hsbot-irc
-Version:            0.3
+Version:            0.3.10
 Cabal-version:      >=1.2
 Synopsis:           The irc part of a multi-purposes bot.
 Description:
diff --git a/TODO b/TODO
index 7ad46ba..2921243 100644
--- a/TODO
+++ b/TODO
@@ -1,9 +1,9 @@
 :julien!~julien@ogu21.corp PRIVMSG #shbot :@quote graou snif
 
-* Design another way to launch and manage hsbot and it's configuration
-* Improved configuration file errors display
+* Improve configuration file errors display
+* fork process in background
+* implement logging capabilities
 
-* implement quick quoting for one line quotes
 * write the vote system for the quote module
 * only the quote reporter should be able to edit it
 * detect too identical quoting in a raw, or implement quote abort
-- 
cgit v1.2.3