Como contar todas as janelas em um quadro?

Assim como a pergunta afirmou, eu gostaria de uma função que contasse as janelas que estão sendo mostradas atualmente nesse quadro.

Então, é isso:

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

Retornaria => 3

Comecei uma função abaixo:

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

Se você quer dizer o número de janelas, independentemente de quais buffers estão sendo exibidos, então: (length (window-list))fará isso. Melhor ainda, você pode simplesmente usar a (count-windows)função existente .

Se você quiser contar o número de buffers exclusivos visíveis nas janelas do quadro, poderá usar:

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

(Observe que window-listtambém é possível usar um argumento FRAME opcional se você quiser algo diferente do quadro selecionado.)

Ao agrupar o último em sua chamada de função, você terá:

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

(Observe que esta função supõe que você tenha carregado 'cl-lib. Conforme os comentários, você pode usá-lo delete-dupsno lugar de cl-delete-duplicatesse quiser evitar cl-lib.)