32 lines
1.1 KiB
Clojure
32 lines
1.1 KiB
Clojure
|
(ns grub.core
|
||
|
|
(:use [org.httpkit.server :only [run-server]])
|
||
|
|
(:require [ring.middleware.reload :as reload]
|
||
|
|
[compojure.handler :only [site]]
|
||
|
|
[compojure.core :only [defroutes GET POST]]))
|
||
|
|
|
||
|
|
(defroutes routes
|
||
|
|
(GET "/" [] "handling-page")
|
||
|
|
(GET "/save" [] handler) ;; websocket
|
||
|
|
(route/not-found "<p>Page not found.</p>")) ;; all other, return 404
|
||
|
|
|
||
|
|
(defn -main [& args] ;; entry point, lein run will pick up and start from here
|
||
|
|
(let [handler (if (in-dev? args)
|
||
|
|
(reload/wrap-reload (site #'routes)) ;; only reload when dev
|
||
|
|
(site routes))]
|
||
|
|
(run-server handler {:port 8080})))
|
||
|
|
|
||
|
|
(comment
|
||
|
|
(defn async-handler [ring-request]
|
||
|
|
(with-channel ring-request channel
|
||
|
|
(if (websocket? channel)
|
||
|
|
(println "WebSocket channel")
|
||
|
|
(println "HTTP channel"))
|
||
|
|
(on-receive channel (fn [data]
|
||
|
|
(send! channel data)))
|
||
|
|
(send! channel {:status 200
|
||
|
|
:headers {"Content-Type" "text/plain"}
|
||
|
|
:body "Long polling?"})))
|
||
|
|
|
||
|
|
(run-server async-handler {:port 8080})
|
||
|
|
)
|