   (init-graph state)
   (go
     (let [{:keys [ws-channel error]} (<! (ws-ch "ws://localhost:8091/data/ws"))
-          broadcaster (rand-nth (keys broadcasters))
-          random-day (rand-int 31)]
+          broadcaster 2834511 #_(rand-nth (keys broadcasters))
+          random-day 24 #_(rand-int 31)]
       (swap! state assoc-in [:ws-channel] ws-channel)
       (swap! state assoc-in [:day] random-day)
       (>! ws-channel {:topic :user-tree :data {:broadcaster broadcaster :day random-day}})

      remove))


(defn update-graph
  "Updates nodes and links in graph"
  [state]

        node (.. svg
                 (selectAll "g.node")
                 (data (:nodes data)))]
    (draw-border state)
    (.. link enter (append "line")
        (attr {:class "link"})
        (style {:stroke-width 1 :stroke "#aaa"}))
