anchor.diff:                              (colorize::html-colorization clang content))
                             content)))
         (3bmd::padded (2 stream)
  -        (format stream "<pre~@[ class=~a~]><code>" *code-blocks-pre-class*)
  +        (format stream "<pre~@[ class=\"~a\"~]><code>" *code-blocks-pre-class*)
           (format stream "~a" formatted)
           (format stream "</code></pre>")))))
   
  
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:   (:export #:*code-blocks*
             #:*code-blocks-default-colorize*
             #:*code-blocks-pre-class*
             #:*code-blocks-span-class*
             #:*colorize-code-spans-as*
             ))
  (in-package #:3bmd-code-blocks)
  
  