simplex-chat schema, refactor chat to use SMP agent functions (#62)

* chat messages namespace and types

* initial schema (WIP)

* schema for messages (WIP)

* fix schema, add migrations, remove broadcast

* simplex-chat spike (WIP)

* chat client design

* update chat schema

* more chat schema updates

* simplex-chat app structure

* chat app layout demo

* update schema

* refactor dog-food (WIP)

* refactor / simplify

* refactor output of sent message to avoid separate parsing

* refactor inputSubscriber

* remove unused simplex-chat code

* update simplexmq commit

* update schema

* remove ncurses

src/Simplex/Chat/Protocol._hs

@@ -1,13 +0,0 @@
-module Simplex.Chat.Protocol where
-
-data Profile = Profile
-  { displayName :: Text,
-    fullName :: Text
-  }
-
-data Contact = Contact
-  { profile :: Profile,
-    connection :: ConnAlias
-  }
-
-data ChatMessage = ContentMessage | ReadNotification | FileTransfer

src/Simplex/Chat/Protocol.hs

@@ -0,0 +1,44 @@
+{-# LANGUAGE DuplicateRecordFields #-}
+
+module Simplex.Chat.Protocol where
+
+import Data.ByteString (ByteString)
+import Data.Text (Text)
+import Simplex.Messaging.Agent.Protocol (ConnId)
+
+data ChatEvent = GroupEvent | MessageEvent | InfoEvent
+
+data Profile = Profile
+  { profileId :: ByteString,
+    displayName :: Text
+  }
+
+data Contact = Contact
+  { contactId :: ByteString,
+    profile :: Profile,
+    connections :: [Connection]
+  }
+
+data Connection = Connection
+  { connId :: ConnId,
+    connLevel :: Int,
+    viaConn :: ConnId
+  }
+
+data GroupMember = GroupMember
+  { groupId :: ByteString,
+    sharedMemberId :: ByteString,
+    contact :: Contact,
+    memberRole :: GroupMemberRole,
+    memberStatus :: GroupMemberStatus
+  }
+
+data GroupMemberRole = GROwner | GRAdmin | GRStandard
+
+data GroupMemberStatus = GSInvited | GSConnected | GSConnectedAll
+
+data Group = Group
+  { groupId :: ByteString,
+    displayName :: Text,
+    members :: [GroupMember]
+  }

src/Simplex/Chat/Styled.hs

@@ -0,0 +1,71 @@
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Simplex.Chat.Styled
+  ( StyledString (..),
+    bPlain,
+    plain,
+    styleMarkdown,
+    styleMarkdownText,
+    styled,
+    sLength,
+  )
+where
+
+import Data.ByteString.Char8 (ByteString)
+import qualified Data.ByteString.Char8 as B
+import Data.String
+import Data.Text (Text)
+import qualified Data.Text as T
+import Simplex.Chat.Markdown
+import System.Console.ANSI.Types
+
+data StyledString = Styled [SGR] String | StyledString :<>: StyledString
+
+instance Semigroup StyledString where (<>) = (:<>:)
+
+instance Monoid StyledString where mempty = plain ""
+
+instance IsString StyledString where fromString = plain
+
+plain :: String -> StyledString
+plain = Styled []
+
+bPlain :: ByteString -> StyledString
+bPlain = Styled [] . B.unpack
+
+styleMarkdownText :: Text -> StyledString
+styleMarkdownText = styleMarkdown . parseMarkdown
+
+styleMarkdown :: Markdown -> StyledString
+styleMarkdown (s1 :|: s2) = styleMarkdown s1 <> styleMarkdown s2
+styleMarkdown (Markdown Snippet s) = '`' `wrap` styled Snippet s
+styleMarkdown (Markdown Secret s) = '#' `wrap` styled Secret s
+styleMarkdown (Markdown f s) = styled f s
+
+wrap :: Char -> StyledString -> StyledString
+wrap c s = plain [c] <> s <> plain [c]
+
+class StyledFormat a where
+  styled :: Format -> a -> StyledString
+
+instance StyledFormat String where styled = Styled . sgr
+
+instance StyledFormat ByteString where styled f = styled f . B.unpack
+
+instance StyledFormat Text where styled f = styled f . T.unpack
+
+sgr :: Format -> [SGR]
+sgr = \case
+  Bold -> [SetConsoleIntensity BoldIntensity]
+  Italic -> [SetUnderlining SingleUnderline, SetItalicized True]
+  Underline -> [SetUnderlining SingleUnderline]
+  StrikeThrough -> [SetSwapForegroundBackground True]
+  Colored c -> [SetColor Foreground Vivid c]
+  Secret -> [SetColor Foreground Dull Black, SetColor Background Dull Black]
+  Snippet -> []
+  NoFormat -> []
+
+sLength :: StyledString -> Int
+sLength (Styled _ s) = length s
+sLength (s1 :<>: s2) = sLength s1 + sLength s2