rendering of a new request in list

Former-commit-id: 952d3736c8
This commit is contained in:
Roman Volosovskyi 2016-06-30 11:12:10 +03:00
parent d6fd77697d
commit 0ce1e18581
3 changed files with 10 additions and 9 deletions

View File

@ -29,9 +29,7 @@
:status "open"}) :status "open"})
(realm/sorted :added :desc) (realm/sorted :added :desc)
(realm/collection->map)) (realm/collection->map))
requests' (->> requests requests' (map #(update % :type keyword) requests)]
(map #(update % :type keyword))
(into '()))]
(assoc-in db [:chats chat-id' :requests] requests'))) (assoc-in db [:chats chat-id' :requests] requests')))
(register-handler :add-request (register-handler :add-request

View File

@ -37,8 +37,11 @@
[text {:style st/request-message-info} [text {:style st/request-message-info}
"By console, today at 14:50"]]]]) "By console, today at 14:50"]]]])
(defn render-request-row [row _ _] (defn render-request-row
(list-item [request-item row])) [{:keys [chat-id message-id] :as row} _ _]
(list-item
^{:key [chat-id message-id]}
[request-item row]))
(defn suggestion-list-item (defn suggestion-list-item
[[command {:keys [description] [[command {:keys [description]