From 708fa69f48f10dcbefc20633f553db660be47b24 Mon Sep 17 00:00:00 2001 From: Vasil Zlatanov Date: Tue, 31 Dec 2013 00:08:15 +0100 Subject: [PATCH] Updated rpws to documents the "rpwsm$i" functionality, made it's bindings more sane and added an option "current" which prints the current workspace. --- contrib/rpws | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/contrib/rpws b/contrib/rpws index 49105c5..558fd1c 100755 --- a/contrib/rpws +++ b/contrib/rpws @@ -1,5 +1,10 @@ #!/usr/bin/env perl +# Copyright (c) 2013 Vasil Zlatanov +# All rights reserved. Modifications under same license as original script. +# Changelog: +# Updated manpage and hotkeys +# Added argument current which outputs the current workspace. # # Copyright (c) 2009 Hatem Nassrat # All rights reserved. Modifications under same license as original script. @@ -245,7 +250,7 @@ sub add_keys # Switch Workspace rp_call ( "definekey top M-F$i rpws$i" ); # Move Window to wrokspace - rp_call ( "definekey top C-M-S-F$i rpwsm$i" ); + rp_call ( "definekey top C-M-F$i rpwsm$i" ); } rp_call ( "definekey top C-M-Right rpwsn" ); rp_call ( "definekey top C-M-Left rpwsp" ); @@ -270,6 +275,9 @@ if( $arg eq "help" ) { } elsif( $arg eq "restore" ) { my $filename = shift @ARGV; ws_dumprestore($filename); +} elsif ( $arg eq "current" ) { + my $cws = rp_call( "getenv wspl" ); + print "$cws"; } else { open LOCK, ">>$lockfile" or die "Cannot open lockfile: $lockfile"; flock(LOCK, LOCK_EX); @@ -287,10 +295,11 @@ rpws - Implements multiple workspaces in ratpoison rpws init n [-k] [-a] - setup rpws with n workspaces. -a sets up command aliases; -k sets up key bindings and aliases. + rpws n - switch to this workspace rpws dump - dumps the current layout to rpws restore - restores rpws workspaces from + rpws current - print the number of the current workspace rpws help - this documentation - rpws n - switch to this workspace =head1 DESCRIPTION @@ -306,14 +315,15 @@ Add the following line in ~/.ratpoisonrc exec /path/to/rpws init 6 -k This creates 6 aliases rpws1, rpws2, etc. It also binds the keys M-F1, -M-F2, etc to each rpwsN alias. Moreover, rpwsn (Next) and rpwsp (Prev) are +M-F2, etc to each rpwsN alias. Aliases rpwsm1, rpwsm2, etc, are used to +move the focused window to another workspace. Moreover, rpwsn (Next) and rpwsp (Prev) are created, and C-M-{Right,Left} are bound to rpws{n,p}. Full list of keybindings created are: M-F$i Goto workspace $i C-M-Right Goto Next workspace C-M-Left Goto Prev workspace - C-M-S-F$i Move window to workspace $i + C-M-F$i Move window to workspace $i C-M-greater Move current window to next workspace C-M-less Move current window to prev workspace -- 1.8.3.2