From 41a9ee97f3c0e41b68342bf7dc22b49a7ca6ab4b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 19 Jun 2012 00:05:15 +0200
Subject: Profile: Publish full name on profile page.

---
 src/mulk/benki/id.clj | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index 38dab61..2589e80 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -80,11 +80,19 @@
 
 (def profile-page {})
 
+(defn user-name [uid]
+  (let [user (query1 "SELECT first_name, last_name FROM users WHERE id = ?" uid)]
+    (fmt nil "~A ~A"
+         (:first_name user)
+         (:last_name user))))
+
 (defn show-profile-page [user]
-  (layout profile-page "A Profile Page"
-    [:div {:typeof "foaf:Person"}
-     [:h2 "Public Keys"]
-     (with-dbt
+  (with-dbt
+    (layout profile-page "A Profile Page"
+      [:div {:typeof "foaf:Person"}
+       [:div {:property "foaf:name"}
+        (user-name user)]
+       [:h2 "Public Keys"]
        (sql/with-query-results keys ["SELECT * FROM user_rsa_keys WHERE \"user\" = ?" user]
          (doall
           (for [{modulus  :modulus,
@@ -101,7 +109,7 @@
                 [:dt "Exponent"]
                 [:dd {:property "cert:exponent"
                       :datatype "xsd:integer"}
-                 (fmt nil "~D" exponent)]]]])))))]))
+                 (fmt nil "~D" exponent)]]]]))))])))
 
 (defn render-xrds [nickname]
   {:status 200
-- 
cgit v1.2.3