dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-03-30 20:45:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: only introduce to supporting moderators

Browse Source
This commit is contained in:
spaced4ndy
2025-04-28 15:03:17 +04:00
parent dd01ef5ae8
commit 6abffeb295
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
apps/multiplatform/common/src/commonMain/kotlin/chat/simplex/common/views/chat/item/ChatItemView.kt
View File

@@ -636,7 +636,7 @@ fun ChatItemView(
CIEventView(eventItemViewText(reversedChatItems))
}
@Composable fun UserPendingReviewEventItemView() {
@Composable fun PendingReviewEventItemView() {
Text(
buildAnnotatedString {
withStyle(chatEventStyle.copy(fontWeight = FontWeight.Bold)) { append(cItem.content.text) }
@@ -721,14 +721,14 @@ fun ChatItemView(
is CIContent.RcvGroupEventContent -> {
when (c.rcvGroupEvent) {
is RcvGroupEvent.MemberCreatedContact -> CIMemberCreatedContactView(cItem, openDirectChat)
is RcvGroupEvent.NewMemberPendingReview -> UserPendingReviewEventItemView()
is RcvGroupEvent.NewMemberPendingReview -> PendingReviewEventItemView()
else -> EventItemView()
}
MsgContentItemDropdownMenu()
}
is CIContent.SndGroupEventContent -> {
when (c.sndGroupEvent) {
is SndGroupEvent.UserPendingReview -> UserPendingReviewEventItemView()
is SndGroupEvent.UserPendingReview -> PendingReviewEventItemView()
else -> EventItemView()
}
MsgContentItemDropdownMenu()

2
src/Simplex/Chat/Library/Internal.hs
View File

@@ -975,7 +975,7 @@ introduceToModerators vr user gInfo@GroupInfo {groupId} m@GroupMember {memberRol
else XMsgNew $ MCSimple $ extMsgContent (MCText pendingReviewMessage) Nothing
void $ sendDirectMemberMessage mConn msg groupId
modMs <- withStore' $ \db -> getGroupModerators db vr user gInfo
let rcpModMs = filter memberCurrent modMs
let rcpModMs = filter (\mem -> memberCurrent mem && maxVersion (memberChatVRange mem) >= groupKnockingVersion) modMs
introduceMember vr user gInfo m rcpModMs (Just $ MSMember $ memberId' m)
introduceToAll :: VersionRangeChat -> User -> GroupInfo -> GroupMember -> CM ()