From eb06ac12c47379d65278d3508f88a85bcfab4e58 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Mon, 17 Jun 2013 16:21:55 +0200
Subject: [PATCH] Automatically place Emacs and URxvt in my preferred places

---
 .sawfish/rc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/.sawfish/rc b/.sawfish/rc
index 9ba9e8d..5f7da7c 100644
--- a/.sawfish/rc
+++ b/.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))))