with-timeout (based on https://stackoverflow.com/questions/1683680/clojure-with-timeout-macro)

with-timeout.clj

(defmacro with-timeout [seconds & body]
  `(let [f# (future ~@body)]
    (try
      (.get f# ~seconds java.util.concurrent.TimeUnit/SECONDS)
      (catch java.util.concurrent.TimeoutException e#
        (do (future-cancel f#) nil)))))