From f47c93af277a72af7e67b8417d0bff5fc11d6436 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Wed, 28 Nov 2012 23:35:35 +0100
Subject: [PATCH] Reset last head sizes on CLFSWM reset

---
 src/clfswm-internal.lisp | 3 +++
 src/clfswm.lisp          | 1 +
 2 files changed, 4 insertions(+)

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index ea0a3eb..0531d92 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -852,6 +852,9 @@ XINERAMA version 1.1 opcode: 150
 
 
 (let ((last-sizes nil))
+  (defun reset-last-head-size ()
+    (setf last-sizes nil))
+
   (defun place-frames-from-xinerama-infos ()
     "Place frames according to xdpyinfo/xinerama informations"
     (let ((sizes (get-connected-heads-size))
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index ae17299..c531d04 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -209,6 +209,7 @@
 
 (defun init-display ()
   (reset-root-list)
+  (reset-last-head-size)
   (reset-bind-or-jump-slots)
   (reset-open-menu)
   (fill-handle-event-fun-symbols)
-- 
2.11.4.GIT