summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcontrib/rpws4
1 files changed, 4 insertions, 0 deletions
diff --git a/contrib/rpws b/contrib/rpws
index 49105c5..88d2aa4 100755
--- a/contrib/rpws
+++ b/contrib/rpws
@@ -270,6 +270,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);
@@ -289,6 +292,7 @@ rpws - Implements multiple workspaces in ratpoison
-k sets up key bindings and aliases.
rpws dump <fname> - dumps the current layout to <fname>
rpws restore <fname> - restores rpws workspaces from <fname>
+ rpws current - print the current workspace
rpws help - this documentation
rpws n - switch to this workspace