anchor.diff:            ;; Turn into HTML
             (htmlizer config)
   
  -          #'entitle
  +          #'(lambda (d)
  +              (if (eql (config :title config) :auto) (entitle d) d))
  +
             (twitter-widget has-tweets))
            doc)))))
   
  
positive.code:           (rewriter :section #'(lambda (s) (divver (second s))))
  
            ;; Section markers
            (rewriter :§ (replacing-with '(:hr :class "fleuron")))
  
            ;; Spans.
            (spans-rewriter (config :spans config))
  
negative.code:              (with-open-file (in f :if-does-not-exist nil)
                 (when in
                   (loop for o = (read in nil eof) until (eql o eof) collecting o))))
               (combine (acc file) (merge-alists acc (read-file file)))
               (config-location (filename)
                 (if (file-exists-p "./config/")
                     (merge-pathnames "config/" filename)
                     filename)))
        (let ((files (list
                      (make-pathname :name "defaults" :type "config" :defaults (config-location filename))
                      (make-pathname :type "config" :defaults (config-location filename)))))
          (let ((from-files (reduce #'combine files :initial-value ())))
            (if (config :output from-files)
                from-files
                (cons `(:output ,(default-output-config filename)) from-files)))))))
  
  (defun merge-alists (a1 a2)
    (flet ((combine (acc next)
  