A pastebin for markdown pages.
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.
|
|
|
|
(ns NoteHub.storage
|
|
|
|
|
(:require [clj-redis.client :as redis]))
|
|
|
|
|
|
|
|
|
|
(def db (redis/init))
|
|
|
|
|
|
|
|
|
|
(def note "note")
|
|
|
|
|
|
|
|
|
|
(defn- build-key [[year month day] title]
|
|
|
|
|
(print-str year month day title))
|
|
|
|
|
|
|
|
|
|
(defn set-note [date title text]
|
|
|
|
|
(redis/hset db note (build-key date title) text))
|
|
|
|
|
|
|
|
|
|
(defn get-note [date title]
|
|
|
|
|
(redis/hget db note (build-key date title)))
|
|
|
|
|
|
|
|
|
|
(defn note-exists? [date title]
|
|
|
|
|
(redis/hexists db note (build-key date title)))
|
|
|
|
|
|
|
|
|
|
(defn delete-note [date title]
|
|
|
|
|
(redis/hdel db note (build-key date title)))
|
