anchor.diff:  
   (define-command delete-backwards (&optional (repl (current-repl)))
     "Delete character before cursor."
  -  (text-buffer::delete-item-backwards (input-cursor repl))
  +  (text-buffer::delete-item-backward (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command cursor-beginning (&optional (repl (current-repl)))
  +  "Move cursor to the beginning of the buffer."
  +  (cluffer:beginning-of-line (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command cursor-end (&optional (repl (current-repl)))
  +  "Move cursor to the end of the buffer."
  +  (cluffer:end-of-line (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command cursor-forwards-word (&optional (repl (current-repl)))
  +  "Move cursor forwards a word."
  +  (text-buffer::move-forward-word (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command cursor-backwards-word (&optional (repl (current-repl)))
  +  "Move cursor backwards a word."
  +  (text-buffer::move-backward-word (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command delete-backwards-word (&optional (repl (current-repl)))
  +  "Delete backwards a word."
  +  (text-buffer::delete-backward-word (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command delete-forwards-word (&optional (repl (current-repl)))
  +  "Delete forwards a word."
  +  (text-buffer::delete-forward-word (input-cursor repl))
  +  (update-input-buffer-display repl))
  +
  +(define-command kill-line (&optional (repl (current-repl)))
  +  "Delete forwards a word."
  +  (text-buffer::kill-forward-line (input-cursor repl))
     (update-input-buffer-display repl))
   
   (defmethod initialize-display ((repl repl-mode))
  
positive.code:       scheme:cua
        (list
         "a" 'self-insert-repl
         "space" 'self-insert-repl
         "C-f" 'cursor-forwards
         "C-b" 'cursor-backwards
         "C-d" 'delete-forwards
         "delete" 'delete-forwards
         "backspace" 'delete-backwards)
        scheme:emacs
        (list
         "M-f" 'history-forwards-query)))
     (style :accessor style
            :initform (cl-css:css
                       '((* :font-family "monospace,monospace")
  
negative.code: 
  (define-command cursor-forwards (&optional (repl (current-repl)))
    "Move cursor forward by one element."
    (text-buffer::safe-forward (input-cursor repl))
    (update-input-buffer-display repl))
  
  (define-command cursor-backwards (&optional (repl (current-repl)))
    "Move cursor backwards by one element."
    (text-buffer::safe-backward (input-cursor repl))
    (update-input-buffer-display repl))
  
  (define-command delete-forwards (&optional (repl (current-repl)))
  