ClojureScript：解析Transit响应

Posted 2021-04-05

我本周开始学习ClojureScript而且我解析了Transit响应，我有这个功能：

(defn handler [response]
   (let [comment (:comment response)
         created_at (:created_at response)
         last_name (:last_name response)
         _ (.log js/console (str ">>> COMMENT >>>>> " comment))
        comments_div (.getElementById js/document "comments")]
      (.append comments_div comment)
      (.log js/console (str "Handler response: " response))))

控制台显示：

所以，“回复”看起来很好但我无法从“响应”地图（我认为是地图）中获取内容：

 comment (:comment response) or comment (get response :comment)

标题说响应是“application / transit + json”类型。我试过了：

     (ns blog.core
        (:require [cognitect.transit :as t])) 

       (def r (t/reader :json))

      let [parsed (t/read r response).... <--- inside the let block

但到目前为止没有运气。需要我解析var“响应”吗？

答案

由于它不像地图那样工作，它可能是一个字符串。尝试检查响应类型。同

(println (type response))

如果它是一个字符串，那么：

(ns example
  (:require [clojure.data.json :as json]))
  (console.log ((json/read-str response) :comment))

另一答案

这很好用：

 (ns blog.core
   (:require [domina :as dom]
        [ajax.core :refer [GET POST DELETE]]
        [cognitect.transit :as t]
        [bide.core :as r]))

(def r (t/reader :json))

(defn handler [response]
  (let [parsed (t/read r response)
        _  (.log js/console (str ">>> PARSED >>>>> " (type parsed) ">>>>" parsed))
    comment      (get parsed "comment")
    .... rest of the code...