22 lines
457 B
Clojure
22 lines
457 B
Clojure
(ns sliva.pages.hub
|
|
(:require [sliva.socket :refer [websocket-init click-test]]
|
|
[sliva.data :refer [appstate]]))
|
|
|
|
(websocket-init)
|
|
(click-test)
|
|
|
|
(defn hub []
|
|
[:div
|
|
[:h1 "Connected clients"]
|
|
[:table
|
|
[:thead
|
|
[:tr
|
|
[:th "Client ID"]
|
|
[:th "Something else?"]]]
|
|
[:tbody
|
|
(map (fn [cid]
|
|
[:tr {:key cid}
|
|
[:td cid]
|
|
[:td "connected"]])
|
|
(keys (:clients @appstate)))]]])
|