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

Question

Eu tentei adicionar este snippet 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:

• a janela superior é dired
• janela inferior é shell

Observado:

• a janela superior é zero
• a janela inferior é dired

Answer 1

Graças 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*")))