some refactoring

2012-06-16 12:35:56 +02:00
parent 98b99ae29c
commit 04d64879a5
5 changed files with 28 additions and 25 deletions
@@ -33,12 +33,11 @@
 ; to the preview layer and scroll to it
 (.click ($ :#preview-button)
        (fn [e]
-          (do
            (fm/remote (get-preview-md (val $session-key) (val $draft)) [{:keys [preview session-key]}] 
                       (show $preview-start-line)
                       (inner $preview preview)
                       (val $session-key session-key)
-                       (scroll-to $preview-start-line)))))
+                       (scroll-to $preview-start-line))))

 (.click ($ :#publish-button)
        (fn [e]