       (throw (ex-info "Unable to connect" first-msg)))
     (keep-alive conn shutdown?)
     conn))
-
-
 
 (defn connect [token]
   (let [conn-data (-> (str "https://slack.com/api/rtm.start?token=" token)

     :team/questions (for [text questions]
                       {:question/text text})})

  (d/transact db-conn [(create-team "abc" "fdiosjfsodij" "* * * * *"
                                    [["jonas" "jonas@gmail"]]
                                    ["Who are you?"
                                     "Where are you?"
                                     "Where are you going?"])])

  (d/transact db-conn [(create-team "def" "fdsoifjsidojf" "* * * * *"
                                    [["ivan" "ivan@gmail"]
                                     ["john" "doe@gmail"]]
                                    ["What is your age?"])])

  (d/transact db-conn [[:db.fn/retractEntity [:team/domain "def"]]])

  (d/transact db-conn [[:db/add [:team/domain "abc"] :team/schedule "* * F * *"]])

  (d/pull (d/db db-conn) [:team/domain :team/schedule] [:team/domain "abc"])




                     [?team :team/members ?member]
                     [?member :member/name ?name]]
                   db domain)
        questions (d/q '[:find [(pull ?question [:db/id :question/text :question/order]) ...]
                         :in $ ?domain
                         :where
                         [?team :team/domain ?domain]
