diff options
| -rw-r--r-- | src/mulk/benki/id.clj | 18 |
1 files 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 |