anchor.diff:    (:use :cl :colleen :lquery)
     (:shadow :search))
   (in-package :org.tymoonnext.colleen.mod.search)
  +
  +(defun drakma-utf8 (url &rest params)
  +  (apply #'drakma:http-request url :external-format-in :utf-8 :external-format-out :utf-8 :user-agent :chrome :preserve-uri T params))
   
   (define-module search () ()
     (:documentation "Perform searches on various sites."))
  
positive.code: 
  (defun google-term (term)
    (let ((lquery:*lquery-master-document*))
      ($ (initialize (drakma:http-request "http://www.google.com/search" :external-format-in :utf-8 :external-format-out :utf-8 :parameters `(("q" . ,term))) :type :HTML))
      (let ((node ($ "#res #search li" (eq 0))))
        (values (cl-ppcre:register-groups-bind (url) ("\\?q=(.*?)&" ($ node "h3 a" (attr :href) (node))) url)
                (cl-ppcre:regex-replace-all "\\n" ($ node ".s .st" (text) (node)) "")))))
  
negative.code:                  data)))
      (let ((data (json:decode-json-from-string
                   (flexi-streams:octets-to-string
                    (drakma:http-request
                     "http://api.bitly.com/v3/shorten"
                     :parameters `(("login" . "o_2vsdcdup6q")
                                   ("apiKey" . "R_37fc5c0f8bc59052587bee13c2257c4f")
                                   ("longUrl" . ,url))
                     :external-format-out :utf-8
                     :external-format-in :utf-8) 
                    :external-format :utf-8))))
        (values (g data :url :data)
                (g data :hash :data)
  