anchor.diff:          (: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")
  +        (:link :rel "stylesheet" :type "text/css" :href "/static/js/plugins/ui/jgrowl/jquery.jgrowl.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 "/redshiftnet.css" :type "text/css" :media "screen")
           (:link :rel "stylesheet" :href "/static/css/app.css" :type "text/css" :media "screen")
           ,@(mapcar (lambda (file)
                       `(:link :type "text/css" :rel "stylesheet" :media "screen"
  
positive.code:       (:body
          ,@body
          (:script :type "text/javascript" :src "/static/js/jquery-1.10.2.min.js")
          (:script :type "text/javascript" :src "/static/js/bootstrap/bootstrap.min.js")
          (:script :type "text/javascript" :src "/static/js/conditionizr.min.js")
          (:script :type "text/javascript" :src "/static/js/plugins/core/nicescroll/jquery.nicescroll.min.js")
          (:script :type "text/javascript" :src "/static/js/plugins/core/jrespond/jRespond.min.js")
          (:script :type "text/javascript" :src "/static/js/jquery.redshiftnetAdmin.js")
          (:script :type "text/javascript" :src "/redshiftnet.js")
          (:script :type "text/javascript" :src "/static/js/app.js")
          ,@(mapcar (lambda (file)
                      `(:script :type "text/javascript"
  
negative.code:   `(%admin-auth-page (title ,login-page-fun)
       (%admin-app-page (:title ,title :header #'admin-header
                         :menu #'admin-menu :footer #'admin-footer
                         :scripts ,scripts :styles ,@(list styles))
        (cl-who:with-html-output (hunchentoot::*standard-output*)
          ,@body))))
  
  ;; Admin Dashboard
  (defun admin-dashboard ()
    "Admin site dashboard widget generator function."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
  