gistfile1.clj

(ns blog
  (:require
    [goog.Uri :as uri]
    [goog.net.XhrIo :as xhrIo]
    [goog.events :as events]
    [goog.dom :as dom]))

(def essays-uri (goog.Uri. "http://localhost:8080/essays/part"))

(defn retrieve [url callback]
  (goog.net.XhrIo/send url callback "GET"))

(defn do-track-refresh-clicked []
  (if-let [essay-el (dom/getElement "essay")]
    (retrieve essays-uri #(dom/replaceNode
			   (dom/htmlToDocumentFragment (.. % target (getResponseText)))
			   essay-el))))

(events/listen (dom/getElement "refresh")
               "click"
                do-track-refresh-clicked)