anchor.diff:  
   (defmacro standard-invoice-writing (&key show set contact pic-num)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "panel panel-default"
  -	   (:div :class "panel-body"
  +     (:div :class "box box-info"
  +	   (:div :class "box-body"
   		 (:ul :class "list-group"
   		      (:li :class "list-group-item list-group-item-success" ,show)
   		      (:li :class "list-group-item list-group-item-danger" ,set)
  
positive.code: ;;;Basic function to create a new show		      
  (define-easy-handler (write-order :uri "/write-order") ()
    (standard-page (:title "Write Order")
      (standard-navbar)
      (standard-order-intro)))
  
  ;;;Adds a message to the global message list
  
negative.code: 			     (:p "Kek"))
  		       (:ul :class "sidebar-menu"
  			    (:li :class "header" "Essential")
  			    (:li :class "treeview active"
  				 (:a :href "/dashboard" (:i :class "fa fa-link")
  							    (:span "Dashboard")))
  			    (:li :class "treeview active"
  				 (:a :href "/write-order" (:i :class "fa fa-circle")
  				     (:span "Write Order")))
  			    (:li :class "treeview active"
  				 (:a :href "/checkinlist" (:i :class "fa fa-check-square")
  				     (:span "Check-in Order"))))))))
  
  (defmacro standard-dashboard (&key messages)
    `(with-html-output (*standard-output* nil :indent t)
  