anchor.diff:        (:head
           (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
           (:meta :name "viewport" :content "width=device-width, initial-scale=1.0")
  +        (:meta :name "application-name" :content "REDSHIFTNET Admin")
  +        (:meta :name "author" :content "the Phoeron <//thephoeron.com/>")
           (:link :rel "stylesheet" :href "/static/css/bootstrap.min.css" :type "text/css" :media "screen")
  +        (:link :rel "stylesheet" :type "text/css" :href "/static/css/bootstrap/bootstrap-theme.css")
  +        (:link :rel "stylesheet" :type "text/css" :href "/static/css/icons.css")
  +        (:link :rel "stylesheet" :type "text/css" :href "/static/js/plugins/forms/uniform/uniform.default.css")
  +        "<!--[if IE 8]><link href=\"css/ie8.css\" rel=\"stylesheet\" type=\"text/css\" /><![endif]-->"
  +        (:link :rel "apple-touch-icon-precomposed" :sizes "144x144" :href "/static/images/ico/apple-touch-icon-144-precomposed.png")
  +        (:link :rel "apple-touch-icon-precomposed" :sizes "114x114" :href "/static/images/ico/apple-touch-icon-114-precomposed.png")
  +        (:link :rel "apple-touch-icon-precomposed" :sizes "72x72" :href "/static/images/ico/apple-touch-icon-72-precomposed.png")
  +        (:link :rel "apple-touch-icon-precomposed" :href "/static/images/ico/apple-touch-icon-57-precomposed.png")
  +        (:link :rel "shortcut icon" :href "/static/images/ico/favicon.png")
           (:link :rel "stylesheet" :href "/redshiftnet.css" :type "text/css" :media "screen")
           (:link :rel "stylesheet" :href "/admin.css" :type "text/css" :media "screen")
           ,@(mapcar (lambda (file)
  
positive.code:         ,@body
          (:script :type "text/javascript" :src "/static/js/jquery-1.9.1.min.js")
          (:script :type "text/javascript" :src "/static/js/bootstrap.min.js")
          (:script :type "text/javascript" :src "/redshiftnet.js")
          (:script :type "text/javascript" :src "/admin.js")
          ,@(mapcar (lambda (file)
  
negative.code:   (cl-who:with-html-output (hunchentoot::*standard-output*)
      )
    )
  (defparameter admin-login-styles '("/static/css/admin/login.css"))
  (defparameter admin-login-scripts 
    '("/static/js/plugins/forms/uniform/jquery.uniform.min.js"
      "/static/js/plugins/forms/validation/jquery.validate.js"
      "/static/js/pages/login.js"))
  
  (defmacro %basic-admin-app-page ((&key (title "REDSHIFTNET Admin") (styles nil) (scripts nil)) &body body)
    "Basic, no frills Admin page function, useful for error pages, system notifications, login pages, wrapping AJAX html content, etc."
  