post-ajax.clj

;; browser req
(defn fetch [template placeholders]
  (let [snippet "<switching-to> closing script"]
    (POST "/snippets"
          {:params {:template "template" :placeholders "placeholders"}
           :handler #(.log js/console (str "ok: " %))
           :error-handler #(.log js/console (str "error: " %))})
    (reduce-kv (fn [s k v] (s/replace s (re-pattern k) v)) snippet placeholders)))

;; server handler
(defroutes app-routes
  ; (POST "/snippets" request {:body (str "got request with " request)})
  ; (POST "/snippets" {body :body} {:body (str "got body " (slurp body))})
  (POST "/snippets" {body-params :body-params} {:body (str "got params " body-params)})
  (resources "/"))