chat groups: establish connection between host and invitee members (#77)

* create group after invitation

* add group invitation to db, show sent and received group invitations

* test creating group and sending invitation

* establish group connections (WIP)

* connect user to the inviter, notification, member classification

src/Simplex/Chat/View.hs

@@ -15,6 +15,10 @@ module Simplex.Chat.View
     showReceivedMessage,
     showSentMessage,
     showGroupCreated,
+    showSentGroupInvitation,
+    showReceivedGroupInvitation,
+    showConnectedGroupMember,
+    showUserConnectedToGroup,
     safeDecodeUtf8,
   )
 where
@@ -22,6 +26,7 @@ where
 import Control.Monad.IO.Unlift
 import Control.Monad.Reader
 import Data.ByteString.Char8 (ByteString)
+import Data.Composition ((.:))
 import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Time.Clock (DiffTime, UTCTime)
@@ -48,7 +53,7 @@ showChatError = printToView . chatError
 showContactDeleted :: ChatReader m => ContactName -> m ()
 showContactDeleted = printToView . contactDeleted
 
-showContactConnected :: ChatReader m => ContactName -> m ()
+showContactConnected :: ChatReader m => Contact -> m ()
 showContactConnected = printToView . contactConnected
 
 showContactDisconnected :: ChatReader m => ContactName -> m ()
