Clojure 学习入门（9）—— 连接redis

(defproject myClojure "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [
                 [org.clojure/clojure "1.5.1"]
                 [org.clojure/java.jdbc "0.0.6"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [mysql/mysql-connector-java "5.1.26"]
                 
                 [com.novemberain/monger "1.5.0"]
                 
                 [com.taoensso/carmine "1.2.1"]
                 [clj-redis "0.0.12"]
                 ])

(ns myClojure.redis2
  (require [clj-redis.client :as redis]))

;; 连接redis
(def db (redis/init))

(println (redis/ping db))

(println (redis/set db "foo" "BAR"))
(println (redis/get db "foo"))

(println)  ;; 空一行

(println (redis/set db "blog" "http://blog.ithomer.net"))
(println (redis/get db "blog"))

(ns myClojure.redis
  (:require [taoensso.carmine :as car]
            [taoensso.carmine.message-queue :as carmine-mq])
  (:gen-class :main true))

(def pool         (car/make-conn-pool)) ; See docstring for additional options
(def spec-server1 (car/make-conn-spec)) ; ''

(defmacro wcar [& body] `(car/with-conn pool spec-server1 ~@body))

(defn -main [& args]
  (println "rd01 run!")
  ;; 
   (wcar (car/ping)
      (car/set "foo" "hello ithomer")
      (car/get "foo")) 
  )

(-main)