feat: display reaction emojis on each msg

Author: oxalorg

src/clojurians_log/views.clj

@@ -197,7 +197,12 @@
                                                           :ts ts})}
                                      (cl.tu/format-inst-time inst)]]
            [:span.message_star]
-           [:span.message_content [:p (slack-messages/message->hiccup text usernames emojis)]]])))
+           [:span.message_content [:p (slack-messages/message->hiccup text usernames emojis)]]
+           "Reactions: "
+           (for [reaction (:reaction/_message message)]
+             [:span.emoji
+              (slack-messages/text->emoji
+               (get-in reaction [:reaction/emoji :emoji/shortcode]))])])))
 
 (defn- message-hiccup
   "Returns either a single message hiccup, or if the given message starts a thread,