diff options
author | Tom Willemse | 2013-07-05 21:53:12 +0200 |
---|---|---|
committer | Tom Willemse | 2013-07-05 21:53:12 +0200 |
commit | 88404fc72da717b931a4e5f2b2fc77916dcb7a57 (patch) | |
tree | a117d96e5b79f0342a3ba0a45369e981f0156765 /scrumli.lisp | |
parent | 901fc7b5dcc0acf08b3e85d2160034ee47daedb2 (diff) | |
download | scrumli-88404fc72da717b931a4e5f2b2fc77916dcb7a57.tar.gz scrumli-88404fc72da717b931a4e5f2b2fc77916dcb7a57.zip |
Update UI
- Add `navbar's
- Show a `hero-unit' on the login page with a big login button.
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 45 |
1 files 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") |