anchor.diff:       (ps:ps (setf (ps:chain document (get-element-by-id "prompt") |innerHTML|)
                     (ps:lisp (generate-input-buffer-html repl)))))))
   
  +(defmethod update-display ((repl repl-mode))
  +  (update-evaluation-history-display repl)
  +  (update-input-buffer-display repl))
  +
   (defmethod insert ((repl repl-mode) characters)
     (cluffer:insert-item (input-cursor repl) characters)
     (update-input-buffer-display repl))
  
positive.code: (defmethod update-evaluation-history-display ((repl repl-mode))
    (flet ((generate-evaluation-history-html (repl)
             (markup:markup 
              (:ul (loop for item in (evaluation-history repl)
                         collect (markup:markup
                                  (:li item)))))))
      (ffi-buffer-evaluate-javascript 
  
negative.code:   (text-buffer::kill-forward-line (input-cursor repl))
    (update-input-buffer-display repl))
  
  (define-command return-input (&optional (repl (current-repl)))
    "Return inputted text."
    (let ((input (text-buffer::string-representation (input-buffer repl))))
      (add-object-to-evaluation-history repl input))
    (update-display repl))
  
  (defmethod initialize-display ((repl repl-mode))
    (let* ((content (markup:markup
                     (:head (:style (style repl)))
  