Hoplon toggle button array

test.cljs.hl

(page "test.html")

(defc working-set [])

(defn setup-working-set
  "Initially populate the working set - normally the result of an async call"
  [data]
  (let [wset (map (fn [c] [c false]) data)]
    (reset! working-set wset))
  (prn working-set))
    

(setup-working-set ["T", "U", "V", "W"])

(html
  (head
    (title "Hoplon FTW"))
  
  (body
    (h1 "Watch and wonder!")
    (div
      (loop-tpl
        :bindings [[c state] working-set]
        (div 
          (h2 :text (cell= c))
          (span :text (cell= (if state "picked!" "left behind!")))
          (button
            :text "Click it"
            :click #(swap! state not)))))))