Hi Mario,
Thanks for reminding me of Ewan's solution. I tried it and it
works great!
I missed Ewan's mail since I just started at a new company last week.
Thanks Ewan!
-kin
-----Original Message-----
From: Mario Domenech Goulart [mailto:mario inf ufrgs br]
Sent: Sat 10/23/2004 8:09 AM
To: Kin Cho
Cc: sawfish-list gnome org
Subject: Re: send-to-workspace and go there
Hello Kin
On 21 Oct 2004 10:06:17 -0700 Kin Cho <kcho fabric7 com> wrote:
> Mario Domenech Goulart <mario inf ufrgs br> writes:
>
>> Hi,
>>
>> On 20 Oct 2004 14:30:32 -0700 Kin Cho <kcho fabric7 com> wrote:
>>
>> > I want to bind keys make a window goto a workspace and also
>> > select that workspace. The following doesn't work for me:
>> >
>> > (bind-keys
>> > window-keymap
>> > "M-F1" (lambda () (send-to-workspace 1) (select-workspace 0))
>> > "M-F2" (lambda () (send-to-workspace 2) (select-workspace 1))
>> >
>> > Any idea why?
>>
>> The send-to-workspace function doesn't seem to be exported by the
>> sawfish.wm.workspace structure (just checked out from CVS). Is it
>> intentional? The same happens with copy-to-workspace, as far as I could
>> see.
>>
>> Exporting send-to-workspace from sawfish.wm.workspace seem to make it
>> work.
>
> How do I do that? I saw in workspace.jl:
> (define-command 'send-to-workspace send-to-workspace
> #:spec "NWorkspace:"
> #:type `(and (labelled ,(_ "Workspace:") (number 1))))
>
> and I have this in my .sawfishrc:
> (require 'sawfish.wm.workspace)
>
> I know elisp but still new to sawfish lisp. Please give me a bit
> more help.
Maybe Ewans' solution is the best way for you, since it's not intrusive
(i.e., you don't need to play with sawfish code).
The other alternative is to export the send-to-workspace in the
sawfish.wm.workspace structure.
(export current-workspace
NormalState IconicState
window-workspaces
...
send-to-workspace
...
Then you have to recompile workspace.jl. But probably there's a good
reason for not having send-to-workspace exported. Any clue?
Best regards,
Mario