simplex-chat-6.5.0.7
Safe HaskellNone
LanguageHaskell2010

Simplex.Chat.View

Documentation

type CurrentTime = UTCTime Source #

data WCallCommand Source #

Constructors

WCCallStart 

Fields

WCCallOffer 

Fields

WCCallAnswer 

Fields

Instances

Instances details
ToJSON WCallCommand Source # 
Instance details

Defined in Simplex.Chat.View

Methods

toJSON :: WCallCommand -> Value

toEncoding :: WCallCommand -> Encoding

toJSONList :: [WCallCommand] -> Value

toEncodingList :: [WCallCommand] -> Encoding

omitField :: WCallCommand -> Bool

serializeChatResponse :: ChatResponseEvent r => (Maybe RemoteHostId, Maybe User) -> ChatConfig -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> r -> String Source #

class ChatResponseEvent r where Source #

Methods

responseToView :: (Maybe RemoteHostId, Maybe User) -> ChatConfig -> Bool -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> r -> [StyledString] Source #

isCommandResponse :: Bool Source #

Instances

Instances details
ChatResponseEvent ChatEvent Source # 
Instance details

Defined in Simplex.Chat.View

Methods

responseToView :: (Maybe RemoteHostId, Maybe User) -> ChatConfig -> Bool -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> ChatEvent -> [StyledString] Source #

isCommandResponse :: Bool Source #

ChatResponseEvent ChatResponse Source # 
Instance details

Defined in Simplex.Chat.View

Methods

responseToView :: (Maybe RemoteHostId, Maybe User) -> ChatConfig -> Bool -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> ChatResponse -> [StyledString] Source #

isCommandResponse :: Bool Source #

chatResponseToView :: (Maybe RemoteHostId, Maybe User) -> ChatConfig -> Bool -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> ChatResponse -> [StyledString] Source #

chatEventToView :: (Maybe RemoteHostId, Maybe User) -> ChatConfig -> Bool -> CurrentTime -> TimeZone -> Maybe RemoteHostId -> ChatEvent -> [StyledString] Source #

userNtf :: User -> Bool Source #

chatDirNtf :: forall (c :: ChatType) (d :: MsgDirection). User -> ChatInfo c -> CIDirection c d -> Bool -> Bool Source #

contactNtf :: User -> Contact -> Bool -> Bool Source #

groupNtf :: User -> GroupInfo -> Bool -> Bool Source #

showMessageNtf :: ChatSettings -> Bool -> Bool Source #

chatItemDeletedText :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe GroupMember -> Maybe Text Source #

showSMPServer :: SMPServer -> String Source #

viewHostEvent :: AProtocolType -> TransportHost -> String Source #

viewChats :: CurrentTime -> TimeZone -> [AChat] -> [StyledString] Source #

viewChatItems :: (User -> [StyledString] -> [StyledString]) -> (forall (c :: ChatType) (d :: MsgDirection). User -> ChatInfo c -> ChatItem c d -> [StyledString] -> [StyledString]) -> User -> [AChatItem] -> UTCTime -> TimeZone -> [StyledString] Source #

viewChatItem :: forall (c :: ChatType) (d :: MsgDirection). MsgDirectionI d => ChatInfo c -> ChatItem c d -> Bool -> CurrentTime -> TimeZone -> [StyledString] Source #

localTs :: TimeZone -> UTCTime -> String Source #

viewChatItemStatusUpdated :: AChatItem -> CurrentTime -> TimeZone -> Bool -> Bool -> [StyledString] Source #

viewDeliveryReceipt :: MsgReceiptStatus -> StyledString Source #

viewItemUpdate :: forall (d :: MsgDirection) (c :: ChatType). MsgDirectionI d => ChatInfo c -> ChatItem c d -> Bool -> CurrentTime -> TimeZone -> [StyledString] Source #

hideLive :: forall (c :: ChatType) (d :: MsgDirection). CIMeta c d -> [StyledString] -> [StyledString] Source #

viewChatItemsDeleted :: (forall (c :: ChatType) (d :: MsgDirection). ChatInfo c -> ChatItem c d -> [StyledString] -> [StyledString]) -> [ChatItemDeletion] -> Bool -> Bool -> UTCTime -> TimeZone -> Bool -> [StyledString] Source #

viewItemDelete :: forall (c :: ChatType) (d :: MsgDirection). ChatInfo c -> ChatItem c d -> Maybe AChatItem -> Bool -> Bool -> CurrentTime -> TimeZone -> Bool -> [StyledString] Source #

viewItemReaction :: forall (c :: ChatType) (d :: MsgDirection). Bool -> ChatInfo c -> CIReaction c d -> Bool -> CurrentTime -> TimeZone -> [StyledString] Source #

