anchor.diff:     (lambda (chunk)
        (when (eq (started-by chunk) 'line-is-code-p)
          (push 'code (markup-class chunk))
  -       (setf (paragraph? chunk) nil)))))
  +       (setf (paragraph? chunk) nil)
  +       ;; remove last line if it is empty
  +       ;;?? is this really the right place to do this...
  +       (when (every #'whitespacep (last-item (lines chunk)))
  +	 (delete-last (lines chunk))
  +       )))))
   
   (defun remove-indent (line)
     ;; removes a single level of indent
  
positive.code:     result))
  
  (defmethod can-merge-lines-p ((line-1 string) (line-2 string))
    (values t))
  
  (defmethod can-merge-lines-p ((line-1 t) (line-2 t))
    (values nil))
  
negative.code: 	   (load-time-value (ppcre:create-scanner 
  	    '(:sequence #\{ (:greedy-repetition 0 nil :whitespace-char-class)
  	      "include" (:greedy-repetition 0 nil :whitespace-char-class)
  	      :whitespace-char-class
  	      (:register (:greedy-repetition 0 nil :everything))
  	      (:greedy-repetition 0 nil :whitespace-char-class) #\}))) line)))
      (when matches
  