core.clj

(ns redis-example.core
  (:require [taoensso.carmine :as redis :refer (wcar)]))

(defmacro wcar* [& body] `(redis/wcar server-connection ~@body))

(defn init-redis []
  (def server-connection {:pool {:max-active 1}
                          :spec {
                                 :host "localhost"
                                 :port 6379
                                 :timeout 4000}})
  (wcar* (redis/set "foo" "bar")
         (redis/set "wat" "woot")))

(defn get-value [k]
  (wcar* (redis/get k)))

(defn set-value [k v]
  (wcar* (redis/set k v))