branch: externals/window-commander
commit 63e295f599e304c96e66d1316c85a480f2cb21a1
Author: Daniel Semyonov <cm...@dsemy.com>
Commit: Daniel Semyonov <cm...@dsemy.com>
Add a user option to customize the scope of window tracking
* swsw.el (swsw-scope): Add user option to control the scope of window
tracking.
(swsw--get-id-length, swsw-update): Use 'swsw-scope' to determine
tracked windows.
---
swsw.el | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/swsw.el b/swsw.el
index ac73979542..421dce92c7 100644
--- a/swsw.el
+++ b/swsw.el
@@ -46,6 +46,18 @@
:group 'swsw
:type '(character))
+(defcustom swsw-scope t
+ "Scope of all window operations.
+t means consider all windows on all existing frames.
+0 (the number zero) means consider all windows on all visible and iconified
+frames.
+‘visible’ means consider all windows on all visible frames."
+ :group 'swsw
+ :type '(radio (const :tag "All windows on all frames" t)
+ (const
+ :tag "All windows on all visible and iconified frames." 0)
+ (const :tag "All windows on all visible frames" 'visible)))
+
(defun swsw--set-display-function (sym fun)
"Call the previous display function with nil as the sole argument (turning
it off), set SYM's value to FUN, and call FUN with t as the sole argument."
@@ -92,7 +104,7 @@ If set to `lighter', use the mode line lighter of
`swsw-mode'"
(defun swsw--get-id-length ()
"Return the current length of a window ID."
- (let* ((windows (length (window-list-1)))
+ (let* ((windows (length (window-list-1 nil nil swsw-scope)))
(chars (length swsw-id-chars))
(div (/ windows chars)))
;; Check the remainder to returning a longer length than necessary.
@@ -109,7 +121,7 @@ If set to `lighter', use the mode line lighter of
`swsw-mode'"
(push swsw-id-chars char-lists)
(setq acc (1+ acc)))
(apply #'swsw--get-possible-ids char-lists)))
- (walk-windows #'swsw-update-window nil t))
+ (walk-windows #'swsw-update-window nil swsw-scope))
(defun swsw-update-window (window)
"Update information for WINDOW."
