(ns clojure-web.core
    (:gen-class)
    (:use compojure.core ring.adapter.jetty)
    (:require [compojure.route :as route]))

(def my-routes (ref #{}))

(defn add-route [fn]
    (dosync
        (alter my-routes conj fn)))

(add-route (GET "/" [] "Hello, world!"))
(add-route (GET "/" [] "Hey, moon!"))

(defroutes app my-routes)

(defn -main [port]
  (run-jetty app {:port (Integer. port)}))