scripts/desktop/fresh-workspace


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/env perl

use lib "$ENV{HOME}/src/dotfiles/perl5";
use Local::Desktop;
exit !defined fresh_workspace do {
    if (grep $_ eq "--take", @ARGV) {
	go => 1, send => 1;
    } elsif (grep $_ eq "--send", @ARGV) {
	send => 1;
    } else {
	go => 1;
    }
}