interacting with fogbugz using clojure

fogbugz.clj

(ns fogbugz
  (:use [clojure.xml :as xml]))

(def *base-url* "https://intra.unity3d.com/fogbugz/api.asp?")

(defn query-string-from-map [m]
  (apply str (interpose "&" (for [[key value] m] (str (name key) "=" value)))))

(defn rest-call [args]
  (let [query-string (query-string-from-map args)]
    (xml/parse (str *base-url* query-string))))

(defn rest-call-with-response [args]
  (let [response (rest-call args)]
    (-> response :content first :content)))

(defn logon [email password]
  (let [response (rest-call-with-response {:cmd "logon" :email email :password password})
        token (first response)]
    token))

(defn release-notes-for [token version]
  (let [response (rest-call-with-response {:token token :cmd "search" :q (str "fixfor:" version " and status:closed") :cols "sReleaseNotes"})
        bugs (map :content response)]
    bugs))