anchor.diff:            (:li :class "divider-vertical")
             (:li :class "dropdown"
               (:a :href "#" :class "dropdown-toggle" :data-toggle "dropdown"
  -              (:i :class "icon24 i-envelope-2")
  +              (:i :class "icon24 i-envelop-2")
                 (:span :class "notification red" "3"))
               (:ul :class "dropdown-menu messages" :role "menu"
                 (:li :class "head" :role "presentation"
  
positive.code:   `(%admin-auth-page (title ,login-page-fun)
       (%admin-app-page (:title ,title :header #'admin-header
                         :menu #'admin-menu :footer #'admin-footer
                         :scripts ,@(list scripts) :styles ,@(list styles))
        (cl-who:with-html-output (hunchentoot::*standard-output*)
          ,@body))))
  
  ;; Admin Dashboard
  (eval-when (:compile-toplevel :execute :load-toplevel)
    ;; Gotta make these parameters available at macro-expansion time
    (defparameter admin-dashboard-styles (list "/static/css/custom.css"
                                               "/static/css/app.css"))
    (defparameter admin-dashboard-scripts (list "/static/js/pages/dashboard.js"
                                                "/static/js/app.js")))
  
  (defun admin-dashboard ()
    "Admin site dashboard widget generator function."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
  
negative.code:                :scripts admin-dashboard-scripts)
       (admin-dashboard)
       (cl-who:with-html-output (hunchentoot::*standard-output*)
         (:p "A test paragraph, just to see what the deal is... and more... and..."))))
  
  ;; EOF
  