[clfswm-devel] Tile managed children keep position bug fix

[Алесь]

(defun update-layout-managed-children-keep-position (child parent)
  (let ((managed-children (frame-data-slot parent :layout-managed-children))
	(managed-in-parent (get-managed-child parent)))
    (dolist (ch managed-in-parent)
      (unless (child-member ch managed-children)
	(setf managed-children (append managed-children (list ch)))))
    (setf managed-children (remove-if-not (lambda (x)
					    (child-member x managed-in-parent))
					  managed-children))
    (setf (frame-data-slot parent :layout-managed-children) managed-children)
    managed-children))


-- 
Regards,
Ales Guzik
------------------------------------------------------------
e-mail: ales.guzik at gmail.com
skype: ales-guzik
tel: +375 29 5751103