Emacs: Como dividir e abrir o shell na janela inferior no lançamento?

Question

Tentei adicionar esse trecho ao meu ~/.emacs, mas o mapeamento de buffer/janela resultante é estranho.

;; 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*")))

Exemplo:

$ emacs .

Esperado:

• janela superior está direcionada
• janela inferior é shell

Observado:

• a janela superior está arranhada
• janela inferior está direcionada

Answer 1

Obrigado a @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*")))