check empty :preview

This commit is contained in:
Roman Volosovskyi 2016-06-14 18:33:06 +03:00
parent dfcf7cd47e
commit 3e60fd36a0
2 changed files with 7 additions and 5 deletions

View File

@ -63,9 +63,10 @@
[text {:style st/command-name}
(str "!" (:name command))]]]
;; todo doesn't reflect design
[view (st/command-image-view command)
[image {:source {:uri (:icon command)}
:style st/command-image}]]
(when-let [icon (:icon command)]
[view (st/command-image-view command)
[image {:source {:uri icon}
:style st/command-image}]])
(if preview
preview
[text {:style st/command-text}

View File

@ -56,8 +56,9 @@
(if (command-type? content-type)
(-> message
(update :content str-to-map)
(assoc :rendered-preview (generate-hiccup
(read-string preview)))
(assoc :rendered-preview (when preview
(generate-hiccup
(read-string preview))))
(dissoc :preview))
message)))))