anchor.diff:  (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")
  +  "css class to use for <span>s from colorized `` inlines")
   
   (defparameter *colorize-name-map*
     ;; names are downcased and whitespace,-,_ removed before looking them up
  
positive.code:   (:export #:*code-blocks*
             #:*code-blocks-default-colorize*
             #:*code-blocks-pre-class*
             ))
  (in-package #:3bmd-code-blocks)
  
  
negative.code: (defmethod print-tagged-element :around ((tag (eql :code)) stream rest)
    (if *colorize-code-spans-as*
        (format stream "~a"
                (let ((colorize::*css-background-class* (or *code-blocks-span-class*
                                                            "code")))
                  (colorize::html-colorization *colorize-code-spans-as*
                                               (text rest))))
        (call-next-method)))
  