b- PayPalClj edit** - wiki at8a.....

{{{ (fn [request response] (let [cp (.getRequestURI request) cljlet (if (.equals "/" cp) "index" (first (re-seq #"[a-zA-Z]+" cp))) heartbeat (fn [request response] (let [ queue (com.google.appengine.api.labs.taskqueue.QueueFactory/getDefaultQueue) tOpt (com.google.appengine.api.labs.taskqueue.TaskOptions$Builder/url "/heartbeat") tOpt2 (.countdownMillis tOpt 1000) none (.add queue tOpt2) ] (str "done"))) paypal (fn [request response] (str "
EuRo
"))] ( (get { :paypal paypal :heartbeat heartbeat } (keyword (.toLowerCase cljlet)) (fn [request response] (str "

HelloWorld

IDE _" (.getRequestURI request) "_"))) request response))) }}}