You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
328 B
15 lines
328 B
(ns NoteHub.storage |
|
(:require [clj-redis.client :as redis])) |
|
|
|
(def db (redis/init)) |
|
|
|
(def note "note") |
|
|
|
(defn- build-key [[year month day] key] |
|
(print-str year month day key)) |
|
|
|
(defn set-note [date key v] |
|
(redis/hset db note (build-key date key) v)) |
|
|
|
(defn get-note [date key] |
|
(redis/hget db note (build-key date key)))
|
|
|