core: add domain to channel /i output

This commit is contained in:
Evgeny @ SimpleX Chat
2026-07-12 07:19:51 +00:00
parent 2eddad6052
commit 3833de3e54
+6 -3
View File
@@ -1833,15 +1833,18 @@ viewContactInfo ct@Contact {contactId, profile = LocalProfile {localAlias, conta
<> viewCustomData customData
viewGroupInfo :: GroupInfo -> [StyledString]
viewGroupInfo gInfo@GroupInfo {groupId, businessChat, groupDomainVerified, uiThemes, customData, groupSummary = GroupSummary {currentMembers, publicMemberCount}} =
viewGroupInfo gInfo@GroupInfo {groupId, businessChat, groupDomainVerified, groupProfile = GroupProfile {publicGroup}, uiThemes, customData, groupSummary = GroupSummary {currentMembers, publicMemberCount}} =
[ "group ID: " <> sShow groupId,
memberCountLine
]
-- a business presents as a contact, so its verified domain is shown as an @-name
<> simplexDomainLine NTContact (businessDomain =<< businessChat) groupDomainVerified
<> domainLine
<> viewUITheme uiThemes
<> viewCustomData customData
where
-- a business presents as a contact (@-name); a public group/channel shows its #-name
domainLine = case businessChat of
Just bc -> simplexDomainLine NTContact (businessDomain bc) groupDomainVerified
Nothing -> simplexDomainLine NTPublicGroup (publicGroup >>= publicGroupAccess >>= groupDomainClaim) groupDomainVerified
memberCountLine
| useRelays' gInfo, Just count <- publicMemberCount = "subscribers: " <> sShow count
| otherwise = "current members: " <> sShow currentMembers