anchor.diff:  (defmethod setup-default ((minibuffer minibuffer))
     (erase-document minibuffer)
     (setf (input-buffer minibuffer) "")
  -  (setf (input-buffer-cursor minibuffer) 0)
  +  (setf (input-cursor-position minibuffer) 0)
     (setf (content minibuffer)
           (cl-markup:markup
            (:head (:style (minibuffer-style minibuffer))
  
positive.code: 
  (define-command delete-forwards (&optional (minibuffer (current-minibuffer)))
    "Delete character after cursor."
    (with-accessors ((buffer input-buffer) (cursor input-buffer-cursor)) minibuffer
      (unless (= cursor (length buffer))
        (setf buffer
              (concatenate 'string
  
negative.code:       (unless (str:empty? input)
          (log:debug input minibuffer)
          (setf (input-buffer minibuffer) "")
          (setf (input-cursor-position minibuffer) 0)
          (insert input minibuffer)))))
  
  (define-command minibuffer-toggle-mark (&optional (minibuffer (current-minibuffer)))
  