anchor.diff:    (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)))
  
positive.code:                                      :flex-flow "column"
                                       :height "100%")
                         ("#input" :padding "6px 0"
                                   :border-bottom "solid 1px lightgray")
                         ("#evaluation-history" :flex-grow "1"
                                         :overflow-y "auto"
                                         :overflow-x "auto")
  
negative.code:      (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))
  