anchor.diff:                        (<= (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 "cursor")))
  -           (ps:chain document (get-element-by-id "cursor")
  +         (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))
  
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:                   :overflow "auto")
                   (".source-content td::-webkit-scrollbar"
                    :display "none")
                   ("#selection"
                    :background-color "575757"
                    :color "white")
                   (ul :list-style "none"
                       :padding "0"
                       :margin "0")
  