diff --git a/eg/lxml/parse-tumblr.hy b/eg/lxml/parse-tumblr.hy new file mode 100644 index 0000000..3f61719 --- /dev/null +++ b/eg/lxml/parse-tumblr.hy @@ -0,0 +1,22 @@ +;;; Hy tumblr printer. +;;; Copyright (c) Paul R. Tagliamonte, 2013, MIT/Expat license. + + +(import [urllib2 [urlopen]] + [lxml [etree]] + [sys [argv]]) + + +(defn get-rss-feed-name [tumblr] + (kwapply (.format "http://{tumblr}.tumblr.com/rss") {"tumblr" tumblr})) + +(defn get-rss-feed [tumblr] + (.parse etree (urlopen (get-rss-feed-name tumblr)))) + +(defn print-posts [tumblr] + (for [post (.xpath (get-rss-feed tumblr) "//item/title")] + (print post.text))) + +(if (slice argv 2) + (print-posts (get argv 2)) + (print-posts "this-plt-life"))