anchor.diff:  
   (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))
  +  (if (> (length text) maxchars)
  +      (concatenate 'string (subseq text 0 maxchars) "...")
  +      text))
   
   (define-module search () ()
     (:documentation "Perform searches on various sites."))
  
positive.code:                uri
                 ($ "h1 .kanji_character" (text) (node))
                 ($ "h1 .translation" (text) (node))
                 (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*))
  
negative.code: 
  (define-command (search google) (&rest query) (:documentation "Query google and return the first search result link.")
    (multiple-value-bind (url description) (google-term (format NIL "~{~a~^ ~}" query))
      (respond event "~a : ~a" url (trunc-text description))))
  
  (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))
  