gistfile1.clj

(defn wait-for-changes
  [& _]
  (let [update-seq (:update_seq (database-info "test-changes"))]
    (with-open [is (with-db "test-changes"
                     (couchdb-request (assoc config :read-json-response false)
                       :get (str "_changes?feed=continuous&heartbeat=5000&since=" update-seq)))]
      (loop [lines (io/read-lines is)]
        (if-let [line (first lines)]
          line
          (recur lines))))))