anchor.diff:  			     (:p "Kek"))
   		       (:ul :class "sidebar-menu"
   			    (:li :class "header" "Essential")
  -			    (:li :class "active" :a :href "/dashboard" (:i :class "fa fa-link"
  -									   (:span "Dashboard"))))))))
  +			    (: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)
  
positive.code: 		    :href "dist/css/AdminLTE.min.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "dist/css/skins/skin-blue.min.cs")
  	     (:title ,title)
  	    (:script :src "bootstrap/js/bootstrap.min.js")
  	    (:script :src "plugins/jQuery/jquery-2.2.3.min.js")
  	    (:script :src "dist/js/app.min.js")
  	    (:script :src "plugins/slimScroll/jquery.slimscroll.min.js"))
  	    (:body :class "hold-transition skin-blue fixed"
  		   (:div :class "wrapper"
  			 ,@navbar)
  
negative.code: 				     :name "item-quantity" :id "item-quantity")
  			     (:input :type "hidden" :value ,invoice
  				     :name "invoice" :id "invoice")
  			     (:button :type "submit" :class "btn btn-default btn-sm btn-danger" "Remove"))))))))
  	  (:script "$(\"#itemlist\").DataTable();")))))
  	  
       
  
  (defmacro standard-check-in (&key invoice)
    `(with-html-output (*standard-output* nil :indent t)
  