anchor.diff:         "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
  -       "M-p" 'evaluation-history-previous
  -       "M-n" 'evaluation-history-next)
  +       "C-M-x" 'evaluate-cell
  +       "M-p" 'previous-cell
  +       "M-n" 'next-cell)
         scheme:vi-normal
         (list
          ;; TODO: deleting chars/words
  -       ;; TODO: evaluation-history-(previous|next)
          "l" 'nyxt/input-edit-mode:cursor-forwards
          "h" 'nyxt/input-edit-mode:cursor-backwards
          "w" 'nyxt/input-edit-mode:cursor-forwards-word
          "b" 'nyxt/input-edit-mode:cursor-backwards-word
          "x" 'nyxt/input-edit-mode:delete-forwards
          "d b" 'nyxt/input-edit-mode:delete-backwards-word
  -       "d w" 'nyxt/input-edit-mode:delete-forwards-word)))
  +       "d w" 'nyxt/input-edit-mode:delete-forwards-word
  +       ;; TODO: Check out the VI bindings for such cases.
  +       )))
      (style (theme:themed-css (theme *browser*)
               (* :font-family "monospace,monospace")
               (body :margin-right "0")
  
positive.code: (nyxt:define-package :nyxt/repl-mode
      (:documentation "Mode for programming in Common Lisp."))
  (in-package :nyxt/repl-mode)
  
  (define-mode repl-mode ()
    "Mode for interacting with the REPL."
  
negative.code:                                      completion (subseq input cursor))
              (cursor repl) (+ cursor (- (length completion) (- cursor previous-delimiter)))))))
  
  (define-internal-page-command-global lisp-repl ()
      (repl-buffer "*Lisp REPL*" 'repl-mode)
    "Show Lisp REPL."
  