e16
/
e16
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

place-pagers.pl: Behave properly when pagers have borders

This commit is contained in:
Kim Woelders 2022-04-22 16:31:31 +02:00
parent f07b6a74e5
commit 95a41f07a2
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
sample-scripts/place-pagers.pl
View File

@ -14,7 +14,7 @@ my $BASE = 0;
my $VERBOSE = 0; my $VERBOSE = 0;
my $LAYER = 4; my $LAYER = 4;
my (%ID, $X0, $Y0, $H, $W, @DNUMs); my (%ID, $X0, $Y0, $W0, $H0, $W, $H, @DNUMs);
my $last_dnum = -1; my $last_dnum = -1;
GetOptions( GetOptions(
@ -67,16 +67,15 @@ $ORIENT =~ m/^[vVhH]\d*$/ or do {
$ORIENT =~ s/(\d+)// and $BASE = $1; $ORIENT =~ s/(\d+)// and $BASE = $1;
for my $wind (`eesh wl full`) { for (`eesh wl +%i_%P_%S_%T_%n`) {
my ($id, $name, undef, undef, undef, $geo) = split(/\s*:\s*/, $wind); # print "> $_";
chomp $id; next unless (/^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)x\s*(\S+)\s+(\S+)x\s*(\S+)\s+Pager-(\d+)/);
$name =~ /^Pager-(\d)$/ or next; my $id = $1;
#print "$id, $name, $geo\; my $dnum = $8;
my $dnum = $1; # print "$id, $dnum\n";
defined $KEY or $KEY = $dnum; defined $KEY or $KEY = $dnum;
$id =~ s/\s+$//;
$ID{$dnum} = $id; $ID{$dnum} = $id;
push @DNUMs, $dnum; push @DNUMs, $dnum;
if ( $KEY < 0 ) { if ( $KEY < 0 ) {
@ -85,12 +84,10 @@ for my $wind (`eesh wl full`) {
else { else {
$dnum == $KEY or next; $dnum == $KEY or next;
} }
$last_dnum = $dnum; $last_dnum = $dnum;
($X0, $Y0, my $size, undef) = split( /\s+/, $geo); ($X0, $Y0, $W0, $H0, $W, $H) = ($2, $3, $4, $5, $6, $7);
($W, $H) = split( /x/, $size); # print "$dnum, $id, $X0, $Y0, $W0, $H0, $W, $H\n";
#print "$dnum, $id, $X0, $Y0, $W, $H\n";
} }
@DNUMs or die "No pagers found in window list! (eesh wl full)\n"; @DNUMs or die "No pagers found in window list! (eesh wl full)\n";
@ -130,8 +127,8 @@ for my $dnum (sort {$a <=> $b} @DNUMs) {
#$dnum == $KEY and next; #$dnum == $KEY and next;
$x = $X0 + $mod_x * ($W + $BORDER); $x = $X0 + $mod_x * ($W0 + $BORDER);
$y = $Y0 + $mod_y * ($H + $BORDER); $y = $Y0 + $mod_y * ($H0 + $BORDER);
system("eesh wop $id size $W"); system("eesh wop $id size $W");
system("eesh wop $id move $x $y"); system("eesh wop $id move $x $y");
system("eesh wop $id layer $LAYER"); system("eesh wop $id layer $LAYER");