Re: window-matcher avoid . nil

[Jeremy Hankins <nowan nowan org>]

Christopher Roy Bratusek <zanghar freenet de> writes:
> Hi all,
>
> I've been playing around with window-matcher avoid . nil and this is what I
> have:

I haven't had a chance to test this yet (do you only need the delay on
sawfish restart, or also when opening a window in an already-running
sawfish?).  But have you tried using a queued-avoid, like with
queued-blah-maximize?  See maximize-after-add-window in maximize.jl,
which is added to after-initialization-hook.

> 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

-- 
Jeremy Hankins <nowan nowan org>