如何定义Emacs Lisp函数以使用在shell中执行的特定命令生成shell缓冲区？

Question

我正在进行Rails开发,并发现我需要生成一个shell,重命名缓冲区(例如webrick),然后启动命令(rails s),然后如果我想要一个rails控制台或rails dbconsole那么重新做一遍,每次我启动emacs时都有rspec,spork等.

我希望这样的事情:

(defun spawn-shell ()
   "Invoke shell test"
    (with-temp-buffer
      (shell (current-buffer))
      (process-send-string nil "echo 'test1'")
      (process-send-string nil "echo 'test2'")))

我不希望shell在退出时消失,因为shell缓冲区中的输出很重要,有时我需要杀死它并重新启动它但我不想丢失那个历史记录.
基本上,我想采用手动过程并使其可以调用.

任何帮助深表感谢

汤姆

Answer 1

也许这个版本spawn-shell会做你想要的:

(defun spawn-shell (name)
  "Invoke shell test"
  (interactive "MName of shell buffer to create: ")
  (pop-to-buffer (get-buffer-create (generate-new-buffer-name name)))
  (shell (current-buffer))
  (process-send-string nil "echo 'test1'\n")
  (process-send-string nil "echo 'test2'\n"))

当您以交互方式运行它时,它会提示输入名称(M-x spawn-shell).它使用输入名称创建一个新缓冲区generate-new-buffer-name,并且您在发送到进程的字符串末尾缺少换行符.