gtrak

(defmacro let-map
  [pairs]
  (let [names (map first (partition 2 pairs))]
    `(let [~@pairs]
       (zipmap
        [~@(map (comp keyword name) names)]
        [~@names]))))

gtrak

var jq = document.createElement('script');
jq.src = "http://code.jquery.com/jquery-latest.min.js";
document.getElementsByTagName('head')[0].appendChild(jq);
jQuery.noConflict();
 
$('div a').map(function(){return this.title;}).each(function(){console.log(this.toString())})
 
Borges: A Life
Island
Smalltalk 80: Bits Of History, Words Of Advice

gtrak

(defn assert-only-expected-keys
  "Make sure that there are no extra keys in the item"
  [keyset item]
  (mapv (fn [k] (is (keyset k) (str k " is not one of " keyset)))
        (keys item))
  item)

(defn assert-all-expected-keys
  "Make sure that every expected key exists in the item"
  [keyset item]

gtrak

(defn OPTIONS
  "Generate a OPTIONS route with the given response."
  [response]
  (fn [request]
    (when (= (:request-method request) :options)
      response)))

(defroutes routes
  (GET "/" [] "<h1>Hello World</h1>")
  (context (:registry contexts) [] registry)

gtrak

(def servlets
  "Map of servlet classes to ring handlers, add here.  Needs to be quoted so symbols resolve to themselves."
  '{:my.servlet.class.Servlet hr/app})

(defmacro make-servlet
  "Call to generate a servlet class given the class name and a ring handler."
  [servlet handler]
  (let [servlet (name servlet)
        prefix (str servlet "-")]
    `(do (println "Compiling Servlet" ~servlet)

gtrak

INFO: Initiating Jersey application, version 'Jersey: 1.4 09/11/2010 10:30 PM'
Jul 27, 2012 6:00:42 PM com.sun.jersey.spi.inject.Errors processErrorMessages
SEVERE: The following errors and warnings have been detected with resource and/or provider classes:
  WARNING: A sub-resource method, public javax.ws.rs.core.Response com.cloudera.hoop.Hoop.root(java.security.Principal,com.cloudera.hoop.GetOpParam,com.cloudera.hoop.FilterParam,com.cloudera.hoop.DoAsParam) throws java.io.IOException,com.cloudera.lib.service.HadoopException, with URI template, "/", is treated as a resource method
  SEVERE: Method, public javax.ws.rs.core.Response com.cloudera.hoop.Hoop.get(java.security.Principal,com.cloudera.hoop.FsPathParam,com.cloudera.hoop.GetOpParam,com.cloudera.hoop.OffsetParam,com.cloudera.hoop.LenParam,com.cloudera.hoop.FilterParam,com.cloudera.hoop.DoAsParam) throws java.io.IOException,com.cloudera.lib.service.HadoopException, annotated with GET of resource, class com.cloudera.hoop.Hoop, is not recognized as valid 

gtrak

(ns pomoclojo.core
  (:import [org.apache.commons.exec
            PumpStreamHandler
            DefaultExecutor
            ExecuteWatchdog
            CommandLine]
           [java.io ByteArrayOutputStream])
  (:use [clj-time.core :only [in-secs in-minutes now interval plus minus within? minutes secs]]))

(defn execute

gtrak

(defproject swanker "0.1.0-SNAPSHOT"
  :description "Swank REPL for various usages"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.4.0"]
                 [swank-clojure "1.4.2"]
                 [javax.servlet/servlet-api "2.5" :scope "provided"]]

  :aot [swanker.core])

gtrak

java.lang.AbstractMethodError: null
 at clojure.core.protocols/fn (protocols.clj:73)
    clojure.core.protocols$fn__5828$G__5823__5841.invoke (protocols.clj:13)
    clojure.core$reduce.invoke (core.clj:6030)

gtrak

(ns swanker.core
  (:require [swank.swank :as swank]))

(gen-class
 :name swanker.core.ServletFilter
 :prefix servlet-
 :implements [javax.servlet.ServletContextListener])


(comment