gistfile1.clj

(defn rpc-url [path] (str "http://wamptutorial/rpc#" path))
(defn evt-url [path] (str "http://wamptutorial/event#" path))

(defn auth-secret [sess-id auth-key extra]
  "secret-password") ; from database
  
(defn auth-permissions [sess-id auth-key}
  ; get permissions for this user
  {:rpc       {(rpc-url "echo") true}
   :subscribe {(evt-url "chat") true}
   :publish   {(evt-url "chat") true}})

(defn wamp-handler
; ...
  (clj-wamp/http-kit-handler channel
    {:on-auth  {:secret      auth-secret
                :permissions auth-permissions}})
; ...