parent
5d7005c64f
commit
9aa89420c6
|
@ -63,9 +63,10 @@
|
|||
[text {:style st/command-name}
|
||||
(str "!" (:name command))]]]
|
||||
;; todo doesn't reflect design
|
||||
(when-let [icon (:icon command)]
|
||||
[view (st/command-image-view command)
|
||||
[image {:source {:uri (:icon command)}
|
||||
:style st/command-image}]]
|
||||
[image {:source {:uri icon}
|
||||
:style st/command-image}]])
|
||||
(if preview
|
||||
preview
|
||||
[text {:style st/command-text}
|
||||
|
|
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue