anchor.diff:                   data)))
       (let ((data (json:decode-json-from-string
                    (flexi-streams:octets-to-string
  -                  (drakma:http-request 
  +                  (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 :user-agent :chrome) 
  +                   :external-format-out :utf-8
  +                   :external-format-in :utf-8) 
                     :external-format :utf-8))))
         (values (g data :url :data)
                 (g data :hash :data)
  
positive.code:   (multiple-value-bind (url description) (google-term (format NIL "~{~a~^ ~}" query))
      (respond event "~a : ~a" url description)))
  
  (define-command (search wikipedia) (&rest query) (:documentation "Search wikipedia and return the first paragraph of a matching page.")
    (mediawiki-search-wrap event query "http://en.wikipedia.org/wiki/" "http://en.wikipedia.org/w/api.php" 0))
  
  (define-command (search wiktionary) (&rest query) (:documentation "Search wiktionary and return the first paragraph of a matching page.")
    (mediawiki-search-wrap event query "http://en.wiktionary.org/wiki/" "http://en.wiktionary.org/w/api.php" 1))
  
  (define-command (search ed) (&rest query) (:documentation "Search encyclopediadramatica and return the first paragraph of a matching page.")
    (mediawiki-search-wrap event query "http://encyclopediadramatica.es/" "http://encyclopediadramatica.es/api.php" 0))
  
  (define-command (search cliki) (&rest query) (:documentation "Search CLiki.net and return the first paragraph of a matching page.")
    )
  
  (define-command (search kanjidamage) (symbol) (:documentation "Return information about a kanji symbol crawled from Kanjidamage.com")
    )
  
  (define-command (search jigen) (symbol) (:documentation "Search Jigen.net and return information about a symbol.")
    )
  
  (define-command (search clhs) (&rest query) (:documentation "Search the Common Lisp Hyperspec and return the short explanation.")
    (let ((lquery:*lquery-master-document*)
  
negative.code:   (: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."))
  