Re: send-to-workspace and go there

[Mario Domenech Goulart <mario inf ufrgs br>]

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