如何在Emacs中列出非ECB窗口？

Question

我碰到this gist

(defun swap-windows() 
"If you have 2 windows, it swaps them." 
(interactive) 
(cond ((not (= (count-windows) 2)) 
     (message "You need exactly 2 windows to do this.")) 
     (t 
     (let* ((w1 (first (window-list))) 
       (w2 (second (window-list))) 
       (b1 (window-buffer w1)) 
       (b2 (window-buffer w2)) 
       (s1 (window-start w1)) 
       (s2 (window-start w2))) 
      (set-window-buffer w1 b2) 
      (set-window-buffer w2 b1) 
      (set-window-start w1 s2) 
      (set-window-start w2 s1))))) 

走到今天，其交换缓冲区的内容在两个窗口，只要恰好有两个窗口。对我来说问题是我通常有ecb运行，这会创建一个或多个额外的窗口。除了从其他地方获得的调整方法之外，我从来没有真正用过elisp做过任何事情，而这个（希望）简单的改变略高于我目前的理解。

我花了一些时间浏览ecb信息和emacs手册，但找不到合理的方法来确定是否有两个非ecb窗口打开。

我也尝试过在ecb窗口中使用'bury-buffer'之类的东西，所以我可以假设它们不会在列表的前面，但这是一个有缺陷的方法。

所以我的问题，有没有办法修改的要点，使其与ecb工作？我假设ecb windows有一些特别的东西，但是我找不到任何我可以访问的东西。

Answer 1

我也尝试过使用像欧洲央行窗口“埋葬缓冲区”，所以我只能假设，他们将不会在列表的前面，但这是开始与一个有缺陷的方法。

一个黑客一点，但你可以隐藏ECB窗口，调用swap-windows，并再次显示它们，就像这样：

 
(defun my-swap-windows() 
    (interactive) 
    (ecb-hide-ecb-windows) 
    (swap-windows) 
    (ecb-show-ecb-windows)) 

顺便说一句，我不得不添加此行得到要点工作：

 
(require 'cl) 

编辑：我没有看到改变窗口大小，你所描述的问题，但是却忽略欧洲央行窗口此代码应交换非ECB窗口。

 
(require 'cl) 

(defun non-ecb-window-list() 
    (remove-if 
    #'(lambda (window) 
     (find (window-buffer window) (ecb-dedicated-special-buffers))) 
    (window-list))) 

(defun count-non-ecb-windows() 
    (length (non-ecb-window-list))) 

(defun swap-windows() 
"If you have 2 windows, it swaps them." 
(interactive) 
(cond ((not (= (count-non-ecb-windows) 2)) 
     (message "You need exactly 2 windows to do this.")) 
     (t 
     (let* ((w1 (first (non-ecb-window-list))) 
       (w2 (second (non-ecb-window-list))) 
       (b1 (window-buffer w1)) 
       (b2 (window-buffer w2)) 
       (s1 (window-start w1)) 
       (s2 (window-start w2))) 
      (set-window-buffer w1 b2) 
      (set-window-buffer w2 b1) 
      (set-window-start w1 s2) 
      (set-window-start w2 s1))))) 

Answer 2

我会继续发布这个答案，因为我写了/发现它有一些更多的试验和错误。我所要求的并不是我所接受的答案，但对于其他人阅读本主题，它有其自身的优点。

(defun swap-windows() 
"Swap two windows." 
(interactive) 
(let* ((w1 (selected-window)) 
    (w2 (next-window)) 
    (b1 (window-buffer w1)) 
    (b2 (window-buffer w2)) 
    (s1 (window-start w1)) 
    (s2 (window-start w2))) 
    (set-window-buffer w1 b2) 
    (set-window-buffer w2 b1) 
    (set-window-start w1 s2) 
    (set-window-start w2 s1))) 

因为我基本上总是知道什么是C-X O转换到，这正是“未来窗”应该返回，这个功能几乎都是我想要的。然而，它没有任何形式的错误检查，并没有真正回答写下来的问题，只是我表达不好的意图。