                (or (System/getenv "PORT") "8080"))]
     (run-server application {:port port :join? false})))
 
+
+


(def clients (atom {}))

(defn ws [req]
  (with-channel req con 
    (swap! clients assoc con true)

(future (loop []
          (doseq [client @clients]
            (println "sending message to client...")
            (send msg_handler send_message "happiness")
            (send! (key client) (generate-string
                                  {:happiness (:count @msg_handler)})
                   false))
          (Thread/sleep 5000)
          (recur)))
