Commit a147320f authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Add a menu binding to retrieve existing windows not already managed by CLFSWM

parent 64e0032f
......@@ -1665,7 +1665,9 @@ managed."
(all-frame-windows (get-all-frame-windows)))
(dolist (win (xlib:query-tree (xlib:screen-root screen)))
(unless (or (child-member win all-windows)
(child-member win all-frame-windows))
(child-member win all-frame-windows)
(child-equal-p win *no-focus-window*)
(child-equal-p win *sm-window*))
(let ((map-state (xlib:window-map-state win))
(wm-state (window-state win)))
(unless (or (eql (xlib:window-override-redirect win) :on)
......
......@@ -457,6 +457,9 @@ Write (defparameter *contrib-dir* \"/usr/local/lib/clfswm/\") in ~A.~%"
(show-all-children t)))
(defun retrieve-existing-window ()
"Retrieve existing windows not already managed by CLFSWM."
(process-existing-windows *screen*))
......
......@@ -87,6 +87,7 @@
(add-menu-key 'child-menu "n" 'ensure-unique-number)
(add-menu-key 'child-menu "Delete" 'delete-current-child)
(add-menu-key 'child-menu "X" 'remove-current-child)
(add-menu-key 'child-menu "R" 'retrieve-existing-window)
(add-menu-key 'child-menu "h" 'hide-current-child)
(add-menu-key 'child-menu "u" 'unhide-a-child)
(add-menu-key 'child-menu "f" 'unhide-a-child-from-all-frames)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment