src/jedis.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(ns jedis
  (:import org.apache.commons.pool.impl.GenericObjectPool$Config
           redis.clients.jedis.JedisPool)
  (:use config))

(def pool (JedisPool. (:host redis-server) (int (:port redis-server))))
(.init pool)


(defn with-jedis [fn]
  (let [r (.getResource pool)]
    (try
      (.select r (int (:db redis-server)))
      (fn r) 
      (finally (.returnResource pool r)))))