mongo.clj

(ns second-post.mongo
  (:use aleph)
  (:use karras.core
        karras.collection
        karras.sugar))

(def dummy (collection (connect) :dummy :foo))

(defn my-save [request]
  (future
   (insert dummy {:bar "test"})
   (respond! request
             {:status 200
              :headers {"Content-Type" "text/html"}
              :body "Saved!"})))

(run-aleph my-save {:port 8080})