Book Marx: Show the login status in the upper right-hand corner.

1 files changed, 22 insertions, 0 deletions

diff --git a/src/mulk/benki/webutil.clj b/src/mulk/benki/webutil.clj
new file mode 100644
index 0000000..37b93a3
--- /dev/null
+++ b/src/mulk/benki/webutil.clj
@@ -0,0 +1,22 @@
+(ns mulk.benki.webutil
+  (:refer-clojure)
+  (:use [hiccup      core page-helpers]
+        [clojure.core.match :only [match]]
+        noir.core
+        [mulk.benki  db util])
+  (:require [noir.session  :as session]
+            [noir.request  :as request]
+            [noir.response :as response]
+            [clojure.java.jdbc :as sql])
+  (:import [java.text DateFormat]))
+
+
+(defpartial login-message []
+  (let [user-id (session/get :user)
+        user    (and user-id
+                     (with-dbt (sql/with-query-results results
+                                   ["SELECT * FROM users WHERE id = ?" user-id]
+                                 (first results))))]
+    (if user-id
+      [:div {:class "logged-in-as"}  (:first_name user) " " (:last_name user)]
+      [:div {:class "not-logged-in"} [:a {:href (link :login)} "Log in"]])))