mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 16:48:27 -05:00
34 lines
876 B
Clojure
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"))))
|
||
|
|
|