anchor.diff:                    :overflow "auto")
                    (".source-content td::-webkit-scrollbar"
                     :display "none")
  -                 ("#cursor" :background-color "575757" ; TODO: Rename "selection".
  -                            :color "white")
  +                 ("#selection"
  +                  :background-color "575757"
  +                  :color "white")
                    (ul :list-style "none"
                        :padding "0"
                        :margin "0")
  
positive.code:                      collect (markup:markup
                                (:tr :id (when (equal (list suggestion source)
                                                      (multiple-value-list (prompter:selected-suggestion (prompter prompt-buffer))))
                                           "cursor")
                                     :class (when (find (prompter:value suggestion) (prompter:marked-suggestions source))
                                              "marked")
                                     (loop for (_ property) on (prompter:properties suggestion) by #'cddr
  
negative.code:                       (<= (ps:chain rect right) (ps:chain window inner-width))
                        (<= (ps:chain rect bottom) (ps:chain window inner-height)))
                   t nil)))
           (unless (element-in-view-port-p (ps:chain document (get-element-by-id "selection")))
             (ps:chain document (get-element-by-id "selection")
                       (scroll-into-view t))))))
  
      (let* ((source (current-source prompt-buffer))
  