anchor.diff:  
   (define-command (markov list-ignored) () (:authorization T :documentation "List all ignored users." :modulevar markov)
     (respond event "Ignored users: ~:[None~;~:*~{~a~^, ~}~]" (ignored-users markov)))
  +
  +(define-command (markov activate) (&optional channel server) (:authorization T :documentation "Activate markov learning and spouting for a channel." :modulevar markov)
  +  (let ((name (format NIL "~a/~a" (or server (name (server event))) (or channel (channel event)))))
  +    (pushnew name (active-in markov) :test #'string-equal)
  +    (respond event "Learning/Spouting now activated on ~a." name)))
  +
  +(define-command (markov deactivate) (&optional channel server) (:authorization T :documentation "Deactivate markov learning and spouting for a channel." :modulevar markov)
  +  (let ((name (format NIL "~a/~a" (or server (name (server event))) (or channel (channel event)))))
  +    (setf (active-in markov)
  +          (delete name (active-in markov) :test #'string-equal))
  +    (respond event "No longer learning/spouting on ~a." name)))
   
   (define-command (markov probability) (&optional new-value) (:authorization T :documentation "Set or view the probability of invoking markov." :modulevar markov)
     (when new-value
  
positive.code: 
  (defmethod stop ((markov markov))
    (setf (config-tree :markov :probability) (probability markov)
          (config-tree :markov :ignored-users) (ignored-users markov))
    (with-open-file (stream *registry-file* :direction :output :if-does-not-exist :create :if-exists :supersede)
      (cl-json:encode-json (registry markov) stream)
      (v:info :markov "Saved ~a entries." (hash-table-count (registry markov)))))
  
  (define-handler (privmsg-event event) (:modulevar markov)
    (when (char= (aref (channel event) 0) #\#)
      (unless (char= (aref (message event) 0) #\!)
        (learn markov (message event)))
  
  
negative.code:       (setf (probability markov) (config-tree :markov :probability)))
    (if (config-tree :markov :ignored-users)
        (setf (ignored-users markov) (config-tree :markov :ignored-users)))
    (if (config-tree :markov :active-in)
        (setf (active-in markov) (config-tree :markov :active-in)))
    (with-open-file (stream *registry-file* :if-does-not-exist NIL)
      (when stream
        (setf (registry markov) (yason:parse stream))
  