Re: send-to-workspace and go there

[Kin Cho <kcho fabric7 com>]

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.

Hi,

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.

> 
> PS: there's a syntax problem in your bind-keys code -- a closing
> parentheses is missing.
> 
> (bind-keys
>   window-keymap
>   "M-F1" (lambda () ((send-to-workspace 1) (select-workspace 0)))
>   "M-F2" (lambda () ((send-to-workspace 2) (select-workspace 1))))

I forgot to include ... in my post.  I have other similar lines
following the above:

 "S-M-F3" (lambda () (send-to-workspace 3) (select-workspace 2))
 "S-M-F4" (lambda () (send-to-workspace 4) (select-workspace 3))
 "S-M-F5" (lambda () (send-to-workspace 5) (select-workspace 4))
 "S-M-F6" (lambda () (send-to-workspace 6) (select-workspace 5)))

Thanks.

-kin