anchor.diff:  (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 kanjidamage) (&rest query) (:documentation "Return information about a kanji symbol crawled from Kanjidamage.com")
  -  (setf query (format NIL "~{~a~^ ~}" query))
  -  (let ((lquery:*lquery-master-document*))
  -    (multiple-value-bind (html status headers uri) (drakma-utf8 "http://kanjidamage.com/kanji/search" 
  -                                                                :parameters `(("q" . ,query) ("utf8" . "✓")))
  -      (declare (ignore status headers))
  -      ($ (initialize html))
  -      (respond event "~a : ~a ~a - ~a" 
  -               uri
  -               ($ "h1 .kanji_character" (text) (node))
  -               ($ "h1 .translation" (text) (node))
  -               (trunc-text (cl-ppcre:regex-replace-all "\\s\\s" ($ ".span12 .definition p" (text) (node)) " "))))))
  -
   (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)))))
  
positive.code: 
  (defun google-term (term)
    (let ((lquery:*lquery-master-document*))
      ($ (initialize (drakma:http-request "http://www.google.com/search" 
                                          :parameters `(("q" . ,term))
                                          :external-format-out :utf-8
                                          :external-format-in :utf-8)))
      (let ((node ($ "#res #search li")))
        (unless (= 0 (length node))
          (values (cl-ppcre:register-groups-bind (url) ("\\?q=(.*?)&" ($ node "h3 a" (attr :href) (node))) url)
  
negative.code: (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-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)
  