emacs - 在 Emacs 中用苹果酒评估的表达式获得 pretty-print 结果

Question

我想直接在我的 Emacs 缓冲区中以 pretty-print 形式插入已评估的 Clojure 表达式的结果。

例如，像这样:

    ;; [emacs lisp]
    (insert (nrepl-dict-get (nrepl-sync-request:eval "(range 30)") "value"))

我得到，在感兴趣的缓冲区中，

    ;;=>
    (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29)

过去，我让 Clojure 为我打印漂亮的东西，如下所示:

(nrepl-dict-get
  (nrepl-sync-request:eval
    (format "(clojure.core/let [x %s] (with-out-str (clojure.pprint/pprint x)))"
            "(range 30)"))
  "value")
;;=>
"(0\n 1\n 2\n 3\n 4\n 5\n 6\n 7\n 8\n 9\n 10\n 11\n 12\n 13\n 14\n 15\n 16\n 17\n 18\n 19\n 20\n 21\n 22\n 23\n 24\n 25\n 26\n 27\n 28\n 29)\n"

然而， "和 \n被插入转义；我希望它们被插入未转义。换句话说，我希望直接插入 pretty-print 结果，而无需转义引号或换行符。这曾经适用于早期版本的苹果酒和 cider-nrepl .

Answer 1

包装:

(nrepl-dict-get
  (nrepl-sync-request:eval
    (format "(clojure.core/let [x %s] (with-out-str (clojure.pprint/pprint x)))"
            "(range 30)"))
  "value")

在 read应该解决这个问题。