Profile: Improve RDFa rendition of FOAF+SSL data.

1 files changed, 11 insertions, 11 deletions

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