Add a basic API.

`/` provides a feed of the complete list, `/current` and `/past` give
current and past items, `/:item-name` allows display, creation, editing
and deletion of individual items.

clj/shame.clj

@@ -6,7 +6,9 @@
  (:use ring.util.response)
  (:use ring.middleware.reload)
  (:use ring.middleware.stacktrace)
  (:use [ring.middleware.format-response :only [wrap-restful-response]]))
  (:use [ring.middleware.format-response :only [wrap-restful-response]])
  (:use [ring.middleware.format-params :only [wrap-restful-params]]))
; roadmap:
;  1. implement add-item, resurrect-item, close-item
@@ -77,13 +79,43 @@
(dosync
  (ref-set *shaming* (read-shame "self.todo.json")))
(defn take-n [start amount coll]
  (take amount (drop start coll)))
(defn int-param [param & [default]]
  "Parse an integer from a string, with an optional default value (which defaults to 0)."
  (try (Integer/valueOf (or param default 0))
    (catch NumberFormatException n (or default 0))))
(defn filter-keys [map keys]
  (reduce-kv #(if (some (fn [k] (= k %2)) keys)
                (assoc %1 %2 %3)
                %1)
             {} map))
(defroutes shame-routes
  (GET "/" [] (response @*shaming*))
  (GET "/current" [] (response (:current @*shaming*)))
  (POST "/" [item] (dosync (ref-set *shaming*
                                      (add-item item @*shaming*))))
  (GET "/current" [start limit]
       (response
         (take-n (int-param start) (int-param limit 10) (:current @*shaming*))))
  (GET "/past" [start limit]
       (response
         (take-n (int-param start) (int-param limit 10) (:past @*shaming*))))
  (GET "/:item-name" [item-name] (response (get-by (:current @*shaming*)
                                         :name item-name)))
  (PUT "/:item-name" [item-name :as {params :params}] ; changes should be in the body?
       (dosync (ref-set *shaming*
                        (change-item item-name (filter-keys params [:name])  @*shaming*))))
  (DELETE "/:item-name" [item-name status]
          (dosync (ref-set *shaming*
                           (close-item item-name (or status "failed") @*shaming*))))
  (route/not-found "404 - Alternate Reality Monsters"))
(def serve
  (-> (handler/site shame-routes)
    (wrap-reload {:dirs ["."]})
    (wrap-stacktrace)
    (wrap-restful-params)
    (wrap-restful-response)))