Skip to content

Instantly share code, notes, and snippets.

@aria42

aria42/build_graph.clj

Created January 3, 2011 01:50
Show Gist options
  • Save aria42/763026 to your computer and use it in GitHub Desktop.
Save aria42/763026 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
build_graph.clj
root (-> (dp/poller-graph s)
(add-edge (fn [x]
(log/info (format "Finished an entry %s has body: %s"
(-> x :entry :link) (not (nil? (-> x :entry :body)))))))
zip/root graph-zip zip/down zip-down ; Move to feed-fetch-node
(add-edge (fn [{k :key b :body}]
(let [es (set (feeds/extract-entries b))]
(swap! fetched-feeds conj k)
(swap! extracted-entries set/union es)
(log/info (format "Added %d entries from %s." (count es) k))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment