anchor.diff:  
   (define-vi-state command (:keymap *command-keymap*))
   
  -(define-vi-state insert (:keymap *insert-keymap*)
  +(define-vi-state insert (:keymap *insert-keymap* :cursor-color "IndianRed")
     (:enable () (message " -- INSERT --")))
   
   (define-vi-state modeline (:keymap *inactive-keymap*))
  
positive.code:     (change-global-mode-keymap 'vi-mode (vi-state-keymap state))
      (change-element-name (format nil "[~A]" name))
      (when (vi-state-enable-hook state)
        (apply (vi-state-enable-hook state) args))))
  
  (defmacro with-state (state &body body)
    (alexandria:with-gensyms (old-state)
  
negative.code:                           :keymap ,keymap
                            :post-command-hook ,post-command-hook
                            :enable-hook ,(if enable-form `(lambda ,@enable-form))
                            :disable-hook ,(if disable-form `(lambda ,@disable-form))
                            :cursor-color ,cursor-color))))
  
  (defun current-state ()
    *current-state*)
  