Janela dividida na borda mais externa

Estou procurando uma maneira de adicionar uma nova janela de altura total dividida a uma configuração de janela existente (dividida). Como não sei como explicá-lo corretamente, publicarei alguns gráficos ASCII mostrando o comportamento desejado para dois exemplos de configurações de janelas:

             from                              to  

  +-------------------------+      +---------------------+---+  
  |                         |      |                     |   |  
  |                         |      |                     |   |  
  |            A            |  =>  |           A         | E |  
  |                         |      |                     |   |  
  |                         |      |                     |   |  
  +-------------------------+      +---------------------+---+  

  +------------+------------+      +----------+----------+---+  
  |            |     B      |      |          |   B      |   |
  |     A      +------------+      |     A    +----------+   |
  |            |     C      |  =>  |          |   C      | E | 
  +------------+------------+      +----------+----------+   |
  |            D            |      |          D          |   |
  +-------------------------+      +---------------------+---+  

onde a função aceita a largura desejada da nova janela Ee diminui as larguras de A, B, C, e Dem conformidade. Edit2 : Observe que os dois desenhos acima são exemplos do comportamento esperado para um caso concreto. Estou procurando uma função geral que faça isso independentemente da configuração na coluna from (ou seja, o número de janelas [divididas] na coluna from deve ser arbitrário).

Também estou procurando essa funcionalidade no lado esquerdo e na parte superior e inferior de um quadro.

Edit: Do comentário de @ Nsukami_, percebi que a funcionalidade que estou procurando é um caso especial de um problema mais abstrato. Então, vou descrever esse problema:

Como você armazena uma configuração de janela (que consiste em qualquer número de janelas e buffers) e "cola" a configuração armazenada em uma janela existente?

A "pasta" deve preservar os tamanhos relativos das janelas e a divisão; naturalmente a configuração colada resultante é uma cópia em escala.

A função a seguir deve fazer o que você deseja. O truque é dividir a janela raiz do quadro atual.

(defun my-split-main-window (direction size)
  "Split the main window in the DIRECTION where DIRECTION is a symbol with
possible values of right, left, above or below and SIZE is the final size of the
windows, if the window is split horizontally (i.e. in DIRECTION below or above)
SIZE is assumed to be the target height otherwise SIZE is assumed to be the
target width"
  (let* ((new-window (split-window (frame-root-window) nil direction))
         (horizontal (member direction '(right left))))
    (save-excursion 
      (select-window new-window)
      (enlarge-window (- size (if horizontal
                                  (window-width)
                                (window-height)))
                      horizontal))
    new-window))

Chame a função com a direção na qual você dividirá a janela e o tamanho da nova janela. O exemplo acima retorna a janela recém-criada. O conceito, as janelas e os quadros são explicados muito bem no Manual de Referência do GNU Emacs Lisp .

Não tenho certeza se a melhor solução, como não é o suficiente abstraído, estou resolvendo apenas um caso de uso. O truque é escrever uma função para ir de layoutX para layoutY, e outra para ir de layoutY para layoutX

(defun from-x-to-y ()
 (interactive)
 (delete-other-windows)
 (split-window-vertically) ;;
 (let ((current-prefix-arg 10)) ;; emulate C-u
   (call-interactively 'enlarge-window) ;; resize
   )
 (split-window-horizontally) ;; -> |
 (next-multiframe-window)
 (split-window-vertically) ;;  -> --
 (previous-multiframe-window)
)

(defun from-y-to-x ()
  (interactive)
  (delete-other-windows)
  (split-window-horizontally) ;; -> |
  (let ((current-prefix-arg -60)) ;; emulate C-u
    (call-interactively 'shrink-window-horizontally) ;; resize
    )
  (split-window-vertically) ;; -> --
  (let ((current-prefix-arg 10)) ;;
    (call-interactively 'enlarge-window) ;;
    )
  (split-window-horizontally) ;;
  (next-multiframe-window)
  (split-window-vertically) 
  (previous-multiframe-window)
)

Espero que a solução ajude

Como você armazena uma configuração de janela (que consiste em qualquer número de janelas e buffers) e "cola" a configuração armazenada em uma janela existente?

Acabei de encontrar um pacote chamado layout.el , eu nunca o usei, mas parece ser o que você está procurando, você nos dirá se está bem.

EDITAR:

Tentando encontrar uma solução mais genérica, parece que você pode usar M-x switch-to-buffer-other-framepara ir de um buffer em um quadro, digamos com um layout X, para outro buffer em outro quadro com um layout Y.

Você também pode estar em um layout X, armazenar esse layout em um registro C-x r f(configuração de quadro para registro), ir para outro layout e, quando necessário, voltar para o anterior, chamando o que está dentro do registro C-x r j (jump- registrar)