redict/client-libraries/clojure/examples/demo.clj
2009-06-14 23:15:21 +02:00

34 lines
876 B
Clojure

;;
;; Simple demo of redis-clojure functionality
;;
;; Make sure redis-clojure.jar or the contents of the src/ directory
;; is on the classpath.
;;
;; Either:
;; (add-classpath "file:///path/to/redis-clojure.jar"
;; or:
;; (add-classpath "file:///path/to/redis/src-dir/")
;;
(add-classpath "file:///Users/ragge/Projects/clojure/redis-clojure/redis-clojure.jar")
(ns demo
(:require redis))
(redis/with-server
{:host "127.0.0.1" :port 6379 :db 0}
(do
(println "Sending ping")
(println "Reply:" (redis/ping))
(println "Server info:")
(let [info (redis/info)]
(dorun
(map (fn [entry]
(println (str "- "(first entry) ": " (last entry)))) info)))
(println "Setting key 'foo' to 'bar'")
(println "Reply:" (redis/set "foo" "bar"))
(println "Getting value of key 'foo'")
(println "Reply:" (redis/get "foo"))))