yql.el

;; Works for (yql-filter 'sampleQuery (yql desc flickr.places))

(defmacro yql-filter (symbol list)
  "Filters any JSON returned from a `yql-send-request' call for the value(s)
associated to `symbol', where the JSON is `list'."
  `(let ((result (yql-search-for-symbol ,symbol ,list)))
     (if (or (typep result 'list)
             (typep result 'string)
             (typep result 'number))
         result
       (coerce result 'list))))

;; Doesn't work at all for (yql-filter sampleQuery (yql desc flickr.places)) OR with 'sampleQuery

(defmacro yql-filter (symbol list)
  "Filters any JSON returned from a `yql-send-request' call for the value(s)
associated to `symbol', where the JSON is `list'."
  `(let ((result (yql-search-for-symbol (quote ,symbol) ,list)))
     (if (or (typep result 'list)
             (typep result 'string)
             (typep result 'number))
         result
       (coerce result 'list))))