mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2024-12-17 17:20:21 +01:00
Evgeny Poberezkin
b38d5f3465
* started chat model * refactor processing commands and UI events * message chat event processing * groups: delayed delivery of messages and introductions to announced members (#217) * combine migrations, rename fields * show all view messages vis ChatResponse type * serialize chat response * update C api * remove unused extensions, fix typos Co-authored-by: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
37 lines
1.2 KiB
Haskell
37 lines
1.2 KiB
Haskell
module Simplex.Chat.Terminal where
|
|
|
|
import Control.Logger.Simple
|
|
import Control.Monad.Reader
|
|
import Simplex.Chat
|
|
import Simplex.Chat.Controller
|
|
import Simplex.Chat.Help (chatWelcome)
|
|
import Simplex.Chat.Options
|
|
import Simplex.Chat.Store
|
|
import Simplex.Chat.Terminal.Input
|
|
import Simplex.Chat.Terminal.Notification
|
|
import Simplex.Chat.Terminal.Output
|
|
import Simplex.Chat.Types (User)
|
|
import Simplex.Chat.Util (whenM)
|
|
import Simplex.Messaging.Util (raceAny_)
|
|
|
|
simplexChat :: WithTerminal t => ChatConfig -> ChatOpts -> t -> IO ()
|
|
simplexChat cfg opts t
|
|
| logging opts = do
|
|
setLogLevel LogInfo -- LogError
|
|
withGlobalLogging logCfg initRun
|
|
| otherwise = initRun
|
|
where
|
|
initRun = do
|
|
sendNotification' <- initializeNotifications
|
|
let f = chatStoreFile $ dbFilePrefix opts
|
|
st <- createStore f $ dbPoolSize cfg
|
|
user <- getCreateActiveUser st
|
|
ct <- newChatTerminal t
|
|
cc <- newChatController st user cfg opts sendNotification'
|
|
runSimplexChat user ct cc
|
|
|
|
runSimplexChat :: User -> ChatTerminal -> ChatController -> IO ()
|
|
runSimplexChat user ct = runReaderT $ do
|
|
whenM (asks firstTime) . liftIO . printToTerminal ct $ chatWelcome user
|
|
raceAny_ [runTerminalInput ct, runTerminalOutput ct, runInputLoop ct, runChatController]
|