core.clj

(ns rest-api.core
  (:use ring.adapter.jetty)
  (:require clojure.contrib.classpath)
  (:require [clojure.contrib.java-utils :as utils])
  (:require [rest-api.web :as web]))

(defn load-resource [name]
  (let [rsc-name (str name)
        thr (Thread/currentThread)
        ldr (.getContextClassLoader thr)]
    (.getResourceAsStream ldr rsc-name)))

(defn start-server [port]
  (run-jetty #'web/app {:port port}))

(defn -main [& [port]]
  ;(let [config (utils/read-properties (load-resource "rest-api.properties"))]
  (if port
    (start-server (Integer/parseInt port))
    (start-server 8080)));)