anchor.diff:      ;; TODO: Only print `active-properties'.
       (flet ((source->html (source)
                (markup:markup
  -              (:div :class "source-name" "⛯ " (prompter:name source))
  -              (:table
  +              (:div :class "source-name" (:span :class "source-glyph" "⛯") (prompter:name source))
  +              (:table :class "source-content"
                  (:tr
                   (loop with property-sample = (if (first (prompter:suggestions source)) ; TODO: Instead, ensure that suggestions always has an element?
                                                    (prompter:properties (first (prompter:suggestions source)))
  
positive.code:                '((* :font-family "monospace,monospace"
                      :font-size "14px"
                      :line-height "18px")
                   (body :border-top "4px solid dimgray"
                         :margin "0"
                         :padding "0 6px")
                   ("#prompt-area"
  
negative.code:                   :grid-template-columns "auto auto 1fr"
                    :width "100%"
                    :padding "6px 0"
                    :color "dimgray")
                   ("#prompt"
                    :line-height "26px")
                   ("#prompt-extra"
  