anchor.diff:  (defmethod print-tagged-element :around ((tag (eql :code)) stream rest)
     (if *colorize-code-spans-as*
         (format stream "~a"
  -              (let ((colorize::*css-background-class* "code"))
  +              (let ((colorize::*css-background-class* (or *code-blocks-span-class*
  +                                                          "code")))
                   (colorize::html-colorization *colorize-code-spans-as*
                                                (text rest))))
         (call-next-method)))
  
positive.code: (defparameter *code-blocks-pre-class* nil
    "css class to use for <pre> blocks (for ``` blocks)")
  (defparameter *code-blocks-span-class* nil
    "css class to use for <span> blocks")
  
  (defparameter *colorize-name-map*
    ;; names are downcased and whitespace,-,_ removed before looking them up
  
negative.code:                             (colorize::html-colorization clang content))
                            content)))
        (3bmd::padded (2 stream)
          (format stream "<pre~@[ class=\"~a\"~]><code>" *code-blocks-pre-class*)
          (format stream "~a" formatted)
          (format stream "</code></pre>")))))
  
  