viewRcvIntegrityError :: forall (c :: ChatType). StyledString -> MsgErrorType -> CurrentTime -> TimeZone -> CIMeta c 'MDRcv -> [StyledString] Source #

viewConnDiffSync :: DatabaseDiff AgentUserId -> DatabaseDiff AgentConnId -> [StyledString] Source #

viewConnDiffSummary :: DatabaseDiff AgentUserId -> DatabaseDiff AgentConnId -> [StyledString] Source #

viewConnDiffSummary' :: DatabaseDiff AgentUserId -> DatabaseDiff AgentConnId -> [StyledString] Source #

viewConnDiffIds :: DatabaseDiff AgentUserId -> DatabaseDiff AgentConnId -> [StyledString] Source #

subStatusStr :: SubscriptionStatus -> String Source #

protocolName :: forall (p :: ProtocolType). ProtocolTypeI p => SProtocolType p -> StyledString Source #

viewServerTestResult :: AProtoServerWithAuth -> Maybe ProtocolTestFailure -> [StyledString] Source #

viewOperator :: forall (s :: DBStored). ServerOperator' s -> Text Source #

viewOpIdTag :: forall (s :: DBStored). ServerOperator' s -> Text Source #

viewOpEnabled :: forall (s :: DBStored). ServerOperator' s -> Text Source #

viewChatItemTTL :: Maybe Int64 -> [StyledString] Source #

viewNetworkConfig :: NetworkConfig -> [StyledString] Source #

smpProxyModeStr :: SMPProxyMode -> SMPProxyFallback -> String Source #

viewContactInfo :: Contact -> Maybe ConnectionStats -> Maybe Profile -> [StyledString] Source #

viewGroupMemberInfo :: GroupInfo -> GroupMember -> Maybe ConnectionStats -> [StyledString] Source #

viewConnectionStats :: ConnectionStats -> [StyledString] Source #

viewRcvQueuesInfo :: [RcvQueueInfo] -> StyledString Source #

viewSndQueuesInfo :: [SndQueueInfo] -> StyledString Source #

viewContactCode :: Contact -> Text -> Bool -> [StyledString] Source #

viewSecurityCode :: StyledString -> Text -> Text -> Bool -> [StyledString] Source #

bold' :: String -> StyledString Source #

viewReceivedMessage_ :: forall (c :: ChatType) (d :: MsgDirection). Bool -> StyledString -> [StyledString] -> MsgContent -> CurrentTime -> TimeZone -> CIMeta c d -> [StyledString] Source #

receivedWithTime_ :: forall (c :: ChatType) (d :: MsgDirection). CurrentTime -> TimeZone -> StyledString -> [StyledString] -> CIMeta c d -> [StyledString] -> Bool -> [StyledString] Source #

ttyMsgTime :: CurrentTime -> TimeZone -> UTCTime -> StyledString Source #

recent :: CurrentTime -> TimeZone -> UTCTime -> Bool Source #

viewSentMessage :: forall (c :: ChatType) (d :: MsgDirection). StyledString -> [StyledString] -> MsgContent -> CurrentTime -> TimeZone -> CIMeta c d -> [StyledString] Source #

viewSentBroadcast :: MsgContent -> Int -> Int -> CurrentTime -> TimeZone -> UTCTime -> [StyledString] Source #

viewSentFileInvitation :: forall (d :: MsgDirection) (c :: ChatType). StyledString -> CIFile d -> CurrentTime -> TimeZone -> CIMeta c d -> [StyledString] Source #

sentWithTime_ :: forall (c :: ChatType) (d :: MsgDirection). CurrentTime -> TimeZone -> [StyledString] -> CIMeta c d -> [StyledString] Source #

receivingFile_' :: (Maybe RemoteHostId, Maybe User) -> Bool -> String -> AChatItem -> [StyledString] Source #

viewLocalFile :: forall (d :: MsgDirection) (c :: ChatType). StyledString -> CIFile d -> CurrentTime -> TimeZone -> CIMeta c d -> [StyledString] Source #

cryptoFileArgsStr :: Bool -> CryptoFileArgs -> StyledString Source #

fileFrom :: forall (c :: ChatType) (d :: MsgDirection). ChatInfo c -> CIDirection c d -> StyledString Source #

fileTransferStr :: Int64 -> String -> StyledString Source #

fileProgress :: [Integer] -> Integer -> Integer -> StyledString Source #

fileProgressXFTP :: Int64 -> Int64 -> Integer -> StyledString Source #

parens :: (IsString a, Semigroup a) => a -> a Source #

viewJSON :: ToJSON a => a -> StyledString Source #

ttyFullName :: ContactName -> Text -> Maybe Text -> StyledString Source #

optFullName :: ContactName -> Text -> Maybe Text -> StyledString Source #