crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

session key problem at preview fixed

Browse Source
This commit is contained in:
Christian Mueller
2012-06-02 13:41:23 +02:00
parent d4d2cc244b
commit a1527fec21
3 changed files with 34 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src-cljs/main.cljs
+5 -3
View File
@@ -10,6 +10,7 @@
; frequently used selectors
(def $draft ($ :#draft))
(def $preview ($ :#preview))
(def $session-key ($ :#session-key))
(def $preview-start-line ($ :#preview-start-line))
(defn scroll-to
@@ -30,12 +31,13 @@
(.click ($ :#preview-button)
(fn [e]
(do
(fm/remote (md-to-html (val $draft)) [result]
(fm/remote (get-preview-md (val $session-key) (val $draft)) [{:keys [preview session-key]}]
(show $preview-start-line)
(inner $preview result)
(inner $preview preview)
(val $session-key session-key)
(scroll-to $preview-start-line)))))
(.click ($ :#publish-button)
(fn [e]
(val ($ :#session-value)
(nh/hash #(.charCodeAt % 0) (str (val $draft) (val ($ :#session-key)))))))
(nh/hash #(.charCodeAt % 0) (str (val $draft) (val $session-key))))))