(ns casterly.handler
  (:use [compojure.core]
        [ring.adapter.jetty]
        [ring.middleware.reload]
        [ring.middleware.stacktrace]
        [ring.middleware.params]
        [ring.middleware.session]
        [ring.middleware.session.cookie]
        )
  (:require [compojure.handler :refer [site]]
            [compojure.route :as route]
            [cheshire.core :as json]
            [casterly-crypto :as ccrypt]
            ))

(import (ec.util MersenneTwisterFast)
        (DungeonGenerator))

(defn coord-test [x y]
  (let [seed       (ccrypt/coord-seed x y)
        myrand     (new ec.util.MersenneTwisterFast)
        dgenerator (new DungeonGenerator)
        width      80
        height     25
        ]
    (do
     (. myrand setSeed seed)
     (. dgenerator setRNG myrand)
     (. dgenerator createDungeon width height 20)
     (json/generate-string
      (reduce
       conj
       (for [y (range height)
             x (range width)]
         (let [cellValue (. dgenerator getCell x y)]
           (if (or (= cellValue DungeonGenerator/TILE_DIRTFLOOR)
                   (= cellValue DungeonGenerator/TILE_CORRIDOR)
                   (= cellValue DungeonGenerator/TILE_DOOR))
             {(str x "," y) "."}
             {}
             ))))))))

(defn session-test [session request]
  (let [
        ;;session (get request :session {})
        count   (get session :count 0)]
    { :body (str  "test" count) :session {:count (+ count 1)}})
  ;;(json/generate-string session)
  )

(defroutes app-routes
  (GET "/map/:x/:y" [x y]
       (str (coord-test x y)))
  (GET "/session" [session request]  ;;[request session]
       (session-test request))
  (route/resources "/")
  (route/not-found "Not Found"))

;;(decorate app-routes (with-session :memory))

(def handler
  (compojure.handler/site app-routes))

(def app
  (-> (var handler)
      compojure.handler/api
      ;;(wrap-rpc)
      (wrap-stacktrace)
      (wrap-session {:cookie-name "casterly-session"})
      (site)))