blob: 3054d1961ead65ba8d3a02b43bc9c5e5daedfd6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
;;; From: http://www.hackers-with-attitude.com/2009/08/intertactive-programming-with-clojure.html
;;; Copyright Robin Brandt, freiheit.com.
(ns logikorr-jetty
(:use logikorr.servlet)
(:use compojure.server.jetty compojure.http compojure.control))
(defmacro with-app-engine
"testing macro to create an environment for a thread"
([body]
`(with-app-engine env-proxy ~body))
([proxy body]
`(last (doall [(com.google.apphosting.api.ApiProxy/setEnvironmentForCurrentThread ~proxy)
~body]))))
(defn login-aware-proxy
"returns a proxy for the google apps environment that works locally"
[request]
(let [email (:email (:session request))]
(proxy [com.google.apphosting.api.ApiProxy$Environment] []
(isLoggedIn [] (boolean email))
(getAuthDomain [] "")
(getRequestNamespace [] "")
(getDefaultNamespace [] "")
(getAttributes [] (java.util.HashMap.))
(getEmail [] (or email ""))
(isAdmin [] true)
(getAppId [] "local"))))
(defn environment-decorator
"decorates the given application with a local version of the app engine environment"
[application]
(fn [request]
(with-app-engine (login-aware-proxy request)
(application request))))
(defn init-app-engine
"Initialize the app engine services."
([]
(init-app-engine "/tmp"))
([dir]
(com.google.apphosting.api.ApiProxy/setDelegate
(proxy [com.google.appengine.tools.development.ApiProxyLocalImpl] [(java.io.File. dir)]))))
;; make sure every thread has the environment set up
(defn start-logikorr []
(init-app-engine)
(run-server {:port 8080} "/*" (servlet (environment-decorator logikorr))))
|
