anchor.diff:          ,@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 "/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 "/admin.js")
           ,@(mapcar (lambda (file)
  
positive.code:                   (if (validate-credentials username password)
                        (progn (create-new-session username)
                               (,@body))
                        (%basic-admin-app-page (:title "Login Failed")
                          (show-all-messages)
                          (,@login-page-fun)))))
                 ((eql :get (hunchentoot:request-method*))
                  (progn (hunchentoot:start-session)
                         (%basic-admin-app-page (:title "Login")
                           (cl-who:with-html-output (hunchentoot::*standard-output*)
                             (,@login-page-fun)))))
                 (t (hunchentoot:redirect "/403/")))
  
negative.code:                       (create-new-session the-user)
                        (cl-who:with-html-output (hunchentoot::*standard-output*)
                          ,@body))
                 (progn (%basic-admin-app-page (:title "Error: Validation Failure"
                                                :scripts admin-login-scripts
                                                :styles admin-login-styles)
                          (show-all-messages)
                          (cl-who:with-html-output (hunchentoot::*standard-output*)
                            (,@login-page-fun)))))))))
  
  (defmacro admin-page ((title login-page-fun &key (styles nil) (scripts nil)) &body body)
    "Admin site page generator macro."
    `(%admin-auth-page ,name (uri title ,@login-page-fun)
       (%admin-app-page (:title ,title :header #'admin-header
                         :menu #'admin-menu :footer #'admin-footer
                         :scripts ,@scripts :styles ,@styles)
        (cl-who:with-html-output (hunchentoot::*standard-output*)
          ,@body))))
  
  ;; Admin Dashboard
  (defparameter admin-dashboard-styles '())
  (defparameter admin-dashboard-scripts '())
  
  (defun admin-dashboard ()
    "Admin site dashboard widget generator function."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
      )
    )
  
  (defrequest rsn-admin (:vhost *ssl-vhost*)
    (admin-page ("REDSHIFTNET Admin :: Dashboard" #'admin-login
                 :styles admin-dashboard-styles
                 :scripts admin-dashboard-scripts)
       (admin-dashboard)))
  
  ;; EOF
  