Allow setting of :cookie-attrs for ring session cookies.

ithayer · Aug 4, 2011 · 76862c4 · 76862c4
1 parent 6451415
commit 76862c4
Showing 1 changed file with 8 additions and 1 deletion.
diff --git 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)))))