Different position of `display-message' output, possible?

[Flashrider]

Hi all,

as you might have read, I just added display-workspace-name, but: when
cycling to a window on a different workspace the cycle message is on the
same position -and above- the display-workspace-name message ... So is
there a way to place the message of display-workspace-name on a
different position?

Thanks in advance,
Chris

[Wang Lei-8]

Like the middle of bottom? display-message can do that. but should
rewrite display-message-with-timeout.

Is this what you ask?

On 9/14/09, Christopher Roy Bratusek <zanghar@...> wrote:

> Hi all,
>
> as you might have read, I just added display-workspace-name, but: when
> cycling to a window on a different workspace the cycle message is on the
> same position -and above- the display-workspace-name message ... So is
> there a way to place the message of display-workspace-name on a
> different position?
>
> Thanks in advance,
> Chris
>

--
Regards
Lei

[Flashrider]

Am Montag, den 14.09.2009, 12:48 +0800 schrieb Wang Lei:
> Like the middle of bottom? display-message can do that. but should
> rewrite display-message-with-timeout.
>
> Is this what you ask?
>

Yep.

> On 9/14/09, Christopher Roy Bratusek <zanghar@...> wrote:
> > Hi all,
> >
> > as you might have read, I just added display-workspace-name, but: when
> > cycling to a window on a different workspace the cycle message is on the
> > same position -and above- the display-workspace-name message ... So is
> > there a way to place the message of display-workspace-name on a
> > different position?
> >
> > Thanks in advance,
> > Chris
> >
>
>

[Flashrider]

Am Montag, den 14.09.2009, 13:33 +0200 schrieb Christopher Roy Bratusek:

> Am Montag, den 14.09.2009, 12:48 +0800 schrieb Wang Lei:
> > Like the middle of bottom? display-message can do that. but should
> > rewrite display-message-with-timeout.
> >
> > Is this what you ask?
> >
>
> Yep.
>
> > On 9/14/09, Christopher Roy Bratusek <zanghar@...> wrote:
> > > Hi all,
> > >
> > > as you might have read, I just added display-workspace-name, but: when
> > > cycling to a window on a different workspace the cycle message is on the
> > > same position -and above- the display-workspace-name message ... So is
> > > there a way to place the message of display-workspace-name on a
> > > different position?
> > >
> > > Thanks in advance,
> > > Chris
> > >
> >
> >
>

( display-message "hello" '(( position . ( 250 . 250 ))))

on sawfish-client works, but in sawfish.wm.commands.user the following
doesn't ... perhaps I just forgot something, but well:

**********
diff --git a/lisp/sawfish/wm/commands/user.jl
b/lisp/sawfish/wm/commands/user.jl
index 4062d9c..4a4009b 100644
--- a/lisp/sawfish/wm/commands/user.jl
+++ b/lisp/sawfish/wm/commands/user.jl
@@ -80,8 +80,10 @@
   ;; display-message-with-timeout
   ;; like display-message, but it dissapears
   ;; after `timemout' seconds
-  (define (display-message-with-timeout message timeout)
-    (display-message message)
+  (define (display-message-with-timeout message timeout #!optional x y)
+    (if (and (x) (y))
+      (display-message message '((position (x . y))))
+    (display-message message))
     (make-timer (lambda () (display-message nil)) timeout))

   ;; program-available
@@ -130,7 +132,7 @@
        (format nil "Now on Workspace: %s"
          (or (nth current-workspace workspace-names)
            (format nil (_ "Workspace %d") (1+ current-workspace))))
-             display-ws-name-timeout))
+             display-ws-name-timeout 250 250))

   (define (display-ws-name-setter)
     (if (eq display-ws-name-on-switch 't)
**********

Chris

[Teika Kazura]

On Sun, 13 Sep 2009 20:39:58 +0200, Christopher Roy Bratusek wrote:
> I just added display-workspace-name, but: when cycling to a window
> on a different workspace the cycle message is on the same position
> -and above- the display-workspace-name message

Hi. Sorry for slooow reply. Let me explain the solution I believe
tidy.

In the trunk, there're two options, 'display-ws-name-on-switch' and
'display-wininfo-show-workspace'. But the latter can be merged into
the former, of which possible value is one of 'always, 'cycle, and
'no. (nil should be considered as 'no, and t as 'always.)
The WS to appear is most unpredictable for window cycling, so this
suffices.

(display-wininfo) is only called from x-cycle.jl, so when the workspace
is changed at a step of cycle, it should see display-ws-name-on-switch
and let display-wininfo prints the ws name, say through a new keyword
argument. And in x-cycle, you can put
(let ( (display-workspace-name nil) )
  (select-workspace ws))
to suppress the ws name printing by workspace.jl.

Regards,
Teika (Teika kazura)

[Flashrider]

Am Sat, 31 Oct 2009 13:17:05 +0900 (JST)
schrieb Teika Kazura <teika@...>:

> On Sun, 13 Sep 2009 20:39:58 +0200, Christopher Roy Bratusek wrote:
> > I just added display-workspace-name, but: when cycling to a window
> > on a different workspace the cycle message is on the same position
> > -and above- the display-workspace-name message
>
> Hi. Sorry for slooow reply. Let me explain the solution I believe
> tidy.
>
> In the trunk, there're two options, 'display-ws-name-on-switch' and
> 'display-wininfo-show-workspace'. But the latter can be merged into
> the former, of which possible value is one of 'always, 'cycle, and
> 'no. (nil should be considered as 'no, and t as 'always.)
> The WS to appear is most unpredictable for window cycling, so this
> suffices.
>
> (display-wininfo) is only called from x-cycle.jl, so when the
> workspace is changed at a step of cycle, it should see
> display-ws-name-on-switch and let display-wininfo prints the ws name,
> say through a new keyword argument. And in x-cycle, you can put
> (let ( (display-workspace-name nil) )
>   (select-workspace ws))
> to suppress the ws name printing by workspace.jl.
>
> Regards,
> Teika (Teika kazura)
>

I'll look into that

Chris