anchor.diff:                   :highlight (reply-nick (xmpp:from message))))
       ((equal "ideas")
        (reply-chat connection (xmpp:from message)
  -                 (get-ideas) (xmpp::type- message)))
  +                 (format-ideas *ideas*) (xmpp::type- message)))
  +    ((equal "reload")
  +     (multiple-value-bind (success text) (reload)
  +         (let ((text (if success "done" text)))
  +           (reply-chat connection (xmpp:from message)
  +                       text (xmpp::type- message)))))
       ((or (optima.ppcre:ppcre "(^|\\s)300($|\\s)")
            (optima.ppcre:ppcre "(^|\\s)тристо($|\\s)")
            (optima.ppcre:ppcre "(^|\\s)триста($|\\s)"))
  
positive.code: (defun trim (string)
    (string-trim '(#\Space #\Tab #\Newline) string))
  
  (defun git-version ()
    (let ((system (ql:where-is-system "lbot")))
      (if system
          (multiple-value-bind (out err status)
              (asdf/run-program:run-program
  
negative.code: (defparameter *ideas* nil)
  
  (defun add-idea (from idea)
    (push (make-instance 'idea 
                         :user from
                         :text idea)
          *ideas*))
  
  (defun format-ideas (ideas)
    (format nil "ideas: ~{~&~a~}" *ideas*))
  
  (defun make-keyword (string)
  