tweak: hide any not-implemented actions inside home (#19844)

This commit is contained in:
Sean Hagstrom 2024-05-01 18:02:16 +01:00 committed by GitHub
parent 1757dc5d53
commit 3951b8a39c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 31 additions and 13 deletions

View File

@ -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)]]))