Il rilevamento della finestra di Emacs è già diviso

Question

Come si rileva che una finestra di Emacs è già stata divisa?

Nel mio file .emacs, ho:

(when (display-graphic-p) 
    (set-frame-size (selected-frame) 166 85) 
    (split-window-horizontally)) 

che mi permette di avere due respingenti laterali a fianco, ognuno esattamente 80 caratteri di larghezza.

Ogni tanto cambio il file .emacs e voglio ricaricarlo, quindi eseguo M-x load-file sul mio file .emacs e la finestra in cui mi trovo viene ri-divisa.

C'è una sorta di comando che posso chiamare per verificare se il telaio è già stato dividere e chiamare solo (split-window-horizontally) se non ha? Qualcosa di simile:

(when (window-is-root) 
    (split-window-horizontally)) 

o

(when (not (window-is-already-split)) 
    (split-window-horizontally)) 

Answer 1

window-list lo restituiremo un elenco delle finestre (per il frame corrente), così si dovrebbe essere in grado di fare:

(when (= (length (window-list)) 1) 
    (split-window-horizontally)) 

Controllare fuori il relevant documentation for windows.

Answer 2

Questa è una domanda senza senso, le finestre non sono divisi.

Sì, ci sono funzioni denominate split-window ..., ma quello che fanno è solo per ridurre le dimensioni della finestra, e creare una nuova nello spazio così liberato.

Non è possibile utilizzare solo (= 1 (lunghezza (elenco-finestre))) poiché si dispone di almeno una finestra per fotogramma (senza contare la finestra simile del minibuffer).

Si potrebbe provare:

(< (length (frame-list)) (length (window-list))) 

ma che non ti dice se ci sono diverse finestre nel telaio selezionato, che è quello che si sta effettivamente chiedendo, dato che ovviamente potrebbe essere un altro frame che contiene diversi finestre.

Quindi, se si pone la domanda CORRETTAMENTE, "come posso sapere se il frame selezionato contiene più di una finestra", si può facilmente trovare la risposta:

(require 'cl) 

(defun complement (fun) 
    (byte-compile `(lambda (&rest args) (not (apply ',fun args))))) 

(defun* more-than-one-window-in-frame-p (&optional (frame (selected-frame))) 
    (< 1 (length (remove* frame (window-list) 
         :key (function window-frame) 
         :test (complement (function eql))))))