Question

我已将emacs scratch 设置为以scheme模式打开，我正在运行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

我把它放在我的init

中

;; 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-startup-hook，我每次启动emacs时都需要运行M-x helm-mode。并pomodoro提醒我休息一下。

在启动时添加挂钩到emacs scratch

2 个答案: