如何将Emacs启动Slime及项目初始化流程绑定为单按键/命令？

没问题！你可以通过编写一段Emacs Lisp函数把这些重复步骤打包成一个自定义命令，再绑定到顺手的按键上。下面是具体的实现方案：

打开你的Emacs配置文件（比如~/.emacs或者~/.emacs.d/init.el），添加以下代码：

(defun my-start-project ()
  "一键启动Common Lisp项目环境并启动Web服务器"
  ;; 替换为你的实际项目工作目录
  (cd "/path/to/your/myproject")
  ;; 仅当Slime未连接时启动它，避免重复启动报错
  (unless (slime-connected-p)
    (slime))
  ;; 等待Slime完全就绪，防止后续命令因REPL未初始化失败
  (while (not (slime-connected-p))
    (sleep-for 0.1))
  ;; 在Slime中加载项目
  (slime-eval '(ql:quickload 'myproject))
  ;; 切换REPL当前包，对应`, +p myproject`操作
  (slime-repl-set-package "MYPROJECT")
  ;; 启动Web服务器
  (slime-eval '(start-server)))

代码解释： #

• (cd "/path/to/your/myproject")：把路径替换成你项目的实际工作目录，确保后续操作都在正确的目录下进行
• 检查Slime连接状态的逻辑：避免重复启动Slime导致的错误，如果你已经打开了Slime，这个命令会直接复用现有连接
• 等待循环：给Slime一点时间完成启动和连接，确保后续的Lisp代码能在REPL中正常执行
• slime-eval：相当于在Slime REPL中手动输入并执行对应的Common Lisp表达式
• slime-repl-set-package：直接调用Emacs内置的函数切换REPL包，和你手动输入, +p myproject效果完全一致

如果你想快速触发这个命令，可以把它绑定到全局快捷键，比如C-c p（按下Ctrl+C后再按P）：

(global-set-key (kbd "C-c p") 'my-start-project)

如果你只想在Slime相关模式下生效，可以绑定到局部快捷键：

(add-hook 'slime-mode-hook
          (lambda ()
            (local-set-key (kbd "C-c p") 'my-start-project)))

• 确保你的项目已经在Quicklisp的搜索路径中，不然ql:quickload会找不到myproject
• 如果你的start-server需要传入参数（比如指定端口），可以修改对应的slime-eval语句，比如(slime-eval '(start-server :port 8080))
• 如果等待Slime就绪的时间不够，可以适当调整sleep-for的数值（比如改成0.5表示等待500毫秒）

内容的提问来源于stack exchange，提问作者Javelinapps