gistfile1.lisp

(ns carneades.web.routes
  (:use compojure.core
        carneades.web.views
        carneades.web.controller
        [hiccup.middleware :only (wrap-base-url)]
        ring.adapter.jetty
        ring.middleware.session)
  (:require [compojure.route :as route]
            [compojure.handler :as handler]
            [compojure.response :as response]
            [ring.middleware [multipart-params :as mp]]))

(defroutes main-routes
  (GET "/" [] (index-page))
  (mp/wrap-multipart-params
   (POST "/files" {params :params session :session body :body}
         (upload-file body (get params "lkif-file") session)))
  ;; (GET "/files" {session :session} (view-file session))
  (GET "/session" {session :session} (view-session session))
  (route/resources "/")
  (route/not-found "Page not found"))

(wrap! main-routes :session)

(def app
  (-> (handler/site main-routes)
      (wrap-base-url)))

(defonce server (run-jetty #'main-routes
                           {:join? false
                            :port 8080}))