anchor.diff:         "return" 'return-input
          "(" 'paren
          ")" 'closing-paren
  -       "tab" 'tab-complete-symbol)
  +       "tab" 'tab-complete-symbol
  +       "up" 'evaluation-history-previous
  +       "down" 'evaluation-history-next)
         scheme:emacs
         (list
          "C-f" 'nyxt/input-edit-mode:cursor-forwards
  
positive.code:        "M-b" 'nyxt/input-edit-mode:cursor-backwards-word
         "C-d" 'nyxt/input-edit-mode:delete-forwards
         "M-backspace" 'nyxt/input-edit-mode:delete-backwards-word
         "M-d" 'nyxt/input-edit-mode:delete-forwards-word)
        scheme:vi-normal
        (list
         ;; TODO: deleting chars/words
         "l" 'nyxt/input-edit-mode:cursor-forwards
         "h" 'nyxt/input-edit-mode:cursor-backwards
         "w" 'nyxt/input-edit-mode:cursor-forwards-word
  
negative.code:   "Return inputted text."
    (let ((input (input repl)))
      (add-object-to-evaluation-history repl
                                        (list (package-short-name *package*)
                                              input
                                              (nyxt::evaluate input)))
      ;; Reset history counter, as it doesn't make sense with new input.
      (setf (current-evaluation-history-element repl) nil)
      (reset-input repl)
      (update-evaluation-history-display repl)))
  
  