tweak: hide any not-implemented actions inside home (#19844)
This commit is contained in:
parent
1757dc5d53
commit
3951b8a39c
|
@ -415,13 +415,16 @@
|
||||||
[{:keys [chat-id public? chat-type muted-till]} inside-chat? needs-divider?]
|
[{:keys [chat-id public? chat-type muted-till]} inside-chat? needs-divider?]
|
||||||
[(mark-as-read-entry chat-id needs-divider?)
|
[(mark-as-read-entry chat-id needs-divider?)
|
||||||
(mute-chat-entry chat-id chat-type muted-till)
|
(mute-chat-entry chat-id chat-type muted-till)
|
||||||
(notifications-entry false)
|
(when config/show-not-implemented-features?
|
||||||
|
(notifications-entry false))
|
||||||
(when (and config/fetch-messages-enabled? inside-chat?)
|
(when (and config/fetch-messages-enabled? inside-chat?)
|
||||||
(chat-actions/fetch-messages chat-id))
|
(chat-actions/fetch-messages chat-id))
|
||||||
(when public?
|
(when public?
|
||||||
(show-qr-entry))
|
(when config/show-not-implemented-features?
|
||||||
|
(show-qr-entry)))
|
||||||
(when public?
|
(when public?
|
||||||
(share-group-entry))])
|
(when config/show-not-implemented-features?
|
||||||
|
(share-group-entry)))])
|
||||||
|
|
||||||
(defn group-actions
|
(defn group-actions
|
||||||
[{:keys [chat-id admins]} inside-chat?]
|
[{:keys [chat-id admins]} inside-chat?]
|
||||||
|
@ -430,10 +433,16 @@
|
||||||
[(group-details-entry chat-id)
|
[(group-details-entry chat-id)
|
||||||
(when inside-chat?
|
(when inside-chat?
|
||||||
(if admin?
|
(if admin?
|
||||||
(manage-members-entry)
|
(when config/show-not-implemented-features?
|
||||||
(add-members-entry)))
|
(manage-members-entry))
|
||||||
(when (and admin? inside-chat?) (edit-group-entry))
|
(when config/show-not-implemented-features?
|
||||||
(when (and admin? inside-chat?) (group-privacy-entry))]))
|
(add-members-entry))))
|
||||||
|
(when (and admin? inside-chat?)
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(edit-group-entry)))
|
||||||
|
(when (and admin? inside-chat?)
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(group-privacy-entry)))]))
|
||||||
|
|
||||||
(defn one-to-one-actions
|
(defn one-to-one-actions
|
||||||
[{:keys [chat-id] :as item} inside-chat?]
|
[{:keys [chat-id] :as item} inside-chat?]
|
||||||
|
@ -456,11 +465,17 @@
|
||||||
(let [current-pub-key (rf/sub [:multiaccount/public-key])]
|
(let [current-pub-key (rf/sub [:multiaccount/public-key])]
|
||||||
[quo/action-drawer
|
[quo/action-drawer
|
||||||
[[(view-profile-entry public-key)
|
[[(view-profile-entry public-key)
|
||||||
|
(when-not (= current-pub-key public-key)
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(rename-entry)))
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(show-qr-entry))
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(share-profile-entry))]
|
||||||
|
[(when-not (= current-pub-key public-key)
|
||||||
|
(when config/show-not-implemented-features?
|
||||||
|
(mark-untrustworthy-entry)))
|
||||||
(when-not (= current-pub-key public-key) (remove-from-contacts-entry contact))
|
(when-not (= current-pub-key public-key) (remove-from-contacts-entry contact))
|
||||||
(when-not (= current-pub-key public-key) (rename-entry))
|
|
||||||
(show-qr-entry)
|
|
||||||
(share-profile-entry)]
|
|
||||||
[(when-not (= current-pub-key public-key) (mark-untrustworthy-entry))
|
|
||||||
(when-not (= current-pub-key public-key) (block-user-entry contact))]
|
(when-not (= current-pub-key public-key) (block-user-entry contact))]
|
||||||
(when (and admin? chat-id)
|
(when (and admin? chat-id)
|
||||||
[(if (= current-pub-key public-key)
|
[(if (= current-pub-key public-key)
|
||||||
|
@ -485,6 +500,9 @@
|
||||||
(let [current-pub-key (rf/sub [:multiaccount/public-key])
|
(let [current-pub-key (rf/sub [:multiaccount/public-key])
|
||||||
admin? (get admins current-pub-key)]
|
admin? (get admins current-pub-key)]
|
||||||
[quo/action-drawer
|
[quo/action-drawer
|
||||||
[(when admin? [(edit-name-image-entry)])
|
[(when admin?
|
||||||
[(notifications-entry admin?)]
|
[(when config/show-not-implemented-features?
|
||||||
|
(edit-name-image-entry))])
|
||||||
|
[(when config/show-not-implemented-features?
|
||||||
|
(notifications-entry admin?))]
|
||||||
(destructive-actions group false)]]))
|
(destructive-actions group false)]]))
|
||||||
|
|
Loading…
Reference in New Issue