window-matcher avoid . nil

[Christopher Roy Bratusek <zanghar freenet de>]

Hi all,

I've been playing around with window-matcher avoid . nil and this is what I have:

diff --git a/lisp/sawfish/wm/ext/match-window.jl b/lisp/sawfish/wm/ext/match-window.jl
index bc64cdc..2c309d0 100644
--- a/lisp/sawfish/wm/ext/match-window.jl
+++ b/lisp/sawfish/wm/ext/match-window.jl
@@ -35,6 +35,7 @@
 	    match-window)

     (open rep
+	  rep.io.timers
 	  rep.system
 	  rep.regexp
 	  sawfish.wm
@@ -472,6 +473,14 @@
       (declare (unused prop))
       (set-focus-mode w value)))

+  (define-match-window-setter 'avoid
+    (lambda (w prop value)
+      (declare (unused prop))
+      (when value
+	    (make-timer (lambda () (window-put w 'avoid t)) 1)
+	(when (window-get w 'avoid)
+	    (make-timer (lambda () (window-remprop w 'avoid)) 1)))))
+
   (define-match-window-setter 'new-workspace
     (lambda (w prop value)
       (declare (unused prop))

... as you can see I'm using a timer to delay it. That is because it's not working else,
but before committing, I wanted to ask you, whether there's a better way to achieve it.	

Regards,
Chris