From aebb61cd613d1e104a044180cc729f252d6f8415 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 18 Jun 2012 23:42:18 +0200
Subject: Profile: Improve RDFa rendition of FOAF+SSL data.

---
 src/mulk/benki/id.clj | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'src')

diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index 5e6376f..38dab61 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -84,16 +84,16 @@
   (layout profile-page "A Profile Page"
     [:div {:typeof "foaf:Person"}
      [:h2 "Public Keys"]
-     [:div {:rel "cert:key"}
-      [:div {:typeof "cert:RSAPublicKey"}
-       [:dl
-        (with-dbt
-          (sql/with-query-results keys ["SELECT * FROM user_rsa_keys WHERE \"user\" = ?" user]
-            (doall
-             (for [{modulus  :modulus,
-                    exponent :exponent}
-                   keys]
-               (list
+     (with-dbt
+       (sql/with-query-results keys ["SELECT * FROM user_rsa_keys WHERE \"user\" = ?" user]
+         (doall
+          (for [{modulus  :modulus,
+                 exponent :exponent}
+                keys]
+            (list
+             [:div {:rel "cert:key"}
+              [:div {:typeof "cert:RSAPublicKey"}
+               [:dl
                 [:dt "Modulus (hex)"]
                 [:dd {:property "cert:modulus"
                       :datatype "xsd:hexBinary"}
@@ -101,7 +101,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