redis.clj

;;------------------------------------------------------------------------------
(declare *connection*)
(defmacro with-redis
  ([host func]
     `(binding [*connection* (Jedis. ~host)]
	(try
	  (~@func)
	  (finally
	   (.disconnect *connection*))))))

(defmacro redis* [host name & args]
  `(with-redis
     ~host
     (. *connection* ~name ~@args)))

(defmacro create-redis [host]
  `(defmacro redis [n# & args#]
     `(redis* ~~host ~n# ~@args#)))

(redis keys "*")