SimpleX-Chat/src/Simplex/Chat/Terminal.hs

{-# LANGUAGE FlexibleContexts #-}

module Simplex.Chat.Terminal where

import Control.Logger.Simple
import Control.Monad.Except
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.Messaging.Util (raceAny_)
import UnliftIO (async, waitEither_)

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
      u <- getCreateActiveUser st
      ct <- newChatTerminal t
      cc <- newChatController st (Just u) cfg opts sendNotification'
      runSimplexChat u ct cc

runSimplexChat :: User -> ChatTerminal -> ChatController -> IO ()
runSimplexChat u ct cc = do
  when (firstTime cc) . printToTerminal ct $ chatWelcome u
  a1 <- async $ runChatTerminal ct cc
  a2 <- runReaderT (startChatController u) cc
  waitEither_ a1 a2

runChatTerminal :: ChatTerminal -> ChatController -> IO ()
runChatTerminal ct cc = raceAny_ [runTerminalInput ct cc, runTerminalOutput ct cc, runInputLoop ct cc]