       ]))
 
 
-(defn uuid []
+(defn uuid
+  []
   (d/squuid))
 
-(defn- db->user [e]
+(defn- db->user
+  [e]
   {:id (:user/id e)
    :email (:user/email e)
    :avatar (:user/avatar e)})
 
-(defn- db->message [e]
+(defn- db->message
+  [e]
   {:id (:message/id e)
    :content (:message/content e)
    :user-id (:user/id (:message/user e))

                             [:db/add [:thread/id thread-id]
                              :thread/tag [:tag/id tag-id]]))))

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

       (d/db *conn*)
       user-id))

(defn- get-users-subscribed-to-tag
  [tag-id]
  (d/q '[:find [?user-id ...]
         :in $ ?tag-id
         :where
