From d0b0fb6ac1340880d7e4f1ea423604714a11cfb4 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 22 Aug 2010 18:16:21 +0200
Subject: Added the help command for the quote module.

---
 HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs | 17 +++++++++++++++++
 HsbotIrcBot/hsbot-irc.cabal           |  2 +-
 2 files changed, 18 insertions(+), 1 deletion(-)

(limited to 'HsbotIrcBot')

diff --git a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
index 81c3794..ab4734a 100644
--- a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
+++ b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
@@ -105,6 +105,23 @@ runCommand intCmd
     -- | quote command dispatcher
     dispatchQuoteCmd :: String -> QuoteBot ()
     dispatchQuoteCmd cmd
+      | cmd == "help" =
+          case length stuff of
+               0 -> lift $ answerMsg request ("Usage: quote [append|commit|help|quick|start] {quoteId} {nickname} {quote}")
+               _ -> case head stuff of
+                         "quick" -> do
+                             lift $ answerMsg request ("quote quick [nickname] [quote]")
+                             lift $ answerMsg request ("  Performs a single line quote.")
+                         "start" -> do
+                             lift $ answerMsg request ("quote start [nickname] [quote]")
+                             lift $ answerMsg request ("  Begins a multi lines quote. Use either append to append new lines, or commit to terminate the quoting process.")
+                         "append" -> do
+                             lift $ answerMsg request ("quote append [quoteId] [nickname] [quote]")
+                             lift $ answerMsg request ("  Continue a multi line quote by appending to it.")
+                         "commit" -> do
+                             lift $ answerMsg request ("quote commit [quoteId]")
+                             lift $ answerMsg request ("  Terminates a multi lines quote.")
+                         _ -> lift $ answerMsg request ("Usage: quote [append|commit|help|quick|start] {quoteId} {nickname} {quote}")
       | cmd == "quick" = do
           quoteBot <- get
           now <- liftIO $ getCurrentTime
diff --git a/HsbotIrcBot/hsbot-irc.cabal b/HsbotIrcBot/hsbot-irc.cabal
index 5e9d7d0..c170d53 100644
--- a/HsbotIrcBot/hsbot-irc.cabal
+++ b/HsbotIrcBot/hsbot-irc.cabal
@@ -1,5 +1,5 @@
 Name:               hsbot-irc
-Version:            0.3.10
+Version:            0.3.11
 Cabal-version:      >=1.2
 Synopsis:           The irc part of a multi-purposes bot.
 Description:
-- 
cgit v1.2.3