Watch me publicly fail at clojure

headspace.clj

(ns headspace.core
  (:use noir.core
        korma.db
        korma.core
        clojure.pprint)
  (:require [noir.server :as server]
            [noir.response :as response]
            [clojure.string :as string]
            [net.cgrand.enlive-html :as h])
  (:import java.net.URL))

(defdb db (mysql {
         ;remember to start ssh tunnel
         :db          "loophole"
         :user        "loophole"
         :delimiters  ""
         :password    ""}))

(defentity entries)

(defpage "/doi" {}
    (h/emit* (h/at*
               (h/html-resource (URL. "http://loophole.morpheus.net/hs/page.html"))
               (for [e (select entries (where {:date "062804"}))]
                 `([~(keyword(str "div." (:category e)))] ~(h/html-content (:data e)))))))

(server/start 8080)