Wrapped Java API

gistfile1.clj

;; Creates the wrapped object.
(def domain (JavaWrapper. (.domainLookupByID (conn "test:///default") 1))

;; Implements ILookup, so you can call getters by invoking a keyword
(:name domain)  =  (.getName domain)

;; Implements Associative, so you can invoke setters via assoc
(assoc domain autostart true)  =  (.setAutostart domain true)

;; Original Java object accessible via :o key
(:o domain)
=> #<Domain...>

;; Macro provided, to create clojure function that can invoke the Java function on the wrapped object
(defwrapperfn create)
(create domain)  = (.create domain) or the the wrapped case, (.create (:o domain))