# HG changeset patch
# User ht
# Date 1208628265 -3600
# Node ID ee87d53174b1318eed24929e588689271cd8be18
# Parent  f7491bba94b5a2682484bce817c7c062927f1afb
wide screen?

diff -r f7491bba94b5 -r ee87d53174b1 pers-init.el
--- a/pers-init.el	Sat Apr 19 19:03:58 2008 +0100
+++ b/pers-init.el	Sat Apr 19 19:04:25 2008 +0100
@@ -409,8 +409,14 @@
 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
 
 (cd (user-home-directory))
-(site-caseq (laptop (if (= (device-pixel-width (selected-device)) 1600)
-			;; we're on a big external monitor
-			(progn
-			  (set-frame-pixel-size (selected-frame) 900 1140)
-			  (set-frame-position (selected-frame) -3 -20)))))
+(site-caseq (laptop
+	     (let ((pw (device-pixel-width (selected-device))))
+	       (if (= pw 1600)
+		   ;; we're on a big external monitor
+		   (progn
+		     (set-frame-pixel-size (selected-frame) 900 1140)
+		     (set-frame-position (selected-frame) -3 -20))
+		 (if (= pw 1280)
+		     (progn
+		       (set-frame-pixel-size (selected-frame) 640 740)
+		       (set-frame-position (selected-frame) -3 -20)))))))