anchor.diff:            :documentation "The CSS applied to a REPL when it is set-up.")
      (evaluations
       (list)
  -    :documentation "A list of `evaluation's representing the current state of the REPL."))
  +    :documentation "A list of `evaluation's representing the current state of the REPL.")
  +   (current-evaluation
  +    nil
  +    :type (maybe integer)
  +    :reader t
  +    :documentation "Index of the evaluation currently being focused."))
     (:toggler-command-p nil))
   
   (defun package-short-name (package)
  
positive.code:                                            :title "Move this cell down."
                                             "↓"))
                                     (:input :class "input-buffer" :data-repl-id order :type "text"
                                             :value (input evaluation)))
                       collect (loop
                                 for result in (results evaluation)
  
negative.code: (define-command evaluate-cell (&optional (repl (find-submode 'repl-mode)))
    "Evaluate the currently focused input cell."
    (let* ((input (input repl))
           (id (current-evaluation repl))
           (evaluation (make-instance 'evaluation
                                      :input input
                                      :results (nyxt::evaluate input))))
      (if id
          (setf (elt (evaluations repl) id) evaluation
                (current-evaluation repl) id)
          (setf (current-evaluation repl) (length (evaluations repl))
                (evaluations repl) (append (evaluations repl) (list evaluation))))
      (reload-buffers (list (buffer repl)))))
  
  (define-command previous-cell (&optional (repl (find-submode 'repl-mode)))
    "Move to the previous input cell."
    (let ((id (current-evaluation repl))
          (len (length (evaluations repl))))
      (cond
        ((zerop len)
         (setf (current-evaluation repl) nil))
        ((or (null id) (zerop id))
         (setf (current-evaluation repl) (1- len)))
        (t (setf (current-evaluation repl) (1- id))))))
  
  (define-command next-cell (&optional (repl (find-submode 'repl-mode)))
    "Move to the next input cell."
    (let ((id (current-evaluation repl))
          (len (length (evaluations repl))))
      (cond
        ((or (zerop len)
             (null id)
             (= id (1- len)))
         (setf (current-evaluation repl) nil))
        (t (setf (current-evaluation repl) (1+ id))))))
  
  (define-command move-cell-up (&key (repl (find-submode 'repl-mode)) (id (current-evaluation repl)))
    "Move the current code cell up, swapping it with the one above."
    (when (and id (not (zerop id)))
      (let* ((evals (evaluations repl)))
        (psetf (elt evals (1- id)) (elt evals id)
               (elt evals id) (elt evals (1- id))
               (current-evaluation repl) (1- id)))
      (reload-buffers (list (buffer repl)))))
  
  (define-command move-cell-down (&key (repl (find-submode 'repl-mode)) (id (current-evaluation repl)))
    "Move the current code cell down, swapping it with the one below."
    (when (and id (< id (1- (length (evaluations repl)))))
      (let* ((evals (evaluations repl)))
        (psetf (elt evals (1+ id)) (elt evals id)
               (elt evals id) (elt evals (1+ id))
               (current-evaluation repl) (1+ id)))
      (reload-buffers (list (buffer repl)))))
  
  (define-command paren (&optional (repl (find-submode 'repl-mode)))
  