lattes.lisp

(ql:quickload :drakma)
(ql:quickload :st-json)

(defun show-google-hits (term key ck)
  (let* ((query (list (cons "key" key)
		      (cons "cx" ck)
		      (cons "q" term)))
	 (stream (drakma:http-request "https://www.googleapis.com/customsearch/v1"
				      :parameters query 
				      :want-stream t)))
    (setf (flexi-streams:flexi-stream-external-format stream) :utf-8)
    (let* ((doc (yason:parse stream :object-as :alist))
	   (res (cadr (assoc "items" doc :test #'equal))))
      (list (cdr (assoc "link"  res :test #'equal))
	    (cdr (assoc "title" res :test #'equal))))))