Write out the todo-list after each modifying operation.

clj/shame.clj

(def ^:dynamic *shaming*
  (ref nil))
(def ^:dynamic *shaming-file*
  "self.todo.json")
;; "backend"
(defn read-shame [filename]
;; web service
(dosync
  (ref-set *shaming* (read-shame "self.todo.json")))
  (ref-set *shaming* (read-shame *shaming-file*)))
(defn take-n [start amount coll]
  (take amount (drop start coll)))
(defroutes shame-api
  (GET "/" [] (response @*shaming*))
  (POST "/" [item] (dosync (ref-set *shaming*
                                      (add-item item @*shaming*))))
                                      (add-item item @*shaming*)))
        (write-shame *shaming-file* @*shaming*))
  (GET "/current" [start limit]
       (response
         (take-n (int-param start) (int-param limit 10) (: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*))))
                        (change-item item-name (filter-keys params [:name])  @*shaming*)))
       (write-shame *shaming-file* @*shaming*))
  (DELETE "/:item-name" [item-name status]
          (dosync (ref-set *shaming*
                           (close-item item-name (or status "failed") @*shaming*))))
                           (close-item item-name (or status "failed") @*shaming*)))
          (write-shame *shaming-file* @*shaming*))
  (route/not-found "404 - Alternate Reality Monsters"))
(defn render-item [item]