diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-09 15:05:27 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-09 15:05:27 +0200 |
| commit | e3aee2b049c46599b3e8f7552bd33ea162e485ab (patch) | |
| tree | 043a97f2452cecef526baf6fdede68b94cdfae3b /src/mulk/benki/webutil.clj | |
| parent | eec1fa16980cfc91b9fe69e4840f9cfb2f535167 (diff) | |
Add Lafargue subsite (lazy chat functionality).
Diffstat (limited to 'src/mulk/benki/webutil.clj')
| -rw-r--r-- | src/mulk/benki/webutil.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/mulk/benki/webutil.clj b/src/mulk/benki/webutil.clj index a1a0bb5..88516e6 100644 --- a/src/mulk/benki/webutil.clj +++ b/src/mulk/benki/webutil.clj @@ -13,6 +13,7 @@ +;;;; * Login/authentication (defn authlink [uri] (with-dbt (let [user *user* @@ -47,3 +48,8 @@ :alt "Sign in"}]] [:div "or:"] [:a {:href (link :login)} "Sign in normally"]]))) + + +;;;; * Environment/request stuff +(defn referrer [] + (get-in (request/ring-request) [:headers "referer"])) |