json - 如何扩展 clojure.contribs json writer 以序列化其他类

Question

我需要从存储 clojure vars 之类的东西的 clojure 映射创建 JSON 对象。基本实现在看到它们时会抛出这种错误:

java.lang.Exception: 不知道 clojure.lang.Var 类的 JSON 怎么写

任何人都可以指点我有关如何扩展 JSON 编写器功能的示例代码吗？

谢谢。

Answer 1

嗯，我想出了答案。还有另一个问题可以部分回答它:How to map clojure code to and from JSON?

但这是对我有用的代码:

(defn- write-json-clojure-lang-var [x #^PrintWriter out]
(.print out (json-str (str x))))

(extend clojure.lang.Var clojure.contrib.json/Write-JSON
    {:write-json write-json-clojure-lang-var})

请注意，我想要做的只是渲染我所指的 Var 的字符串版本。当然，你可以做很多其他的事情......