快速打印缩进 JSON

Question

你好！

格式化的 JSON 非常方便人类阅读，例如在调试或探索 JSON API 时。data.json 以 {{pprint-json}} 的形式提供格式化。问题是，{{pprint-json}} 非常慢，因为它试图适应某些行宽限制。在实践中，使用 {{pprint-json}} 而不是 {{write-str}} 可能需要 20-100 倍的时间，以至于在实际上无法在生产中使用。

`
clojure.data.json=> (def data (read-string (slurp "sample.edn")))

'clojure.data.json/data

clojure.data.json=> (count data)
4613
clojure.data.json=> (time (do (clojure.data.json/write-str data) nil))
"执行时间：219.33 毫秒"
clojure.data.json=> (time (do (with-out-str (clojure.data.json/pprint-json data)) nil))
"执行时间：25271.549 毫秒"
`

建议的增强功能非常简单：缩进新的键和数组元素，但不要试图将值适应行宽限制。对于人类来说，以这种方式格式化的 JSON 仍然易于阅读，结构明显。唯一的缺点是一些行可能会变得很长。

在附带的补丁中，我修改了 {{write-array}} 和 {{write-object}}，为 {{write}} 添加了新的 {{:indent}} 选项。现在要打印缩进的 JSON，可以写：{{(write-str data :indent true)}}。

当然，会有一些性能损失，但相对较小。

clojure.data.json=> (time (do (clojure.data.json/write-str data :indent true) nil)) "执行时间：250.18 毫秒"

我还修复了一个小错误：{{(seq m)}} 中的 {{(seq m)}} 在 {{write-object}} 中应该是 {{(seq x)}}。

Answer 1

参考：https://clojure.atlassian.net/browse/DJSON-18（由 tonsky 提出）

Answer 2

该补丁已应用（至少自 clojure.data.json 2.4.0 日起），但 :indent boolean 选项未在 write 函数的文档字符串中记录。

此外，缩进目前固定为每层级别2个空格。这是一个合理的默认值，但可能需要将 :indent 选项扩展以允许自定义每层的空格数。《:indent true》将等同于 :indent 2，《:indent false》将等于 :indent 0。

Comments

我已经更新了文档字符串以添加 :indent 以供下一个版本发布。我已在 https://clojure.atlassian.net/browse/DJSON-60 上记录了缩进控制，以供将来参考。

---

感谢您的快速修复！还有一个问题（抱歉最初没有提到）：`json/pprint` 的文档字符串应该更新以表明不支持 `:indent`。

---

谢谢，已修复。