                              [:db/add [:thread/id thread-id]
                               :thread/tag [:tag/id tag-id]]))))
 
-(defn get-thread-tags [thread-id]
+(defn get-thread-tags
+  [thread-id]
   (d/q '[:find [?tag-id ...]
          :in $ ?thread-id
          :where

       (map first)
       (map db->thread)))

(defn get-thread [thread-id]
  (-> (d/q '[:find (pull ?thread [:thread/id
                                  {:thread/tag [:tag/id]}
                                  {:message/_thread [:message/id

            (d/db *conn*))
       (map (comp db->user first))))

(defn fetch-messages
  []
  (->> (d/q '[:find (pull ?e [:message/id
                              :message/content
                              :message/created-at
