yql.el

(defun yql-yahoo-search (query)
  (let ((result (yql-filter 'result
                            (yql-select "title,abstract,url" "search.web"
                                        (concat (format "query=\"%s\"" query)
                                                "LIMIT 5")))))
    (save-excursion
      (set-buffer (get-buffer-create "*Search Results*"))
      (dolist (item result)
        (let ((title (yql-filter 'title item))
              (abstract (yql-filter 'abstract item))
              (url (yql-filter 'url item)))
          (insert (concat title "\n  " abstract "\n  " url "\n"))))
      (goto-address)
      (switch-to-buffer-other-window "*Search Results*"))))