Some clj files for the blog post

check-file.clj

    ((if (= updated (read-updated-date user))
      (log-output user)
      (write-update user schedule))

(defn read-updated-date
  "reads in the last updated details from the filesystem for comparison"
  [user]
  (if (.exists (io/as-file (str user ".clj")))
    (let [updated-date (get (read-string (slurp (str user ".clj"))) :updated_at)]
(get (clojure.string/split updated-date #":") 0))))

hit-api.clj

(defn hit-api
  "calls our api, parses it and returns the result"
  [endpoint username password]
  (parse-string
   (get
    (client/get (str endpoint)
                {:basic-auth [username password]})
    :body)
true))

send-slack-message.clj

(defn send-slack-message
  "sends a slack message detailing the changes to that endpoint"
  [username body slackurl]
  (println (str "sending message to " username "..."))
  (client/post slackurl
{:form-params {:payload (json/write-str {:text body :channel (str "@" username)})}}))

write-update.clj

(defn write-update
  "writes out the latest details to file for later checking"
  [user slackuser message]
  (spit (str user ".clj") (prn-str data))
    (println (str "updated user " user " at " (now)))
(send-slack-message slackuser message))