Re: new command 'display-window-position'?

[Christopher Roy Bratusek <zanghar freenet de>]

Am Tue, 29 Dec 2009 14:26:05 +0900 (JST)
schrieb Teika Kazura <teika lavabit com>:

> On Sat, 26 Dec 2009 12:57:58 +0100, Gerhard Kirchmann wrote:
> >> Hi. How will you like a new command 'display-window-position'?
> > [...] 
> > 
> > Indeed this function is useful for using to tweak window rules.
> 
> I see, we'll have it then.
> 
> > BTW: sawfish did a long time not function for me, but since a
> > couple of years I'm glad that it's alive again.
> 
> And I'm glad you're interested in our recent status. Thanks.
> 
> Regards,
> Teika (Teika kazura)
> 

(define (display-window-position)
  (setq x (car (window-position (input-focus))))
  (setq y (cdr (window-position (input-focus))))
  (display-message (format nil "Window Position: %s : %s" x y)))

( define-command 'display-window-position display-window-position )

What about this one?

Chris