summaryrefslogtreecommitdiff
path: root/src/run.clj
blob: 2bc6c8e693444319f636f33f69d4197e5f83f413 (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)
  (: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))))