anchor.diff:  		      (:a :href (concatenate 'string "/profile/" (message-sender messages))
   			  (fmt "~A" (escape-string (message-sender messages)))))
   		 
  -		 (fmt "~A" (escape-string (message-content messages)))))))))
  +		 (fmt "~A" (escape-string (message-content messages))))
  +	   (if (find-invoice-from-message messages)
  +	       (htm
  +		(:div :class "media-right"
  +		      (:form :action "/setthemcookies"
  +			     :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)))
  +		 (:button :type "submit" :class "btn btn-default" "Write Order"))))))))))
   
   (defmacro standard-order-intro ()
     `(with-html-output (*standard-output* nil :indent t)
  
positive.code: 			  :placeholder "Contact Name" :name "inputContact"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
    (let ((showname (hunchentoot:post-parameter "inputShowname"))
  	(setname (hunchentoot:post-parameter "inputSetname"))
  
negative.code:     (standard-navbar)
      (standard-dashboard :messages (standard-global-messages)))
    (redirect "/login"))))
  
  (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
    (standard-page (:title "Set Them Cookies")
      (standard-navbar)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string (hunchentoot:post-parameter "showname")))
      :set (fmt "Setname: ~A" (escape-string (hunchentoot:post-parameter "setname"))))))
  
  (define-easy-handler (signout :uri "/signout") ()
    (set-cookie "current-user" :value "login")
  