From 5260b137670a6dc4b9e36e4b7047f185740cfa00 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Mon, 15 Dec 2014 13:00:30 +0100
Subject: [PATCH] Add contextual session login/logout to nav (#57)

---
 templates/default-layout.hamlet | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet
index bef117a..763b38e 100644
--- a/templates/default-layout.hamlet
+++ b/templates/default-layout.hamlet
@@ -9,7 +9,7 @@
         <img src="/static/img/stackage.png" title="FP Complete">
       <div>
         <ul class="nav">
-          $forall route <- [AllSnapshotsR,UploadStackageR,AuthR LoginR]
+          $forall route <- [AllSnapshotsR,UploadStackageR]
             $maybe current <- cur
               $if route == current
                 <li .active>
@@ -20,7 +20,15 @@
             $nothing
               <li>
                   <a href=@{route}>#{route}
-
+          $maybe Entity _ user <- muser
+              <li>
+                  <a href=@{ProfileR}>
+                      #{userDisplay user} (#{userHandle user})
+              <li>
+                <a href=@{AuthR LogoutR}>Logout
+          $nothing
+              <li>
+                <a href=@{AuthR LoginR}>Login
 
 $maybe msg <- mmsg
     <div .container>