(require 'sawfish.client)

(sawfish-client-eval '(
 (defun m-place-windows ()
   (let ((w0 (get-window-by-name "huygens-0"))
         (w1 (get-window-by-name "huygens-1")))
     (move-window-to w0
                     (- (screen-width)
                        (+ (car (window-frame-dimensions w0))
                           (car (window-frame-dimensions w1)))) 0)
     (move-window-to w1
                     (- (screen-width) (car (window-frame-dimensions w1))) 0)))

 (defun m-move-window ()
   (let ((w1 (get-window-by-name "lorentz-1")))
     (do ((y 50 (- y 1)))
         ((< y 0))
       (move-window-to w1
                       (- (- (screen-width)
                             (car (window-frame-dimensions w1))) y) y)
       (sync-server)
       (sleep-for 0 30)                 ; 0s 30ms
       )
     ))

 (m-place-windows)
 ) t)

;; names of all windows
;; (mapcar window-name (managed-windows))
;; or
;; (mapcar (lambda (x) (print (window-name x))) (managed-windows))