emacs - 在启动时添加挂钩到 emacs 从头开始

Question

我已将 emacs 暂存器设置为在方案模式下打开，我正在运行 xscheme，这意味着当我运行命令时，M-x run-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)))

我想在启动时自动run-scheme启动而不是输入它，但到目前为止我的尝试还没有让我走得更远。

我是否朝着正确的方向前进？

Answer 1

完全未经测试：

(add-hook 'after-init-hook 'my-scratch-run-scheme)
(defun my-scratch-run-scheme ()
  (with-current-buffer "*scratch*"
    (run-scheme))) ;; or perhaps (call-interactively 'run-scheme)

Answer 2

我把它放在我的初始化中

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

如果我不添加 helm-mode ，则每次启动 emacs 时emacs-startup-hook都需要运行。M-x helm-mode还有番茄提醒我休息。