Automatically place Emacs and URxvt in my preferred places

.sawfish/rc

@@ -167,3 +167,20 @@ raise it."
 (add-window-matcher '((WM_CLASS . "^(Firefox|Conkeror)/Navigator$"))
                     '((position . north-east)
                       (maximized . all)))
+
+(define (term-window-position w)
+  (- (screen-width) (window-width w) 1680))
+
+(add-hook 'place-window-hook
+          (lambda (w)
+            (case (intern (window-class w))
+                  ((URxvt)
+                   (resize-window-with-hints w 79 24)
+                   (move-window-to w (term-window-position w) 0)
+                   (grow-window-down w)
+                   t)
+                  ((Emacs)
+                   (resize-window-with-hints w 101 24)
+                   (move-window-to w 0 0)
+                   (grow-window-down w)
+                   t))))