Clj-Ebay with at-at

main.clj

(ns clj-ebay.main
    (:require [overtone.at-at :as schedule]
              [clj-ebay.core]
              [clj-ebay.finding :as finder])
    (:gen-class))
(def my-pool (schedule/mk-pool))
(defn search-from-ebay
          "comment"
          [searched-key max-price] 
          (let [result (finder/find-items-advanced {:entries-per-page "1", 
                                             :global-id "EBAY-US", 
                                             :page-number 1, 
                                             :sort-order "CurrentPriceHighest", 
                                             :item-filter-name "MaxPrice", 
                                             :item-filter-value max-price, 
                                             :keywords searched-key })]
            (get-in result ["findItemsAdvancedResponse" 0 "searchResult" 0 "@count"] 0)))

(defn -main
    "Using EbayAPI + at-at, first project in Clojure"
      [& args]
      (let [searched-key (first args) max-price (second args)]
        (declare killJob)
        (println "Starting job")
        (def job (schedule/every 1000
                     #(let [countResult (search-from-ebay searched-key max-price)]
                        ;(println (class countResult)) ;; <-- this returned "String"
                        (if (> (read-string countResult) 0) ;; <-- so comparing a string to 0 crashed it.
                          (do (println "Found " countResult "results") (killJob))
                          (println "Haven't found anything yet")))
                      my-pool))
        (defn killJob [] (schedule/stop job) (System/exit 0))))