如何在post请求后使用cljs-ajax在cljs中加载另一个页面

Question

我已经创建了一个登录页面login.cljs，handler.clj.here是我的代码login.cljs:-

 (defn handler [response]
  (let[status (aget (clj->js response) "status")
   msg (str (aget (clj->js response) "greeting"))]
   (if (= status 200)
    (home/home-root)
    (js/alert "Invalid username or password"))
   ))
 (defn handle-submit [e app owner]
  (let [[user user-node] (value-from-node owner "username")
        [pass pass-node] (value-from-node owner "password")]
  (POST "/hello"
     {:params {:username user :password pass}
     :handler handler
     :error-handler error-handler
     :format :json
     :response-format :json})
   ))

(defn login-view [app owner]
  (reify
    om/IRender(render [this]
     (dom/div nil
      (dom/h1 nil "Login")
       (dom/input #js {:type "text" :placeholder "Your Name" :ref "username"})
       (dom/input #js {:type "password" :placeholder "Your Password" :ref "password"})
       (dom/button
             #js { :onClick (fn [event] (handle-submit event app owner))}
             "submit")
    ))))
(defn say-hello []
 (om/root
 {} login-view (.getElementById js/document "content")))

家.：-

(defn home-view [app owner]
    (reify
      om/IRender
      (render [this]
        (dom/div nil "Welcome"
  ))))
(defn home-root []
  (om/root
  {}
  home-view
  (.getElementById js/document "content"))

：-

(defn login-check! [request]
  (let [user (get-in request [:params :username])
    pass (get-in request [:params :password])]
   (cond
    (and(= user "admin")(= pass "admin")) (response/response {:greeting user
                     :status 200})
   :else (response/response {:greeting "Invalid username or password"
                          :status 403}))
  ))

 (defroutes app-routes
  (GET "/" [] (response/resource-response "index.html" {:root "public"}))
  (route/resources "/")
  (POST "/hello" request (login-check! request))
  (GET "/home" request (response/response {:body "home"}))
  (route/not-found "Not Found"))

我需要加载主页视图时，它的有效登录。这里，我将另一个cljs方法称为“home/home-root”，但它不起作用。

Answer 1

这里我有一个解决方案.我不知道有多少正确，但它的工作好，我创建了一个新的defn页面使用试剂如下：

 (defn page [page-component]
       (reagent/render-component [page-component] 
                             (.getElementById js/document "content")))

并从login.cljs处理程序方法调用此函数：

 (defn handler [response]
      (page home-root))

现在将调用页面方法，并将主根cljs传递给它。