From 95f8ddb6de40e59f8209f8b96d543bb18a434e20 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 18 Jun 2012 22:58:35 +0200
Subject: Issue webID-enabled certificates to users.

---
 src/mulk/benki/util.clj | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/mulk/benki/util.clj')

diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index 46e187d..7f85ead 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -3,7 +3,7 @@
   (:use [hiccup core page-helpers]
         [clojure.core.match :only [match]]
         noir.core
-        [mulk.benki config])
+        [mulk.benki config db])
   (:require [noir.session  :as session]
             [noir.request  :as request]
             [noir.response :as response]
@@ -57,6 +57,13 @@
     content
     (:bottom kind)]))
 
+(defmulti user-nickname type)
+(defmethod user-nickname java.lang.String [x]
+  x)
+(defmethod user-nickname java.lang.Number [x]
+  (with-dbt
+    (:nickname (query1 "SELECT * FROM user_nicknames WHERE \"user\" = ?" x))))
+
 (defn linkrel [& args]
   (match [(vec args)]
     [[:login]]           (str (:cert-req-base @benki-config) "/login")
@@ -71,6 +78,7 @@
     [[:wiki title & xs]] (fmt nil "/wiki/~a~@[~a~]" title (first xs))
     [[:keys]]            "/keys"
     [[:keys :register]]  "/keys/register"
+    [[:profile user]]    (fmt nil "/~~~a" (user-nickname user))
     ))
 
 (defn link [& args]
-- 
cgit v1.2.3