anchor.diff:                              (markup:raw
                                (markup:markup*
                                 `(:tr
  -                                ,@(when (and (compact-display-p prompt-buffer)
  +                                ,@(when (and (hide-single-source-header-p prompt-buffer)
                                                (sera:single (prompter:active-attributes-keys source)))
                                       '(:hidden "true"))
                                   ,@(loop for attribute-key in (prompter:active-attributes-keys source)
  
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'.")
       (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"
  
negative.code:                     (markup:raw
                       (markup:markup*
                        `(:div :class "source-name"
                               ,@(when (and (hide-single-source-header-p prompt-buffer)
                                            (sera:single sources))
                                   '(:hidden "true"))
                               (:span :class "source-glyph" "⛯")
  