server.clj

(import '(java.net ServerSocket Socket InetAddress))
(use '[clojure.contrib.duck-streams :only (reader spit)])

(defn handle-request [sock]
  (let [is (.. sock getInputStream)
        os (.. sock getOutputStream)]
    (with-open [rdr (reader is)]
      (println (line-seq rdr)))))

(defmulti http-listen class)

(defmethod http-listen ServerSocket [socket]
  "Bind to a socket and keep listening"
  (let [client-socket (.. socket accept)]
    (handle-request client-socket))
  (recur socket))

(defmethod http-listen Integer [port]
  "Takes a port number to listen on"
  (http-listen (ServerSocket. port)))

(http-listen 8081)