Serve todo-list and current tasks from the web.

This definitely took to long for a few reasons:
- `wrap-response` needs a `{:dirs ["non-standard-dir"]}` parameter to
  work with weird directories
- to have `wrap-restful-response` pickup the clojure data returned by
  some routes you need to wrap your response in a `response` call
  (this wasn't obvious to me because strings were returned just fine and
  in the examples I didn't see anything like it before. a hint in the
  readme would probably help quite a few people. or just actually
  reading the docs...)

clj/project.clj

@@ -1,5 +1,9 @@
(defproject lp-clj "0.0"
  :description "Playing around with Clojure"
  :dependencies [[org.clojure/clojure "1.4.0"]
                 [org.clojure/data.json "0.2.1"]]
                 [org.clojure/data.json "0.2.1"]
                 [compojure "1.1.5"]
                 [ring-middleware-format "0.2.4"]]
  :plugins [[lein-ring "0.8.2"]]
  :ring {:handler shame/serve}
  :source-paths ["."])

clj/shame.clj

@@ -1,5 +1,12 @@
(ns shame
  (:use [clojure.data.json :as json :only []]))
  (:use [clojure.data.json :as json :only []])
  (:use compojure.core)
  (:require [compojure.handler :as handler]
            [compojure.route :as route])
  (:use ring.util.response)
  (:use ring.middleware.reload)
  (:use ring.middleware.stacktrace)
  (:use [ring.middleware.format-response :only [wrap-restful-response]]))
; roadmap:
;  1. implement add-item, resurrect-item, close-item
@@ -43,8 +50,26 @@
(def ^:dynamic *shaming*
  (ref nil))
;; "backend"
(defn read-shame [filename]
  (json/read-str (slurp filename) :key-fn keyword))
(defn write-shame [filename shaming]
  (spit filename (json/write-str shaming)))
;; web service
(dosync
  (ref-set *shaming* (read-shame "self.todo.json")))
(defroutes shame-routes
  (GET "/" [] (response @*shaming*))
  (GET "/current" [] (response (:current @*shaming*)))
  (route/not-found "404 - Alternate Reality Monsters"))
(def serve
  (-> (handler/site shame-routes)
    (wrap-reload {:dirs ["."]})
    (wrap-stacktrace)
    (wrap-restful-response)))