test.cljs.hl

(page "test.html")

(defc working-set [])

(def indexed (partial map-indexed list))

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

(defn toggle-in-working-set!
  [i]
  (swap! working-set update-in [i 1] not))
    

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

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