summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mulk/benki/id.clj22
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