创建 Cygwin emacs 宏

Question

我一直在研究如何让 Cygwin 在 emacs 下工作。我已经让它工作了，但现在我想编写一个宏来执行以下操作：

• 通过键入 Mx cygwin 启动
• 将脚本存储在某个明显的位置（可能是我的 .emacs 文件）
• Mx shell
• 将缓冲区重命名为 cygwin （或 cygwin1， cygwin2，cygwin3，...如果 cygwin 存在）可能使用 Mx rename-buffer
• M-x ansi-color-for-comint-mode-on
• M-x set-buffer-process-coding-system 'undecided-unix 'undecided-unix
• 打开并运行cygwin

基本上会完成以上所有步骤。我认为这个小项目的大部分组织工作已经完成。我如何将它们结合在一起，以便我只需输入 Mx cygwin 就可以看到一个令人愉快的新 cygwin 缓冲区？到底需要将什么添加到 .emacs 中？另外，Windows 中的 .emacs 到底在哪里？

我现在仍然希望能够为 Windows shell 运行 Mx shell。我还可以为 MSYS 和 ssh 到我的 Linux 机器制作类似的宏。我该如何开始？

Answer 1

很多问题，这里有一些答案：

您的 .emacs 可以存在很多地方，这取决于情况，请阅读此处。简而言之，尝试 Cx Cf .emacs，或检查变量 'user-init-file 的值 (Ch v user-init-file ）。

我认为您想要的命令大致如下：

(require 'comint) ; this does require comint
(defun cygwin ()
  "do what i want for cygwin"
  (interactive)
  (let ((buffer (get-buffer-create (generate-new-buffer-name "cygwin"))))
    (pop-to-buffer buffer)
    (unless (comint-check-proc buffer)
      (apply 'make-comint-in-buffer (buffer-name buffer) buffer "c:/cygwin/Cygwin.bat"
             nil
             nil)
      (ansi-color-for-comint-mode-on)
      (set-buffer-process-coding-system 'undecided-unix 'undecided-unix))))

注意：我直接运行了进程Cygwin.bat，而不是运行 shell 然后启动该批处理程序。我相信效果是一样的，而且更直接。我确实选择了命名缓冲区的简单方法（使用'generate-new-buffer-name） - 您需要自定义您想要的内容。

您可以通过执行 Cx Cf .emacs 并将其粘贴到打开的缓冲区中，最简单地将上述命令转储到 .emacs 中。保存并重新启动（或者当光标位于该命令正文时执行 Mx eval-defun 。然后 Mx cygwin 将运行该命令。