From 88404fc72da717b931a4e5f2b2fc77916dcb7a57 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Fri, 5 Jul 2013 21:53:12 +0200
Subject: Update UI

- Add `navbar's
- Show a `hero-unit' on the login page with a big login button.
---
 scrumli.lisp | 45 +++++++++++++++++++++++++++++++++++++++------
 1 file changed, 39 insertions(+), 6 deletions(-)

diff --git a/scrumli.lisp b/scrumli.lisp
index 26f99c5..2c8c21a 100644
--- a/scrumli.lisp
+++ b/scrumli.lisp
@@ -30,10 +30,13 @@
 (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*
@@ -47,8 +50,18 @@
                (<:script :type "text/javascript"
                          :src *scrumelo-jsxtransformer-js-location*))
        (<:body
-        (<:a :href "/logout" "Logout") " "
-        (hunchentoot:session-value :username)
+        (<: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")
@@ -128,14 +141,34 @@
   (if (not (logged-in-p))
       (<:html :lang "en"
               (<:head (<:meta :charset "utf-8")
-                      (<:title "Login")
+                      (page-title "Login")
+                      (<:link :href *scrumelo-bootstrap-css-location*
+                              :rel "stylesheet" :type "text/css")
+                      (<:script :type "text/javascript"
+                                :src *scrumelo-bootstrap-js-location*)
                       (<:script :src "https://login.persona.org/include.js")
                       (<:script :src "/js/login.js"))
               (<:body
+               (<:div :class "navbar navbar-static-top navbar-inverse"
+                      (<:div :class "navbar-inner"
+                             (<:div :class "container"
+                                    (<:a :class "brand" "scrumli")
+                                    (<:ul :class "nav pull-right"
+                                          (<:li (<:a :href "javascript:login()"
+                                                     "Login"))))))
+               (<:div :class "container"
+                      (<:br)
+                      (<:div :class "hero-unit"
+                             (<:h1 "Scrumli")
+                             (<:p "As a " (<:em "developer") " I "
+                                  (<:em "love") " to " (<:em "scrum")
+                                  "...")
+                             (<:a :class "btn btn-primary btn-large"
+                                  :href "javascript:login()"
+                                  "Login")))
                (<:form :id "login-form" :method "POST" :action ""
                        (<:input :id "assertion-field" :type "hidden"
-                                :name "assertion" :value ""))
-               (<:p (<:a :href "javascript:login()" "Login"))))
+                                :name "assertion" :value ""))))
       (redirect 'main)))
 
 (define-route logout-page ("logout")
-- 
cgit v1.2.3-54-g00ecf