anchor.diff:       ;; (max-lines 10
        ;;               :documentation "Max number of suggestion lines to show.
        ;; You will want edit this to match the changes done to `style'.")
  +     (compact-display-p nil
  +                        :documentation "Display the prompt buffer in a more compact way.")
        (style #.(cl-css:css
                  '((* :font-family "monospace,monospace"
                       :font-size "14px"
  
positive.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)
  
negative.code:                     (markup:raw
                       (markup:markup*
                        `(:div :class "source-name"
                               ,@(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 (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))))))
                              (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
  