有很多在线工具可以获取 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)))])))))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)