anchor.diff:  (define-command (search image) (&rest query) (:documentation "Query google images and return the link to the first image in the results.")
     (setf query (format NIL "~{~a~^ ~}" query))
     (let* ((stream
  -          (drakma:http-request "https://ajax.googleapis.com/ajax/services/search/images" :want-stream T
  -                               :parameters `(("q" . ,query) ("v" . "1.0"))
  -                               :external-format-out :utf-8
  -                               :external-format-in :utf-8))
  +           (drakma-utf8 "https://ajax.googleapis.com/ajax/services/search/images"
  +                        :want-stream T
  +                        :parameters `(("q" . ,query) ("v" . "1.0"))))
            (data (json:decode-json stream))
            (results (cdr (assoc :results (cdr (assoc :response-data data))))))
       (close stream)
  
positive.code: (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))
  
  (defun trunc-text (text &optional (maxchars 200))
    (let ((text (string-trim '(#\Newline #\Space #\Linefeed #\Return) text)))
  
negative.code: (define-command (search touhou) (&rest query) (:documentation "Search en.touhouwiki.net.")
    (mediawiki-search-wrap event query "http://en.touhouwiki.net/wiki/" "http://en.touhouwiki.net/api.php" 0 "title"))
  
  (define-command (search jigen) (symbol &optional n) (:documentation "Search Jigen.net, a kanji character database.")
    (let ((lquery:*lquery-master-document*))
      ($ (initialize (drakma-utf8 (format NIL "http://jigen.net/data/~a?type2=1&rs=-1" (drakma:url-encode symbol :utf-8)))))
  