src/newseasons/models/shows.clj @ 991807da55ff
Moar.
author |
Steve Losh <steve@stevelosh.com> |
date |
Mon, 03 Oct 2011 19:52:37 -0400 |
parents |
e22577b16eb5 |
children |
fb4c1da11613 |
(ns newseasons.models.shows
(:use newseasons.models.keys)
(:use [aleph.redis :only (redis-client)]))
(def r (redis-client {:host "localhost" :password "devpass"}))
; "Schema" --------------------------------------------------------------------
;
; Shows are stored as hashes.
;
; shows:<iTunes artist ID> = {
; id: show id
; title: show tile
; image: url to show's image
; url: url to view the show on iTunes
; }
; Code ------------------------------------------------------------------------
(defn show-get [id]
(let [show (apply hash-map @(r [:hgetall (key-show id)]))]
(when (not (empty? show))
{:id (show "id")
:title (show "title")
:image (show "image")
:url (show "url")})))
(defn show-set-id! [id new-id]
@(r [:hset (key-show id) "id" new-id]))
(defn show-set-title! [id new-title]
@(r [:hset (key-show id) "title" new-title]))
(defn show-set-image! [id new-image]
@(r [:hset (key-show id) "image" new-image]))
(defn show-set-url! [id new-url]
@(r [:hset (key-show id) "url" new-url]))