是否有一个在线工具可以像 JSON 一样自动缩进和格式化 Clojure 代码？

有很多在线工具可以获取 JSON 文本，并向您显示该文本的格式化和缩进格式。

有些甚至更进一步，形成了一个漂亮的树状结构：http://jsonviewer.stack.hu/ http://jsonviewer.stack.hu/

我们有类似的 Clojure 代码吗？

或者至少可以自动缩进的东西。

如果我的文字是这样的：

(defn prime? [n known](loop [cnt (dec (count known)) acc []](if (< cnt 0) (not (any? acc))
(recur (dec cnt) (concat acc [(zero? (mod n (nth known cnt)))])))))

它应该自动缩进如下所示：

(defn prime? [n known]
  (loop [cnt (dec (count known)) acc []]
    (if (< cnt 0) (not (any? acc))
    (recur (dec cnt) (concat acc [(zero? (mod n (nth known cnt)))])))))

看一下https://github.com/xsc/rewrite-clj https://github.com/xsc/rewrite-clj它是全新的并且完全符合您的要求。

EDIT我仍然对此表示赞同。我相信我找到了更好的解决方案：您可以轻松地做到这一点clojure.pprint利用code-dispatch无需使用外部库。

(clojure.pprint/write '(defn prime? [n known](loop [cnt (dec (count known)) acc []](if (< cnt 0) (not (any? acc))                                                                                                 (recur (dec cnt) (concat acc [(zero? (mod n (nth known cnt)))]))))) 
  :dispatch clojure.pprint/code-dispatch)
=> 
(defn prime? [n known]
  (loop [cnt (dec (count known)) acc []]
    (if (< cnt 0)
      (not (any? acc))
      (recur
        (dec cnt)
        (concat acc [(zero? (mod n (nth known cnt)))])))))