Try:
(defn fetch-atom-feed
"Returns a list of ATOM chunks from the feed-url going back to the
from-date"
[feed-url]
(if-let [chunk (fetch-atom-chunk feed-url)]
(cons chunk (lazy-seq (fetch-atom-feed (:HREF (:PREVIOUS_LINK
chunk)))
On Tue, May 28, 2013 at 6:30 AM, mond wrote:
>
I have managed to create a function that will read an ATOM feed
indefinitely and now need a way to stop it ;-)
(defn fetch-atom-chunk
"Returns an ATOM chunk from the feed-url"
[feed-url]
(:ATOM_FEED (:body (client/get feed-url {:as :json}
(defn fetch-atom-feed
"Returns a list of ATOM
