gistfile1.clj

(ns scrape-kuvva.core
  (:require [scrape-kuvva.kuvva :as kuvva])
  (:require [scrape-kuvva.files :as files]))

(def timeout 2000)

(defn sync
  "Download any wallpaper that is
    a) downloadable
    b) not already downloaded"
  []
  (doseq [wallpaper (kuvva/wallpapers)]
    (when (not (files/already-downloaded? wallpaper))
      (println (str "downloading " wallpaper))

      (let [request (kuvva/get wallpaper)]
        (if (kuvva/successful? request)
          (files/write wallpaper (:body request))
          (println (str "Could not download, status: " (:status request)))))

      (Thread/sleep timeout))))