diff options
| -rw-r--r-- | feebleline.el | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/feebleline.el b/feebleline.el index 010d5e2..f294906 100644 --- a/feebleline.el +++ b/feebleline.el @@ -219,20 +219,10 @@ Returns a pair with desired column and string." (defun feebleline--count-windows () "Total window count." - (save-selected-window - (let ((count 0) - (frame-len (length (frame-list))) - (current-frame-count 0) - (frame-counter 0)) - (while (< frame-counter frame-len) - (setq current-frame-count (count-windows)) - (setq count (+ count current-frame-count)) - (let ((index 0)) - (while (< index current-frame-count) - (other-window 1 t) - (setq index (+ index 1)))) - (setq frame-counter (+ frame-counter 1))) - count))) + (let ((count 0)) + (dolist (fn (frame-list)) + (setq count (+ (length (window-list fn)) count))) + count)) (defun feebleline--walk-through-windows (fnc) "Walk through all the windows once and execute callback FNC." @@ -244,6 +234,7 @@ Returns a pair with desired column and string." (other-window 1 t) (setq index (+ index 1)))))) + ;;;###autoload (define-minor-mode feebleline-mode "Replace modeline with a slimmer proxy." |