Added the quote quick command.

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

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:

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