在启动时向emacs scratch添加钩子

我已将emacs scratch设置为在scheme模式下打开，我正在运行xscheme，这意味着当我运行命令

M-x run scheme

时，我可以使用scratch缓冲区评估scheme，而不是elisp

;;(setq initial-scratch-message "")
(setq initial-major-mode 'scheme-mode)
(require 'xscheme)

;;(add-hook '**CAN I ADD A HOOK HERE?**-hook
;;    (lambda ()
;;      (run-scheme)))

我想在启动时自动

运行scheme

，而不必键入它，但我迄今为止的尝试并没有让我成功

我的方向正确吗？

完全未经测试：

（在init hook“我的scratch运行方案”之后添加hook）
（取消我的临时跑步计划（）
（带当前缓冲区“*划痕*”
（跑步计划）；；或者（以交互方式调用“运行方案”）

我把它放在我的init中

;; hooks
;; startup
(add-hook 'emacs-startup-hook
          (lambda ()
            (helm-mode t)
            (visual-line-mode t)
            (pomodoro-start 25))) ; 25 is minutes for work

---

如果我没有将头盔模式添加到

emacs启动挂钩

，我需要在每次启动emacs时运行

M-x头盔模式

。提醒我休息。

简单地将

（运行方案）

放在.emacs的顶层是否有效？@JonO it出现错误，无法打开init文件。这就是问题所在<代码>交互调用。