add-hook to emacs scratch при запуске

Question

Я установил emacs scratch, чтобы открыть в режиме схемы, я запускаю 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 

Если я не добавить штурвалом-режим emacs-startup-hook, мне нужно запустить M-x helm-mode каждый раз я начинаю Emacs , И pomodoro, чтобы напомнить мне отдохнуть.