From d6cd82825741f4baa67e5acd26c8a66768e94158 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Mon, 12 Apr 2021 23:56:17 +0100
Subject: [PATCH] remove /reset command (#96)

---
 ChatOptions.hs | 1 -
 Main.hs        | 9 ++-------
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/ChatOptions.hs b/ChatOptions.hs
index 8d0ffe876d..8da33f816c 100644
--- a/ChatOptions.hs
+++ b/ChatOptions.hs
@@ -3,7 +3,6 @@
 module ChatOptions (getChatOpts, ChatOpts (..)) where
 
 import qualified Data.Attoparsec.ByteString.Char8 as A
-import Data.ByteString.Char8 (ByteString)
 import qualified Data.ByteString.Char8 as B
 import Options.Applicative
 import Simplex.Messaging.Agent.Transmission (SMPServer (..), smpServerP)
diff --git a/Main.hs b/Main.hs
index 365fa67e6b..cdc1152bc8 100644
--- a/Main.hs
+++ b/Main.hs
@@ -65,7 +65,6 @@ data ChatCommand
   | AddConnection Contact
   | Connect Contact SMPQueueInfo
   | DeleteConnection Contact
-  | ResetChat
   | SendMessage Contact ByteString
 
 chatCommandP :: Parser ChatCommand
@@ -75,7 +74,6 @@ chatCommandP =
     <|> ("/add " <|> "/a ") *> (AddConnection <$> contact)
     <|> ("/connect " <> "/c ") *> connect
     <|> ("/delete " <> "/d ") *> (DeleteConnection <$> contact)
-    <|> ("/reset" <> "/r") $> ResetChat
     <|> "@" *> sendMessage
   where
     connect = Connect <$> contact <* A.space <*> smpQueueInfoP
@@ -136,11 +134,10 @@ chatHelpInfo =
       "                    @<name> will be auto-typed to send to the previous contact -",
       "                    just start typing the message!",
       highlight "/delete" <> "           - delete contact and all messages you had with them",
-      highlight "/reset" <> "            - reset chat and all connections",
       highlight "/markdown" <> "         - markdown cheat-sheet",
       "",
       "Commands can be abbreviated to 1 letter: ",
-      listCommands ["/h", "/a", "/c", "/d", "/r", "/m"]
+      listCommands ["/h", "/a", "/c", "/d", "/m"]
     ]
   where
     listCommands = mconcat . intersperse ", " . map highlight
@@ -156,8 +153,7 @@ markdownInfo =
       "  +underlined+    - " <> Markdown Underline "underlined text",
       "  ~strikethrough~ - " <> Markdown StrikeThrough "strikethrough text" <> " (shown as inverse)",
       "  `code snippet`  - " <> Markdown Snippet "a + b // no *markdown* here",
-      "  !r text!        - " <> red "red text" <> " (red, green, blue, yellow, cyan, magenta)",
-      "  !1 text!        - " <> red "also red text" <> " (1-6)",
+      "  !1 text!        - " <> red "red text" <> " (1-6: red, green, blue, yellow, cyan, magenta)",
       "  #secret#        - " <> Markdown Secret "secret text" <> " (can be copy-pasted)"
     ]
   where
@@ -239,7 +235,6 @@ sendToAgent ChatClient {inQ, smpServer} ct AgentClient {rcvQ} = do
       AddConnection a -> transmission a $ NEW smpServer
       Connect a qInfo -> transmission a $ JOIN qInfo $ ReplyVia smpServer
       DeleteConnection a -> transmission a DEL
-      ResetChat -> transmission (Contact "") SUBALL
       SendMessage a msg -> transmission a $ SEND msg
       ChatHelp -> Nothing
       MarkdownHelp -> Nothing