export C interface, started mobile app (#210)

* initial mobile app design draft

* add proposals

* xcode project

* refactor function to send to view as parameter

* export C interface

* remove unused files

* run chat from chatInit

* split chatStart to a separate function

* replace file-embed with QQ

* add mobile views

* server using IP address

* pass dbFilePrefix as parameter to chatInit

* comment on enabling logging

* fix mobile db config

* update C API, make user non-optional in ChatController

* restore SMP server addresses

* revert the change in the tests

* flip dependency - now Controller depends on Terminal

* make ChatController independent of terminal package

* fix Main.hs

* add iOS .gitignore

* refactor Simplex.Chat.Terminal

Co-authored-by: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>

src/Simplex/Chat/Controller.hs

@@ -2,6 +2,7 @@
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Simplex.Chat.Controller where
@@ -14,9 +15,8 @@ import Crypto.Random (ChaChaDRG)
 import Data.Int (Int64)
 import Data.Map.Strict (Map)
 import Numeric.Natural
-import Simplex.Chat.Notification
 import Simplex.Chat.Store (StoreError)
-import Simplex.Chat.Terminal
+import Simplex.Chat.Styled
 import Simplex.Chat.Types
 import Simplex.Messaging.Agent (AgentClient)
 import Simplex.Messaging.Agent.Env.SQLite (AgentConfig)
@@ -41,14 +41,18 @@ data ChatConfig = ChatConfig
     fileChunkSize :: Integer
   }
 
+data ActiveTo = ActiveNone | ActiveC ContactName | ActiveG GroupName
+  deriving (Eq)
+
 data ChatController = ChatController
   { currentUser :: TVar User,
+    activeTo :: TVar ActiveTo,
     firstTime :: Bool,
     smpAgent :: AgentClient,
-    chatTerminal :: ChatTerminal,
     chatStore :: SQLiteStore,
     idsDrg :: TVar ChaChaDRG,
     inputQ :: TBQueue InputEvent,
+    outputQ :: TBQueue [StyledString],
     notifyQ :: TBQueue Notification,
     sendNotification :: Notification -> IO (),
     chatLock :: TMVar (),
@@ -90,9 +94,9 @@ data ChatErrorType
 type ChatMonad m = (MonadUnliftIO m, MonadReader ChatController m, MonadError ChatError m, MonadFail m)
 
 setActive :: (MonadUnliftIO m, MonadReader ChatController m) => ActiveTo -> m ()
-setActive to = asks (activeTo . chatTerminal) >>= atomically . (`writeTVar` to)
+setActive to = asks activeTo >>= atomically . (`writeTVar` to)
 
 unsetActive :: (MonadUnliftIO m, MonadReader ChatController m) => ActiveTo -> m ()
-unsetActive a = asks (activeTo . chatTerminal) >>= atomically . (`modifyTVar` unset)
+unsetActive a = asks activeTo >>= atomically . (`modifyTVar` unset)
   where
     unset a' = if a == a' then ActiveNone else a'