X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/c9a111acf47cb5bb2138d1f699253f87d68e53e8..e59229a2d540b00566f44c8f29764de3ae89b5be:/client-libraries/clojure/examples/demo.clj?ds=inline

diff --git a/client-libraries/clojure/examples/demo.clj b/client-libraries/clojure/examples/demo.clj
new file mode 100644
index 00000000..d441e975
--- /dev/null
+++ b/client-libraries/clojure/examples/demo.clj
@@ -0,0 +1,33 @@
+;; 
+;; 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"))))
+