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 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'HsbotIrcBot/Hsbot')

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
-- 
cgit v1.2.3