anchor.diff:  (defun logged-in-p ()
     (hunchentoot:session-value :username))
   
  +(defun page-title (title)
  +  (<:title (concatenate 'string title " | scrumli")))
  +
   (define-route main ("")
     (if (logged-in-p)
         (<:html
  -       (<:head (<:title "Hello!")
  +       (<:head (page-title "Backlog")
                  (<:link :href *scrumelo-bootstrap-css-location*
                          :rel "stylesheet" :type "text/css")
                  (<:link :href *scrumelo-font-awesome-css-location*
  
positive.code:   (if (not (logged-in-p))
        (<:html :lang "en"
                (<:head (<:meta :charset "utf-8")
                        (<:title "Login")
                        (<:script :src "https://login.persona.org/include.js")
                        (<:script :src "/js/login.js"))
                (<:body
                 (<:form :id "login-form" :method "POST" :action ""
                         (<:input :id "assertion-field" :type "hidden"
                                  :name "assertion" :value ""))
                 (<:p (<:a :href "javascript:login()" "Login"))))
        (redirect 'main)))
  
  (define-route logout-page ("logout")
  
negative.code:                (<:script :type "text/javascript"
                           :src *scrumelo-jsxtransformer-js-location*))
         (<:body
          (<:div :class "navbar navbar-static-top navbar-inverse"
                 (<:div :class "navbar-inner"
                        (<:div :class "container"
                               (<:a :class "brand" "scrumli")
                               (<:div :class "pull-right"
                                      (<:span :class "navbar-text"
                                              (hunchentoot:session-value
                                               :username))
                                      (<:ul :class "nav pull-right"
                                            (<:li :class "divider-vertical")
                                            (<:li (<:a :href "/logout"
                                                       "Logout")))))))
          (<:div :class "container"
                 (<:h1 "Backlog")
                 (<:div :id "content")
  