anchor.diff:                                             :color "white")))
                        :documentation "The CSS applied to a minibuffer when it is set-up.")))
   
  +(defmethod (setf input-buffer) (value (minibuffer minibuffer))
  +  "Reset the minibuffer state on every input change.
  +This is necessary or else completion cursor / head could be beyond the updated
  +list length."
  +  (setf (slot-value minibuffer 'input-buffer) value)
  +  (setf (completion-cursor minibuffer) 0)
  +  (setf (completion-head minibuffer) 0))
  +
   (defmethod content ((minibuffer minibuffer))
     (slot-value minibuffer 'content))
   
  
positive.code: 
  (define-command delete-forwards-word (&optional (minibuffer (current-minibuffer)))
    "Delete characters from cursor position until the end of the word at point."
    (with-slots (input-buffer input-buffer-cursor) minibuffer
      (let* ((current-cursor-position input-buffer-cursor)
             (new-cursor-position (cursor-forwards-word minibuffer))
             (transpose-distance (- new-cursor-position current-cursor-position)))
        (setf input-buffer
              (concatenate 'string
                           (subseq input-buffer 0 current-cursor-position)
                           (subseq input-buffer new-cursor-position (length input-buffer))))
        (setf input-buffer-cursor (- input-buffer-cursor transpose-distance))))
    (update-display minibuffer))
  
  (defun %delete-backwards-word (input position)
  
negative.code: @export
  (defmethod update-display ((minibuffer minibuffer))
    (with-slots (input-buffer input-buffer-cursor completion-function
                 completions completion-cursor empty-complete-immediate)
        minibuffer
      (if completion-function
          (setf completions (funcall completion-function input-buffer))
  