fetch lib eliminated

project.clj

@@ -6,7 +6,7 @@
                            [ring/ring-core "1.1.0"]
                            [cssgen "0.2.6"]
                            [jayq "0.1.0-alpha2"]
-                           [fetch "0.1.0-alpha2"]
+                           [cheshire "4.0.0"]
                            [clj-redis "0.0.12"]
                            [org.pegdown/pegdown "1.1.0"]
                            [noir "1.3.0-beta1"]]

src-cljs/main.cljs

@@ -1,7 +1,6 @@
 (ns NoteHub.main
-  (:use [jayq.core :only [$ css inner val anim show]])
+  (:use [jayq.core :only [$ xhr css inner val anim show]])
-  (:require [fetch.remotes :as remotes]
+  (:require [goog.dom :as gdom]
-            [goog.dom :as gdom]
             [NoteHub.crossover.lib :as lib]
             [clojure.browser.dom :as dom]
             [clojure.browser.event :as event])
@@ -33,11 +32,16 @@
 ; to the preview layer and scroll to it
 (.click ($ :#preview-button)
         (fn [e]
-            (fm/remote (get-preview-md (val $session-key) (val $draft)) [{:keys [preview session-key]}] 
+          (xhr [:post "/preview"]
-                       (show $preview-start-line)
+               {:session-key (val $session-key) 
-                       (inner $preview preview)
+                :draft (val $draft)}
-                       (val $session-key session-key)
+               (fn [json-map]
-                       (scroll-to $preview-start-line))))
+                 (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)))))))
 
 (.click ($ :#publish-button)
         (fn [e]

src/NoteHub/views/pages.clj

@@ -15,8 +15,8 @@
     [noir.response :only [redirect status]]
     [noir.core :only [defpage render]]
     [noir.util.crypt :only [encrypt]]
-    [noir.statuses]
+    [cheshire.core]
-    [noir.fetch.remotes])
+    [noir.statuses])
   (:import 
     [java.util Calendar]
     [org.pegdown PegDownProcessor]))
@@ -59,10 +59,11 @@
 
 ; This function answers to an AJAX request: it gets a session key and a markdown text.
 ; It returns the html code of the provided markdown and a new session key.
-(defremote get-preview-md [session-key md]
+(defpage [:post "/preview"] {:keys [session-key draft]}
-           (when (flash-get session-key)
+         (when (flash-get session-key)
+           (generate-string
              {:session-key (get-flash-key)
-              :preview (md-to-html md)}))
+              :preview (md-to-html draft)})))
 
 ; Landing Page
 (defpage "/" {}