[FIX: #2262]: DApp description for default contacts (partial fix)
Adds description to default contacts load. Partial fix in the sense that overwriting contacts don't work yet. Add description key to v16 migration.
This commit is contained in:
parent
29030db2b6
commit
ec2d3a77a7
|
@ -13,6 +13,7 @@
|
||||||
:mixable? {:type :bool :default false}
|
:mixable? {:type :bool :default false}
|
||||||
:status {:type :string :optional true}
|
:status {:type :string :optional true}
|
||||||
:fcm-token {:type :string :optional true}
|
:fcm-token {:type :string :optional true}
|
||||||
|
:description {:type :string :optional true}
|
||||||
:public-key {:type :string
|
:public-key {:type :string
|
||||||
:optional true}
|
:optional true}
|
||||||
:private-key {:type :string
|
:private-key {:type :string
|
||||||
|
|
|
@ -23,6 +23,7 @@
|
||||||
(spec/def :contact/photo-path (spec/nilable string?))
|
(spec/def :contact/photo-path (spec/nilable string?))
|
||||||
(spec/def :contact/status (spec/nilable string?))
|
(spec/def :contact/status (spec/nilable string?))
|
||||||
(spec/def :contact/fcm-token (spec/nilable string?))
|
(spec/def :contact/fcm-token (spec/nilable string?))
|
||||||
|
(spec/def :contact/description (spec/nilable string?))
|
||||||
|
|
||||||
(spec/def :contact/last-updated (spec/nilable int?))
|
(spec/def :contact/last-updated (spec/nilable int?))
|
||||||
(spec/def :contact/last-online (spec/nilable int?))
|
(spec/def :contact/last-online (spec/nilable int?))
|
||||||
|
@ -67,7 +68,8 @@
|
||||||
:contact/responses
|
:contact/responses
|
||||||
:contact/debug?
|
:contact/debug?
|
||||||
:contact/subscriptions
|
:contact/subscriptions
|
||||||
:contact/fcm-token]))
|
:contact/fcm-token
|
||||||
|
:contact/description]))
|
||||||
|
|
||||||
;;Contact list ui props
|
;;Contact list ui props
|
||||||
(spec/def :contact-list-ui/edit? boolean?)
|
(spec/def :contact-list-ui/edit? boolean?)
|
||||||
|
|
|
@ -211,9 +211,12 @@
|
||||||
:timestamp (random/timestamp)
|
:timestamp (random/timestamp)
|
||||||
:contacts (mapv #(hash-map :identity %) contacts)})]])
|
:contacts (mapv #(hash-map :identity %) contacts)})]])
|
||||||
|
|
||||||
|
;; TODO(oskarth): Consider getting rid of the :when so we can overwrite default
|
||||||
|
;; contacts with default_contacts.json This requires changing semantics of
|
||||||
|
;; update-pending-status (from :add-contacts handler) too.
|
||||||
(defn- prepare-default-contacts-events [contacts default-contacts]
|
(defn- prepare-default-contacts-events [contacts default-contacts]
|
||||||
[[:add-contacts
|
[[:add-contacts
|
||||||
(for [[id {:keys [name photo-path public-key add-chat? pending?
|
(for [[id {:keys [name photo-path public-key add-chat? pending? description
|
||||||
dapp? dapp-url dapp-hash bot-url unremovable? mixable?]}] default-contacts
|
dapp? dapp-url dapp-hash bot-url unremovable? mixable?]}] default-contacts
|
||||||
:let [id' (clojure.core/name id)]
|
:let [id' (clojure.core/name id)]
|
||||||
:when (not (get contacts id'))]
|
:when (not (get contacts id'))]
|
||||||
|
@ -228,6 +231,7 @@
|
||||||
:dapp? dapp?
|
:dapp? dapp?
|
||||||
:dapp-url (:en dapp-url)
|
:dapp-url (:en dapp-url)
|
||||||
:bot-url bot-url
|
:bot-url bot-url
|
||||||
|
:description description
|
||||||
:dapp-hash dapp-hash})]])
|
:dapp-hash dapp-hash})]])
|
||||||
|
|
||||||
(defn- prepare-add-chat-events [contacts default-contacts]
|
(defn- prepare-add-chat-events [contacts default-contacts]
|
||||||
|
|
Loading…
Reference in New Issue