Hide unknown referenced messages

This commit is contained in:
janherich 2018-10-12 17:32:42 +02:00 committed by Roman Volosovskyi
parent 5eeda7aa0b
commit b8fa4f5cbd
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 12 additions and 11 deletions

View File

@ -136,7 +136,7 @@
(defn quoted-message-data
"Selects certain data from quoted message which must be available in the view"
[message-id messages referenced-messages]
(let [{:keys [from content]} (get messages message-id
(when-let [{:keys [from content]} (get messages message-id
(get referenced-messages message-id))]
{:from from
:text (:text content)}))
@ -149,15 +149,16 @@
(into (list {:value datemark
:type :datemark})
(map (fn [{:keys [message-id timestamp-str]}]
(let [{:keys [content] :as message} (get messages message-id)]
(cond-> (assoc message
:datemark datemark
(let [{:keys [content] :as message} (get messages message-id)
quote (some-> (:response-to content)
(quoted-message-data messages referenced-messages))]
(cond-> (-> message
(update :content dissoc :response-to)
(assoc :datemark datemark
:timestamp-str timestamp-str
:user-statuses (get message-statuses message-id))
(:response-to content) ;; quoted message reference
(assoc-in [:content :response-to] (quoted-message-data (:response-to content)
messages
referenced-messages))))))
:user-statuses (get message-statuses message-id)))
quote ;; quoted message reference
(assoc-in [:content :response-to] quote)))))
message-references))
message-groups))