anchor.diff:  
   (defmacro standard-picture-table (&key image-list)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "box"
  +     (:div :class "box box-default collapsed-box"
  +	   (:div :class "box-header with-border"
  +		 "List of pictures to be written up"
  +		 (:div :class "box-tools pull-right"
  +		       (:button :class "btn btn-box-tool" :data-widget "collapse"
  +				(:i :class "fa fa-plus"))))
   	   (:div :class "box-body"
   		    (dolist (image ,image-list)
   		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
  
positive.code: 		 (fmt "~A" (escape-string (message-content messages))))
  	   (if (find-invoice-from-message messages)
  	       (htm
  		(:div :class "media-right"
  		      (:form :action "/pre-set-cookies"
  			     :method "POST"
  			     (:input :type "hidden" :name "showname" :value (show-name (find-invoice-from-message messages)))
  			     (:input :type "hidden" :name "setname" :value (invoice-set-name (find-invoice-from-message messages)))
  			     (:input :type "hidden" :name "contact" :value (invoice-contact-name (find-invoice-from-message messages)))
  			     (:button :type "submit" :class "btn btn-default" "Write Order"))))))))))
  
  (defmacro standard-item-writeup (&key image)
    `(with-html-output (*standard-output* nil :indent t)
  
negative.code: 				     (:span "Write Order")))
  			    (:li :class "treeview active"
  				 (:a :href "/checkinlist" (:i :class "fa fa-check-square")
  				     (:span "Check-in Order")))
  			    (:li :class "treeview active"
  				 (:a :href "/signout" (:i :class "fa fa-sign-out")
  				     (:span "Sign Out"))))))))
  
  (defmacro standard-dashboard (&key messages)
    `(with-html-output (*standard-output* nil :indent t)
  