index.cljs.hl

(page "index.html")

(defc composite-data {"A" "Apple" "B" "Boy"})

(defc data-key "A")

(defc= data-value
  (get composite-data data-key)
  (fn [item] (swap! composite-data assoc @data-key item)))

(html
  (head)
  (body
    (p (text "data: ~{composite-data}"))
    (p (text "key: ")
       (input
         :type "text"
         :value data-key
         :keyup #(reset! data-key @%)))
    (p (text "value: ")
       (input
         :type "text"
         :value data-value
         :keyup #(reset! data-value @%)))))