index.cljs.hl

(page "index.html")

(defn process [in]
  (apply str (reverse in)))

(def input-str (cell ""))

(def processed (cell= (process input-str)))

(html
  (head
    (link :href "app.css" :rel "stylesheet"))
  (body
    (h2 "input")
    (let [working-input (cell "")]
     (div
     (textarea :keyup #(reset! working-input @%) :value working-input)
     (br)
     (button :click #(dosync 
                        (reset! input-str @working-input) 
                        (reset! working-input ""))
      "Process")))
    (h2 "output")
    (textarea :disabled true processed)))