From 9b45dd4ffe9cd700856255c85779ac4c8cfea5bd Mon Sep 17 00:00:00 2001 From: Paul Tagliamonte Date: Tue, 25 Jun 2013 21:47:54 -0400 Subject: [PATCH] add tumblr printer --- eg/lxml/parse-tumblr.hy | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 eg/lxml/parse-tumblr.hy 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"))