anchor.diff:        (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))
  
positive.code: (define-module markov ()
    ((%probability :initarg :probability :initform 25 :accessor probability)
     (%ignored-users :initarg :ignored-users :initform () :accessor ignored-users)
     (%registry :initarg :registry :initform (make-hash-table :test 'equal) :accessor registry))
    (:documentation "Simple markov chain module."))
  
  
negative.code: 
  (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
  