如何将含after-make-frame-functions的Emacs Lisp代码封装为带主题参数的函数？

嘿，这个问题我之前折腾过，核心就是要让after-make-frame-functions里的lambda能正确捕获到你传入的主题参数，同时还要处理好钩子重复添加的坑。先把你的需求再明确下：

我希望将以下代码封装为名为my-load-theme的函数，接受主题名称作为输入参数（必要时可包含frame等参数），使调用(my-load-theme 'solarized)等价于执行原代码。但因load-theme需嵌入after-make-frame-functions所需的lambda函数中，我遇到了困难，恳请Emacs Lisp高手提供解决方案。

原代码片段：

(add-hook 'after-make-frame-functions (lambda (frame)
                                        (select-frame frame)
                                        (load-theme 'solarized t)
                                        (set-frame-parameter frame 'background-mode 'light)))

直接上可用的实现代码，我还加了一些实用的扩展：

(defun my-load-theme (theme &optional frame background-mode)
  "加载指定的THEME，并自动为新创建的帧应用该主题。
可选参数FRAME用于指定立即应用主题的目标帧（默认是当前选中的帧）；
BACKGROUND-MODE用于设置主题的背景模式（可选值如'light或'dark）。"
  ;; 先处理当前/指定帧的主题加载，确保调用函数时立刻生效
  (let ((target-frame (or frame (selected-frame))))
    (select-frame target-frame)
    (load-theme theme t)
    (when background-mode
      (set-frame-parameter target-frame 'background-mode background-mode)))
  
  ;; 创建绑定了theme和background-mode的钩子函数
  (let ((frame-hook-fn (lambda (new-frame)
                         (select-frame new-frame)
                         (load-theme theme t)
                         (when background-mode
                           (set-frame-parameter new-frame 'background-mode background-mode)))))
    ;; 先移除已存在的同名钩子，避免多次调用后重复执行主题加载逻辑
    (remove-hook 'after-make-frame-functions frame-hook-fn)
    ;; 添加新的钩子到帧创建后触发的列表
    (add-hook 'after-make-frame-functions frame-hook-fn)))

关键细节说明： #

• 参数捕获：用let把lambda函数绑定到frame-hook-fn，这样lambda就能捕获到my-load-theme传入的theme和background-mode参数，确保新帧加载时用的是你指定的主题
• 即时生效：函数开头先处理当前帧（或你传入的指定帧），调用(my-load-theme 'solarized)时立刻就能看到主题变化，不用等新帧创建
• 避免重复钩子：每次添加钩子前先移除同名的函数，防止多次调用my-load-theme后，新帧创建时重复加载主题
• 灵活性：保留了可选的background-mode参数，你可以直接调用(my-load-theme 'solarized nil 'light)来指定浅色模式，或者省略这个参数用主题默认设置

如果你的原代码里还有其他帧相关的配置，只需要把对应的代码复制到当前帧处理和lambda函数的对应位置就行。

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