This commit is contained in:
parent
e99f6de434
commit
32f18c3d3c
|
@ -39,10 +39,11 @@
|
||||||
(contact.db/public-key->new-contact identity)))
|
(contact.db/public-key->new-contact identity)))
|
||||||
|
|
||||||
(defn contact-two-names-by-identity
|
(defn contact-two-names-by-identity
|
||||||
[contact current-multiaccount identity]
|
[contact profile identity]
|
||||||
(let [me? (= (:public-key current-multiaccount) identity)]
|
(let [me? (= (:public-key profile) identity)]
|
||||||
(if me?
|
(if me?
|
||||||
[(or (:preferred-name current-multiaccount)
|
[(or (:preferred-name profile)
|
||||||
|
(:display-name profile)
|
||||||
(:primary-name contact)
|
(:primary-name contact)
|
||||||
(gfycat/generate-gfy identity))]
|
(gfycat/generate-gfy identity))]
|
||||||
[(:primary-name contact) (:secondary-name contact)])))
|
[(:primary-name contact) (:secondary-name contact)])))
|
||||||
|
|
Loading…
Reference in New Issue