在Emacs中重新打开* scratch *缓冲区？

作者: 荧惑
发布时间: 2024-09-14 10:19:37 (9天前)
转自：

8 条回复

0#
回复此人
部落用户 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 要添加到已接受的答案，如果您启用了ILO模式（并且之后是自动完成的 <KBD> C-X </KBD> <KBD> b </KBD> 因此不要让你写 <code> *scratch* </code> ），然后尝试： </p> <BLOCKQUOTE> <P> <KBD> C-X </KBD> <KBD> b </KBD> <KBD> C-B </KBD> <code> *scratch* </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> <P> <code> C-x b C-b *scratch* RET </code> </p> </DIV>

编辑
1#
回复此人
妖邪 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 只是要注意emacs包 <code> unkillable-scratch </code> 在MELPA中会这样做。还有 <code> scratch-persist </code> 这将自动保存和恢复会话之间的缓冲区。 </p> </DIV>

编辑
2#
回复此人
v-star*위위 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我已将目前发布的解决方案合并为一个功能： </p> <pre class="lang-lisp prettyprint-override"> <code> (defun --scratch-buffer(&optional reset) "Get the *scratch* buffer object. Make new scratch buffer unless it exists. If RESET is non-nil arrange it that it can't be killed." (let ((R (get-buffer "*scratch*"))) (unless R (message "Creating new *scratch* buffer") (setq R (get-buffer-create "*scratch*") reset t)) (when reset (save-excursion (set-buffer R) (lisp-interaction-mode) (make-local-variable 'kill-buffer-query-functions) (add-hook 'kill-buffer-query-functions '(lambda()(bury-buffer) nil) ))) R)) </code> </pre> <P> 要将此功能应用于您的 <EM> 的.emacs </EM> 使用： </p> <pre class="lang-lisp prettyprint-override"> <code> (--scratch-buffer t) (run-with-idle-timer 3 t '--scratch-buffer) </code> </pre> <P> 这将使暂存缓冲区首先变得坚不可摧，如果保存，它将被重新创建。另外我们可以使用快捷功能 <code> scratch </code> 快速调出缓冲区： </p> <pre class="lang-lisp prettyprint-override"> <code> (defun scratch() "Switch to *scratch*. With prefix-arg delete its contents." (interactive) (switch-to-buffer (--scratch-buffer)) (if current-prefix-arg (delete-region (point-min) (point-max)) (goto-char (point-max)))) </code> </pre> <P> 在过去，了解启动Emacs的原始启动目录已经证明是有用的。这是价值 <code> desktop-dirname </code> 或者 <code> default-directory </code> 临时缓冲区的局部变量： </p> <pre class="lang-lisp prettyprint-override"> <code> (defvar --scratch-directory (save-excursion (set-buffer "*scratch*") default-directory) "The `default-directory' local variable of the *scratch* buffer.") (defconst --no-desktop (member "--no-desktop" command-line-args) "True when no desktop file is loaded (--no-desktop command-line switch set).") (defun --startup-directory () "Return directory from which Emacs was started: `desktop-dirname' or the `--scratch-directory'. Note also `default-minibuffer-frame'." (if (and (not --no-desktop) desktop-dirname) desktop-dirname --scratch-directory)) </code> </pre> <P> 所以 <EM> --startup目录 </EM> 将始终返回您的makefile，TODO文件等的基本目录。如果没有桌面（ <EM> --no桌面 </EM> 命令行开关或没有桌面文件） <code> --scratch-directory </code> 变量将保存目录Emacs曾经在下面启动过。 </p> </DIV>

编辑
3#
回复此人
荧惑 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 就像文档字符串所说，这个函数将： </p> <BLOCKQUOTE> <P> 切换到临时缓冲区。如果缓冲区不存在，则创建它并将初始消息写入其中。“ </p> </BLOCKQUOTE> <P> 这将带来一个新的临时缓冲区，看起来像初始临时缓冲区。 </p> <pre class="lang-lisp prettyprint-override"> <code> (defun switch-buffer-scratch () "Switch to the scratch buffer. If the buffer doesn't exist, create it and write the initial message into it." (interactive) (let* ((scratch-buffer-name "*scratch*") (scratch-buffer (get-buffer scratch-buffer-name))) (unless scratch-buffer (setq scratch-buffer (get-buffer-create scratch-buffer-name)) (with-current-buffer scratch-buffer (lisp-interaction-mode) (insert initial-scratch-message))) (switch-to-buffer scratch-buffer))) (global-set-key "\C-cbs" 'switch-buffer-scratch) </code> </pre> </DIV>

编辑
4#
回复此人
Just do it | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <BLOCKQUOTE> <P> <KBD> C-X </KBD> <KBD> b </KBD> 然后输入 <code> *scratch* </code> <KBD> ?? </KBD> </p> </BLOCKQUOTE> <P> 创建一个处于lisp交互模式的新缓冲区。 </p> </DIV>

编辑
5#
回复此人
老人与海。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> GNU Emacs默认绑定： </p> <BLOCKQUOTE> <P> <KBD> C-X </KBD> <KBD> b </KBD> <code> *scratch* </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> <P> 或者，更详细 </p> <BLOCKQUOTE> <P> <KBD> M-X </KBD> <code> switch-to-buffer *scratch* </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> <P> 该 <code> *scratch* </code> buffer是启动时选择的缓冲区，具有主模式 <a href="http://www.gnu.org/software/emacs/manual/html_node/emacs/Lisp-Interaction.html" rel="noreferrer"> Lisp交互 </A> 。注意：模式为 <code> *scratch* </code> 缓冲区由变量控制 <a href="http://www.gnu.org/software/emacs/manual/html_node/emacs/Entering-Emacs.html" rel="noreferrer"> <code> initial-major-mode </code> </A> 。 </p> <P> 通常，您可以根据需要创建任意数量的“临时”缓冲区，并根据您的选择命名它们。 </p> <BLOCKQUOTE> <P> <KBD> C-X </KBD> <KBD> b </KBD> <code> NAME </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> <P> 切换到缓冲区 <code> NAME </code> ，如果它不存在则创建它。在使用之前，新缓冲区与磁盘上的文件无关 <KBD> C-X </KBD> <KBD> C-w ^ </KBD> （要么 <KBD> M-X </KBD> <code> write-file </code> <KBD> RET </KBD> ）选择应保存的文件。 </p> <BLOCKQUOTE> <P> <KBD> M-X </KBD> <code> text-mode </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> <P> 将当前缓冲区的主要模式更改为文本模式。要查找所有可用模式（即不需要任何新包），可以通过键入以下内容获取列表： </p> <BLOCKQUOTE> <P> <KBD> M-X </KBD> <code> apropos-command -mode$ </code> <KBD> RET </KBD> </p> </BLOCKQUOTE> </DIV>

编辑
6#
回复此人
咿呀哟 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在EmacsWiki中找到答案： <a href="http://www.emacswiki.org/emacs/RecreateScratchBuffer" rel="nofollow"> http://www.emacswiki.org/emacs/RecreateScratchBuffer </A> </p> <pre> <code> (defun create-scratch-buffer nil "create a scratch buffer" (interactive) (switch-to-buffer (get-buffer-create "*scratch*")) (lisp-interaction-mode)) </code> </pre> </DIV>

编辑

登录后才能参与评论