From 76862c4c608f464f0eaed1d7fc8872d6ba067832 Mon Sep 17 00:00:00 2001
From: ignacio <ignacio@minnow.(none)>
Date: Wed, 3 Aug 2011 22:47:14 -0700
Subject: [PATCH] Allow setting of :cookie-attrs for ring session cookies.

---
 src/noir/session.clj | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/noir/session.clj b/src/noir/session.clj
index 6fe7109..f240954 100644
--- a/src/noir/session.clj
+++ b/src/noir/session.clj
@@ -52,7 +52,14 @@
       (when-let [resp (handler request)]
         (assoc resp :session @*noir-session*)))))
 
+(defn assoc-if [m k v]
+  (if (not (nil? v))
+    (assoc m k v)
+    m))
+
 (defn wrap-noir-session [handler]
   (-> handler
     (noir-session)
-    (wrap-session {:store (options/get :session-store (memory-store mem))})))
+    (wrap-session
+     (assoc-if {:store (options/get :session-store (memory-store mem))}
+               :cookie-attrs (options/get :session-cookie-attrs)))))