session tokens stored in redis now; tests extended

This commit is contained in:
Christian Mueller
2012-06-18 20:55:26 +02:00
parent b080c472f2
commit 0fcf4742e3
5 changed files with 102 additions and 60 deletions
+1 -3
View File
@@ -32,13 +32,11 @@
(.click ($ :#preview-button)
(fn [e]
(xhr [:post "/preview"]
{:session-key (val $session-key)
:draft (val $draft)}
{:draft (val $draft)}
(fn [json-map]
(let [m (js->clj (JSON/parse json-map))]
(do
(inner $preview (m "preview"))
(val $session-key (m "session-key"))
(show $preview-start-line)
(scroll-to $preview-start-line)))))))