(require 'sawfish.client)

(sawfish-client-eval
 '(
   (defun m-place-windows ()
     (let ((t0 (get-window-by-name "huygens-0"))
           (t1 (get-window-by-name "huygens-1"))
           (cl (get-window-by-name-re "\\w\\w\\w \\w\\w\\w \\d+")))
       (move-window-to t0
                       (- (screen-width)
                          (+ (car (window-frame-dimensions t0))
                             (car (window-frame-dimensions t1)))) 0)
       (move-window-to t1
                       (- (screen-width) (car (window-frame-dimensions t1))) 0)
       (move-window-to cl
                       (- (screen-width) (car (window-frame-dimensions cl)))
                       (- (screen-height) (cdr (window-frame-dimensions cl))))
       ))

   (m-place-windows))
 t)

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