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)))