anchor.diff:  		       (:ul :class "nav navbar-nav navbar-right"
   			    (:li (:a :href "/signout" "Sign out"))
   			    (:li (:a :href "/checkinlist" "Check In"))))))))
  +
  +(defmacro test-navbar ()
  +  `(with-html-output (*standard-output* nil :indent t)
  +     (:aside :class "main-sidebar"
  +	     (:section :class "sidebar"
  +		       (:div :class "user-panel"
  +			     (:p "Kek"))
  +		       (:ul :class "sidebar-menu"
  +			    (:li :class "header" "Essential")
  +			    (:li :class "active" :a :href "/dashboard" (:i :class "fa fa-link"
  +									   (:span "Dashboard"))))))))
   
   (defmacro standard-dashboard (&key messages)
     `(with-html-output (*standard-output* nil :indent t)
  
positive.code: 	 (images-filtered (filter-already-in-itemlist images invoice)))
      
    (standard-page (:title "Order Writeup")
      (standard-navbar)
      (standard-picture-upload)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string showname))
  			      :set (fmt "Setname: ~A" (escape-string setname))
  
negative.code: ;;;Macro's for generating HTML
  ;;;Macros should be designed to work together so pages
  ;;;can be as modular as possible.
  
  (defmacro standard-page ((&key title navbar) &body body)
    `(with-html-output-to-string
         (*standard-output* nil :prologue t :indent t)
       (:html :lang "en"
  	    (:head
  	     (:meta :name "viewport" :content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "bootstrap/css/bootstrap.min.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "https://maxcdn.bootstrapcdn.com/font-awesome/4.7.0/css/font-awesome.min.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "http://code.ionicframework.com/ionicons/2.0.1/css/ionicons.min.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :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)
  		   (:div :class "content-wrapper"
  			 (:section :class "content"
  	     ,@body))))))
  
  (defmacro standard-login ()
    `(with-html-output (*standard-output* nil :indent t)
         
   (:div :class "register-page"
  	  (:div :class "register-box"
  		
  	  (:div :class "register-logo"
  		(:b "RILEY Inventory System"))
  	  
  	  (:div :class "register-box-body"
  	  (:p :class "login-box-msg" "Register a new account")
  	  (:form :action "/adduser"
  		 :method "POST"
  		 :id "commentform"
  		 (:div :class "form-group has-feedback"
  		 (:span :class "form-control-feedback"
  			:id "basic-addon1" "@")
  		 (:input :type "text"
  			 :class "form-control"
  			 :placeholder "Username"
  			 :name "username"
  			 :aria-describedby "basic-addon1"
  			 :id "username"))
  		 (:div :class "form-group has-feedback"
  		       (:span :class "form-control-feedback"
  			      :id "basic-addon1" "$")      
  		 (:input :type "password"
  			 :placeholder "Password"
  			 :name "password"
  			 :class "form-control"
  			 :aria-describedby "basic-addon1"
  			 :id "password"))
  		 
  		 (:div :class "form-group has-feedback"
  		       (:span :class "form-control-feedback"
  			      :id "basic-addon1" "$")
  		       (:input :type "password"
  			       :class "form-control"
  			       :aria-describedby "basic-addon1"
  			 :placeholder "Repeat Password"
  			 :name "password-repeat"
  			 :id "password-repeat"))
  	        
  	        
  		  (:button :type "submit"
  			  :class "btn btn-primary btn-block btn-flat"
  			  "Create Account")))
      
  	  (:div :class "register-box-body"
          
  	  (:form :action "/check-login"
  		 :method "POST"
  		 :id "commentform"
  		 (:div :class "form-group has-feedback"
  		       (:span :class "form-control-feedback"
  			      :id "basic-addon1" "@")
  		       (:input :type "text"
  			       :class "form-control"
  			       :aria-describedby "basic-addon1"
  			 :placeholder "Username"
  			 :name "username"
  			 :id "username"))
  		 (:div :class "form-group has-feedback"
  		      
  		       (:input :type "password"
  			       :class "form-control"
  			       :aria-describedby "basic-addon1"
  			 :placeholder "Password"
  			 :name "password"
  			 :id "password")
  		        (:span :class "form-control-feedback"
  			      :id "basic-addon1" "$"))
  	        
  	         (:button :type "submit"
  			  :class "btn btn-primary btn-flat btn-block"
  			  "Login")))))))
  
  (defmacro standard-navbar ()
    `(with-html-output (*standard-output* nil :indent t)
  