Update state

index.cljs.hl

(page "index.html"
  (:require
    [estimate-work.elements :as e]
    [estimate-work.elements.nav :as nav]
    [estimate-work.elements.estimate :as estimate]))

(defc state
  [{:data "foo"}
   {:data "bingz"}
   {:data ""}
   {:data "bar"}
   {:data ""}])

(defn prepare-values
  "Filter empty values, then add one empty on the end."
  [values]
  (conj (filterv #(seq (:data (last %))) (map-indexed (fn [idx v] [idx v]) values)) [(count values) {:data ""}]))

; (swap! state prepare-values)
(defc= prepared-values
  (prepare-values state))

(cell= (prn :state state))
(cell= (prn :preparede-values prepared-values))
(e/outer-dom
  (loop-tpl :bindings [[idx {data :data}] prepared-values]
      [(input
        :value data
        :change #(swap! state assoc-in [@idx :data] @%)
        :type "text") (br)]))