@@ -60,29 +65,59 @@ showReceivedMessage c utcTime msg mOk = printToView =<< liftIO (receivedMessage
 showSentMessage :: ChatReader m => ContactName -> ByteString -> m ()
 showSentMessage c msg = printToView =<< liftIO (sentMessage c msg)
 
-showGroupCreated :: ChatReader m => GroupProfile -> m ()
+showGroupCreated :: ChatReader m => Group -> m ()
 showGroupCreated = printToView . groupCreated
 
+showSentGroupInvitation :: ChatReader m => Group -> ContactName -> m ()
+showSentGroupInvitation = printToView .: sentGroupInvitation
+
+showReceivedGroupInvitation :: ChatReader m => Group -> ContactName -> m ()
+showReceivedGroupInvitation = printToView .: receivedGroupInvitation
+
+showConnectedGroupMember :: ChatReader m => GroupName -> ContactName -> m ()
+showConnectedGroupMember = printToView .: connectedGroupMember
+
+showUserConnectedToGroup :: ChatReader m => GroupName -> m ()
+showUserConnectedToGroup = printToView . userConnectedToGroup
+
 invitation :: SMPQueueInfo -> [StyledString]
 invitation qInfo =
   [ "pass this invitation to your contact (via another channel): ",
     "",
     (plain . serializeSmpQueueInfo) qInfo,
     "",
-    "and ask them to connect: /c <name_for_you> <invitation_above>"
+    "and ask them to connect: " <> highlight' "/c <invitation_above>"
   ]
 
 contactDeleted :: ContactName -> [StyledString]
 contactDeleted c = [ttyContact c <> " is deleted"]
 
-contactConnected :: ContactName -> [StyledString]
-contactConnected c = [ttyContact c <> " is connected"]
+contactConnected :: Contact -> [StyledString]
+contactConnected ct = [ttyFullContact ct <> " is connected"]
 
 contactDisconnected :: ContactName -> [StyledString]
 contactDisconnected c = ["disconnected from " <> ttyContact c <> " - restart chat"]
 
-groupCreated :: GroupProfile -> [StyledString]
-groupCreated GroupProfile {displayName, fullName} = ["group " <> ttyGroup displayName <> " (" <> plain fullName <> ") is created"]
+groupCreated :: Group -> [StyledString]
+groupCreated g@Group {localDisplayName} =
+  [ "group " <> ttyFullGroup g <> " is created",
+    "use " <> highlight ("/a #" <> localDisplayName <> " <name>") <> " to add members"
+  ]
+
+sentGroupInvitation :: Group -> ContactName -> [StyledString]
+sentGroupInvitation g c = ["invitation to join the group " <> ttyFullGroup g <> " sent to " <> ttyContact c]
+
+receivedGroupInvitation :: Group -> ContactName -> [StyledString]
+receivedGroupInvitation g@Group {localDisplayName} c =
+  [ ttyContact c <> " invites you to join the group " <> ttyFullGroup g,
+    "use " <> highlight ("/j #" <> localDisplayName) <> " to accept"
+  ]
+
+connectedGroupMember :: GroupName -> ContactName -> [StyledString]
+connectedGroupMember g c = [ttyContact c <> " joined the group " <> ttyGroup g]
+
+userConnectedToGroup :: GroupName -> [StyledString]
+userConnectedToGroup g = ["you joined the group " <> ttyGroup g]
 
 receivedMessage :: ContactName -> UTCTime -> Text -> MsgIntegrity -> IO [StyledString]
 receivedMessage c utcTime msg mOk = do
@@ -124,10 +159,20 @@ msgPlain = map styleMarkdownText . T.lines
 
 chatError :: ChatError -> [StyledString]
 chatError = \case
+  ChatError err -> case err of
+    CEGroupDuplicateMember c -> ["contact " <> ttyContact c <> " is already in the group"]
+    CEGroupDuplicateMemberId -> ["cannot add member - duplicate member ID"]
+    CEGroupRole -> ["insufficient role for this group command"]
+    CEGroupNotJoined g -> ["you did not join this group, use " <> highlight ("/join #" <> g)]
+    CEGroupMemberNotReady -> ["you cannot invite other members yet, try later"]
+    CEGroupInternal s -> ["chat group bug: " <> plain s]
+  -- e -> ["chat error: " <> plain (show e)]
   ChatErrorStore err -> case err of
     SEDuplicateName -> ["this display name is already used by user, contact or group"]
     SEContactNotFound c -> ["no contact " <> ttyContact c]
     SEContactNotReady c -> ["contact " <> ttyContact c <> " is not active yet"]
+    SEGroupNotFound g -> ["no group " <> ttyGroup g]
+    SEGroupAlreadyJoined -> ["you already joined this group"]
     e -> ["chat db error: " <> plain (show e)]
   ChatErrorAgent err -> case err of
     -- CONN e -> case e of
@@ -136,7 +181,7 @@ chatError = \case
     --   DUPLICATE -> ["contact " <> ttyContact c <> " already exists"]
     --   SIMPLEX -> ["contact " <> ttyContact c <> " did not accept invitation yet"]
     e -> ["smp agent error: " <> plain (show e)]
-  e -> ["chat error: " <> plain (show e)]
+  ChatErrorMessage e -> ["chat message error: " <> plain (show e)]
 
 printToView :: (MonadUnliftIO m, MonadReader ChatController m) => [StyledString] -> m ()
 printToView s = asks chatTerminal >>= liftIO . (`printToTerminal` s)
@@ -144,6 +189,10 @@ printToView s = asks chatTerminal >>= liftIO . (`printToTerminal` s)
 ttyContact :: ContactName -> StyledString
 ttyContact = styled (Colored Green)
 
+ttyFullContact :: Contact -> StyledString
+ttyFullContact Contact {localDisplayName, profile = Profile {fullName}} =
+  ttyContact localDisplayName <> optFullName localDisplayName fullName
+
 ttyToContact :: ContactName -> StyledString
 ttyToContact c = styled (Colored Cyan) $ "@" <> c <> " "
 
@@ -153,6 +202,21 @@ ttyFromContact c = styled (Colored Yellow) $ c <> "> "
 ttyGroup :: GroupName -> StyledString
 ttyGroup g = styled (Colored Blue) $ "#" <> g
 
+ttyFullGroup :: Group -> StyledString
+ttyFullGroup Group {localDisplayName, groupProfile = GroupProfile {fullName}} =
+  ttyGroup localDisplayName <> optFullName localDisplayName fullName
+
+optFullName :: Text -> Text -> StyledString
+optFullName localDisplayName fullName
+  | localDisplayName == fullName = ""
+  | otherwise = plain (" (" <> fullName <> ")")
+
+highlight :: StyledFormat a => a -> StyledString
+highlight = styled (Colored Cyan)
+
+highlight' :: String -> StyledString
+highlight' = highlight
+
 -- ttyFromGroup :: Group -> Contact -> StyledString
 -- ttyFromGroup (Group g) (Contact a) = styled (Colored Yellow) $ "#" <> g <> " " <> a <> "> "