Emacs: Как разбить, открыть оболочку в нижнем окне при запуске?

Question

Я попытался добавить этот фрагмент к моему ~/.emacs , но полученное отображение буфера / окна выглядит странно.

;; Open split shell on launch
(add-hook 'after-init-hook
  (lambda ()
    (let ((w (split-window-below 2)))
      (select-window w)
      (sh))
      (switch-to-buffer "*shell*")))

Пример:

$ emacs .

Ожидаемое:

• верхнее окно занято
• нижнее окно - оболочка

Наблюдаемый:

• верхнее окно это царапина
• нижнее окно занято

Answer 1

Благодаря @lawlist:

;; Open split shell on launch
(add-hook 'emacs-startup-hook
  (lambda ()
    (let ((w (split-window-below 2)))
      (select-window w)
      (sh))
      (switch-to-buffer "*shell*")))