anchor.diff:                      (markup:raw
                        (markup:markup*
                         `(:div :class "source-name"
  -                             ,@(when (sera:single sources) '(:hidden "true"))
  +                             ,@(when (and (compact-display-p prompt-buffer)
  +                                          (sera:single sources))
  +                                 '(:hidden "true"))
                                (:span :class "source-glyph" "⛯")
                                ,(prompter:name source))))
                       (:table :class "source-content"
                               (markup:raw
                                (markup:markup*
                                 `(:tr
  -                                ,@(when (sera:single (prompter:active-properties source)) '(:hidden "true"))
  +                                ,@(when (and (compact-display-p prompt-buffer)
  +                                             (sera:single (prompter:active-properties source)))
  +                                    '(:hidden "true"))
                                   ,@(loop for property in (prompter:active-properties source)
  -                                       ;; TODO: If we turn properties to strings, no need to capitalize.
  -                                       collect `(:th ,(str:capitalize property))))))
  +                                        ;; TODO: If we turn properties to strings, no need to capitalize.
  +                                        collect `(:th ,(str:capitalize property))))))
                               (loop ;; TODO: Only print as many lines as fit the height.  But how can we know in advance?
                                     ;; Maybe first make the table, then add the element one by one _if_ there are into view.
                                     with max-suggestion-count = 10
  
positive.code:      ;; (max-lines 10
       ;;               :documentation "Max number of suggestion lines to show.
       ;; You will want edit this to match the changes done to `style'.")
       (style #.(cl-css:css
                 '((* :font-family "monospace,monospace"
                      :font-size "14px"
  
negative.code:       (ffi-prompt-buffer-evaluate-javascript-async
         (window prompt-buffer)
         (ps:ps
          (setf (ps:chain document (get-element-by-id "suggestions") |innerHTML|)
                (ps:lisp
                 (str:join +newline+
                           (loop for i from current-source-index to last-source-index
                                 for source = (nth i sources)
                                 collect (source->html source))))))))
      (prompt-render-prompt prompt-buffer)))
  
  (defun erase-document (prompt-buffer)
  