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

[Philippe Brochard]

Алесь writes:

> (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))
>
Welcome on this list and thanks a lot for fighting this inattention error.

Regards,

Philippe