On Nov 25, 12:22 am, "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
wrote:
> This approach might just be too inefficient -- perhaps it would be
> best to implement the pretty-printer in an imperative style after all.
OTOH it is pretty darn nifty...
user> (pp (clojure.xml/parse "http://catless.ncl.ac.uk/rdigest.rdf";))
{:tag :rdf:RDF,
:attrs {:xmlns "http://my.netscape.com/rdf/simple/0.9/";,
:xmlns:rdf "http://www.w3.org/1999/02/22-rdf-syntax-ns#";,
:xmlns:sy "http://purl.org/rss/1.0/modules/syndication/"},
:content [{:tag :channel,
:attrs nil,
:content [{:tag :title, :attrs nil, :content ["RISKS
Digest"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks"]}
{:tag :description,
:attrs nil,
:content ["The website of the RISKS Digest
mailing list"]}
{:tag :sy:updatePeriod, :attrs nil, :content
["daily"]}
{:tag :sy:updateFrequency, :attrs nil, :content
["1"]}
{:tag :sy:updateBase,
:attrs nil,
:content ["1970-01-01T03:13+00:00"]}]}
{:tag :image,
:attrs nil,
:content [{:tag :title, :attrs nil, :content ["RISKS"]}
{:tag :url,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Images/Misc/
rdigest.gif"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Chinese hackers breach white house
computer systems"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj1"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Hacker Tool Targeting MS08-067
Vulnerability"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj2"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Lose the BlackBerry? Yes He Can,
Maybe: President-Elect Obama"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj3"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Texas Suspends Massive Outsourcing
Contract"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj4"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Driver Blames GPS System For Car-
Train Collision"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj5"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Stop! Buses only! --What do you
mean, you ARE a bus?"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj6"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Martian deep freeze: NASA's Mars
Lander dies in the dark"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj7"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["The \"Two Focaccia Buttons Defense
\""]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj8"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Risks of assuming constant hours in
a day"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj9"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Excel auto-formatting"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj10"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Texting bug hits the Google phone"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj11"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Vintage IBM tape drive in Apollo
moon dust rescue"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj12"]}]}
nil
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["gnus-mime-print-part vs. Mom's
room"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj13"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Re: BBC Domesday Project"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj14"]}]}
{:tag :item,
:attrs nil,
:content [{:tag :title,
:attrs nil,
:content ["Re: Poison pill auto-disclosure"]}
{:tag :link,
:attrs nil,
:content ["http://catless.ncl.ac.uk/Risks/
25.45.html#subj15"]}]}]}
user>
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
