anchor.diff:  			      (:input :type "text" :class "form-control"
   				      :id "message" :name "message"
   				      :placeholder "Post a message")
  -			      (:button :type "Submit Message" :class "btn btn-default" "Message"))))
  -	   (:div :class "panel-body"
  -		 ,messages))))
  +			      (:button :type "Submit Message" :class "btn btn-default btn-info" "Message")))))
  +	   
  +		 ,messages))
   
   (defmacro standard-global-messages ()
     `(with-html-output (*standard-output* nil :indent t)
  +   
  +     (:ul :class "timeline"
  +	  (:li :class "time-label"
  +	       (:span :class "bg-red"
        (dolist (messages (find-global-messages)) 
  -     (htm (:div :class "media alert alert-info"
  -	   (:div :class "media-left"
  +       (htm
  +	(:li (:i :class "fa fa-envelope bg-blue")
  +	(:div :class "timeline-item"
  +	   (:div :class "timeline-header"
   		 (:a :class "pull-left" :href (concatenate 'string "/profile/" (message-sender messages))))
  -	   (:div :class "media-body"
  +	   (:div :class "timeline-body"
   		 (:h4 :class "media-heading"
   		      (:a :href (concatenate 'string "/profile/" (message-sender messages))
   			  (fmt "~A" (escape-string (message-sender messages)))))
  
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: 	     (:title ,title)
  	    (:script :src "http://code.jquery.com/jquery-latest.min.js")
  	    (:script :src "bootstrap/js/bootstrap.min.js")
  	    (:script :src "dist/js/app.min.js")
  	    (:script :src "plugins/slimScroll/jquery.slimscroll.min.js")
  	    (:script :src "plugins/fastclick/fastclick.js")
  