Jak policzyć wszystkie okna w ramce?

Tak jak zadane pytanie, chciałbym funkcji, która zliczałaby okna wyświetlane obecnie w tej ramce.

Więc to:

+--------------+-------------+
|              |             |
|              |             |
|  *scratch*   | *Messages*  |
|              |             |
|              |             |
|              |             |
+--------------+-------------+
|           *Help*           |
|                            |
+----------------------------+

Wróciłbym => 3

Uruchomiłem funkcję poniżej:

(defun count-windows ()
  "Count how many buffers are currently being shown."
  (interactive)
)

Jeśli masz na myśli liczbę okien niezależnie od tego, które bufory są wyświetlane, to: (length (window-list))zrobi to. Co więcej, możesz po prostu użyć istniejącej (count-windows)funkcji.

Jeśli chcesz policzyć liczbę unikalnych buforów widocznych w oknach na ramce, możesz użyć:

(length (cl-delete-duplicates (mapcar #'window-buffer (window-list))))

(Pamiętaj, że window-listmożesz również wziąć opcjonalny argument FRAME, jeśli chcesz czegoś innego niż wybrana ramka).

Opakowanie tego ostatniego w wywołanie funkcji zapewni:

(defun count-unique-visible-buffers (&optional frame)
  "Count how many buffers are currently being shown.  Defaults to
selected frame."
  (length (cl-delete-duplicates (mapcar #'window-buffer (window-list frame)))))

(Pamiętaj, że ta funkcja zakłada, że ​​załadowałeś 'cl-lib. Zgodnie z komentarzami możesz użyć delete-dupszamiast tego, cl-delete-duplicatesjeśli chcesz tego uniknąć cl-lib).