 (require '[clj-mrazik.irc-bot  :as irc-bot])
 
 (def sleep-amount
-    10000)
+    50000)
 
 (defn between?
     [schedule-item minutes]

    (if (some #(between? % minutes) schedule)
        :should-be-open
        :should-be-closed))

(defn open-window
    [config]

          schedule (schedule/compute-schedule (:bot config))]
         (config/print-configuration config)
         (pprint/pprint schedule)
         (irc-bot/start-irc-bot (:server config))
         (irc-bot/send-message (-> config :server :recipients) (-> config :server :channel) "Hi!")
         (run-bot config schedule)
    ))

