emacs cider 清除 REPL 缓冲区

Question

user>我只是想清除 repl 缓冲区，以便在第一行留下一个提示符，例如 ( )。

我有一个键绑定：

(put 'erase-buffer 'disabled nil)
(global-set-key (kbd "C-x C-<backspace>") 'erase-buffer)

但这给出了这样的信息：

文本是只读的

有这个选项C-c C-o，但这只会清除最后一个返回值。

使用 python 时，我认为run-python以下命令是C-x M-ocomint-clear-buffer

Answer 1

cider-repl.elcider-repl-clear-buffer提供一个默认绑定到的函数：

M-x c-r--bu RET

C-c M-b据我所知，cider-repl 没有使用as ：

(add-hook 'cider-repl-mode-hook
      '(lambda () (define-key cider-repl-mode-map (kbd "C-c M-b")
            'cider-repl-clear-buffer)))