src/newseasons/loops/refresh.clj @ 893382aa6262
Moar.
author |
Steve Losh <steve@stevelosh.com> |
date |
Mon, 03 Oct 2011 21:30:31 -0400 |
parents |
89f24149ecd7 |
children |
472b20cb4c5f |
(ns newseasons.loops.refresh
(:require [newseasons.models.shows :as shows])
(:require [newseasons.itunes :as itunes])
)
(defn- refresh-show [id]
(println " refreshing" id)
(let [show (itunes/itunes-lookup-seasons id)]
(when show
(println " ->" (show "artistName")))
(Thread/sleep 5000)))
(defn- refresh []
(println "Refreshing Shows")
(let [shows (shows/shows-get-to-check)]
(dorun (map refresh-show shows))))
(defn main [& args]
(println "Starting Refresh Loop!")
(println "----------------------")
(dorun (repeatedly refresh)))