Data commit

Task/Yahoo-search-interface/TXR/yahoo-search-interface.txr

@@ -0,0 +1,22 @@
+#!/usr/bin/txr -f
+@(next :args)
+@(cases)
+@  QUERY
+@  PAGE
+@(or)
+@  (throw error "specify query and page# (from zero)")
+@(end)
+@(next (open-command "!wget -O - http://search.yahoo.com/search?p=@QUERY\&b=@{PAGE}1 2> /dev/null"))
+@(all)
+@  (coll)<a class="yschttl spt" href="@URL" @/[^>]+/>@TITLE</a>@(end)
+@(and)
+@  (coll)<div class="@/abstr|sm-abs/">@ABSTR</div>@(end)
+@(end)
+@(output)
+@  (repeat)
+TITLE: @TITLE
+URL: @URL
+TEXT: @ABSTR
+---
+@  (end)
+@(end)