[RP] better rpws

[twb]

Now do -i <n> for N workspaces.  Default 0-9.
-trent

48,57c48,53
<     # Make 6 workspaces
<     ws_init_ws 2
<     ws_init_ws 3
<     ws_init_ws 4
<     ws_init_ws 5
<     ws_init_ws 6
<     ws_init_ws 7
< 
<     # Workspace 1 uses the 'default' group.
<     # Start in workspace 1.
---
>     # Make N workspaces (0-N)
>       for i in `seq 1 $1` ; do 
>           ws_init_ws $i
>       done
>     # Workspace 0 uses the 'default' group.
>     # Start in workspace 0.
59,60c55,56
<     rp_call setenv fs1 `rp_call fdump`
<     rp_call setenv ws 1
---
>     rp_call setenv fs0 `rp_call fdump`
>     rp_call setenv ws 0
76c72
<     if [ $1 == 1 ]; then
---
>     if [ $1 == 0 ]; then
89,95c85,87
<     rp_call bind M-1 exec $0 1
<     rp_call bind M-2 exec $0 2
<     rp_call bind M-3 exec $0 3
<     rp_call bind M-4 exec $0 4
<     rp_call bind M-5 exec $0 5
<     rp_call bind M-6 exec $0 6
<     rp_call bind M-7 exec $0 7
---
>     for j in `seq 0 $1`; do
>       rp_call bind M-$1 exec $0 $1
>     done
105c97,101
<       ws_init
---
>       if [ -z $2 ]; then
>           ws_init 9
>       else
>           ws_init $2
>       fi
107c103,107
<       ws_bindings
---
>       if [ -z $2 ]; then
>           ws_bindings 9
>       else
>           ws_bindings $2
>       fi