IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reduce help size (#113)

Browse Source
This commit is contained in:
Evgeny Poberezkin 2021-04-30 09:06:59 +01:00 committed by GitHub
parent 8aaf0df8e7
commit 28b7d01117
1 changed files with 23 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
Main.hs
View File

@ -119,58 +119,36 @@ serializeChatResponse = \case
msgPlain :: ByteString -> [StyledString]
msgPlain = map styleMarkdownText . T.lines . safeDecodeUtf8
chatHelpInfo :: [StyledString]
chatHelpInfo =
map
styleMarkdown
[
"",
Markdown (Colored Green) "Using Simplex chat prototype:",
indent <> "A connection is established in three steps.",
indent <> "The following example shows how to set up a connection and message a contact.",
"",
Markdown (Colored Green) "Step 1:",
indent <> "Alice enters the add command to add her contact, Bob.",
"",
indent <> Markdown (Colored Yellow) "/add bob",
"",
indent <> "The add command creates an invitation.",
indent <> "Alice adds a name for her contact, Bob.",
indent <> "The command outputs an invitation to the terminal.",
indent <> "Alice copies the key and sends it to her contact,",
indent <> "Bob, out of band using a trusted method.",
"",
Markdown (Colored Green) "Step 2:",
indent <> "When Bob receives the invitation from Alice,",
indent <> "he uses the connect command to establish a connection.",
"",
indent <> Markdown (Colored Yellow) "/connect alice <invitation>",
"",
indent <> "Bob enters the command, followed by a name for his contact,",
indent <> "- in this case Alice - followed by the invitation he received out of band from Alice.",
"",
Markdown (Colored Green) "Step 3:",
indent <> "Bob and Alice are notified once the connection is established.",
indent <> "Both may now use the message command to send a message.",
"",
indent <> Markdown (Colored Yellow) "@bob Hello, Alice!",
"",
"",
Markdown (Colored Green) "Other commands:",
indent <> Markdown (Colored Yellow) "/delete" <> " - deletes contact and all communications with them.",
indent <> Markdown (Colored Yellow) "/markdown" <> " - displays cheatsheet of markdown syntax.",
"",
"The above commands may be abbreviated to a single letter: ",
listCommands ["/a", "/c", "/m", "/d"]
]
[ Markdown (Colored Cyan) "Using Simplex chat prototype.",
"Follow these steps to set up a connection:",
"",
Markdown (Colored Green) "Step 1: " <> Markdown (Colored Cyan) "/add bob" <> " -- Alice adds her contact, Bob (she can use any name).",
indent <> "Alice should send the invitation printed by the /add command",
indent <> "to her contact, Bob, out-of-band, via any trusted channel.",
"",
Markdown (Colored Green) "Step 2: " <> Markdown (Colored Cyan) "/connect alice <invitation>" <> " -- Bob accepts the invitation.",
indent <> "Bob also can use any name for his contact, Alice,",
indent <> "followed by the invitation he received out-of-band.",
"",
Markdown (Colored Green) "Step 3: " <> "Bob and Alice are notified that the connection is set up,",
indent <> "both can now send messages:",
indent <> Markdown (Colored Cyan) "@bob Hello, Bob!" <> " -- Alice messages Bob.",
indent <> Markdown (Colored Cyan) "@alice Hey, Alice!" <> " -- Bob replies to Alice.",
"",
Markdown (Colored Green) "Other commands:",
indent <> Markdown (Colored Cyan) "/delete" <> " -- deletes contact and all messages with them.",
indent <> Markdown (Colored Cyan) "/markdown" <> " -- prints the supported markdown syntax.",
"",
"The commands may be abbreviated to a single letter: " <> listCommands ["/a", "/c", "/d", "/m"]
]
where
listCommands = mconcat . intersperse ", " . map highlight
highlight = Markdown (Colored Cyan)
indent = " "
indent = " "
markdownInfo :: [StyledString]
markdownInfo =