Emacs विंडो का पता लगाना पहले ही विभाजित है

Question

मैं कैसे पता लगा सकता हूं कि एक Emacs विंडो पहले ही विभाजित हो चुकी है?

मेरी .emacs फ़ाइल में, मेरे पास है:

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

जो मुझे साइड-बाई-साइड दो बफ़र्स, प्रत्येक वास्तव में 80 वर्ण विस्तृत करने के लिए अनुमति देता है।

प्रत्येक बार थोड़ी देर में मैं अपनी .emacs फ़ाइल बदलता हूं और इसे जगह में फिर से लोड करना चाहता हूं, इसलिए मैं अपने .emacs फ़ाइल पर M-x load-file चलाता हूं और उस विंडो में मैं फिर से विभाजित हो जाता हूं।

क्या कोई ऐसा आदेश है जिसे मैं कॉल कर सकता हूं यह जांचने के लिए कि क्या फ्रेम पहले ही विभाजित हो चुका है और केवल (split-window-horizontally) पर कॉल करें यदि यह नहीं है? कुछ की तरह:

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

या

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

Answer 1

window-list आप खिड़कियों की एक सूची (वर्तमान फ्रेम के लिए) वापस आ जाएगी, तो आप ऐसा करने में सक्षम होना चाहिए:

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

चेक relevant documentation for windows बाहर।

Answer 2

यह एक अर्थहीन प्रश्न है, खिड़कियां विभाजित नहीं हैं।

हां, स्प्लिट-विंडो नामक फ़ंक्शंस हैं ..., लेकिन वे क्या करते हैं केवल खिड़की के आकार को कम करने के लिए, और अंतरिक्ष में एक नया स्थान बनाते हैं।

आप केवल (= 1 (लंबाई (विंडो-सूची)) का उपयोग नहीं कर सकते हैं क्योंकि आपके पास प्रति फ्रेम कम से कम एक विंडो है (मिनीबफर की सिमिल-विंडो की गणना नहीं)।

आप की कोशिश कर सकते:

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

लेकिन यह है कि आपको बता नहीं है अगर वहाँ चयनित फ्रेम, जो क्या आप वास्तव में, पूछ रहे हैं के बाद से स्पष्ट रूप से यह एक और फ्रेम कि कई शामिल हो सकता है में कई खिड़कियां हैं विंडोज। पूरी तरह से

(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))))))