great move script to make float active window avoid overlap with other floats

[vincentaxhe]

# by vincentaxhe from China
#!/bin/perl
use strict;
use JSON;
use List::Util 'any';
use POSIX 'fmin';
use Getopt::Std;
use experimental 'declared_refs';
use constant STEP => 16;
getopts('s', \my %options);
my $direction = shift;
my @hdmi_at_size = ([1536, 42], [2560, 1398]);
my $border = 2;
my $activewindow_json = qx(hyprctl -j activewindow);
my $activewindow = decode_json $activewindow_json;
my $isfloat = $activewindow->{floating};
my @active_at_size = ($activewindow->{at}, $activewindow->{size});

# find other floats
my @floats;
my $clients_json = qx(hyprctl -j clients);
my $clients = decode_json $clients_json;
for (@$clients) {
	push @floats, [$_->{at}, $_->{size}] if $_->{floating} and $_->{workspace}{id} eq $activewindow->{workspace}{id} and $_->{address} ne $activewindow->{address}
}

sub to_area(@){
	\my (@at, @size) = @_;
	my @area = ($at[0] - $border, $at[0] + $size[0] + $border, $at[1] - $border, $at[1] + $size[1] + $border);
	return @area;
}
my @active = to_area @active_at_size;
sub get_path(@){
	my @view_area = to_area @_;
	my %replace = ( l => 0, r => 1, u => 2, d => 3);
	my $position = $replace{$direction};
	my @path_area = @active;
	$path_area[$position] = $view_area[$position];
	return @path_area;
}
sub isin(\@\@){
	\my (@coord, @area) = @_;
	$area[0] <= $coord[0] <= $area[1] and
	$area[2] <= $coord[1] <= $area[3] ;
}
sub get_coords(@){
	my ($xl, $xr, $yu, $yd) = @_;
	([$xl, $yu],[$xr, $yu],[$xl, $yd],[$xr, $yd])
}
sub isintersect(\@\@){
	\my (@window, @path) = @_;
	any { isin $_->@*, @path } get_coords @window;
}
sub count_move(\@\@){
	\my (@active, @barrier) = @_;
	my (%active, %barrier);
	@active{'l','r', 'u', 'd'} = @active;
	@barrier{'l','r', 'u', 'd'} = @barrier;
	my %possible = (
		r => $barrier{l} - $active{r},
		l => $active{l}  - $barrier{r},
		u => $active{u}  - $barrier{d},
		d => $barrier{u} - $active{d},
	);
	return $possible{$direction};
}
sub mymin(@){
	@_ == 1 and return $_[0];
	return fmin @_;
}
sub compare_move(@){
	my $Move = mymin @_;
	my %moves = (
		l => [-$Move, 0],
		r => [ $Move, 0],
		u => [ 0,-$Move],
		d => [ 0, $Move],
	);
	return $moves{$direction}->@*
}
my @movepixel;
my @path = get_path @hdmi_at_size;
my @action = $direction;
my $dispatcher = 'movewindow';
if ($isfloat){
	if ($options{s}){
		my %steps = (
			l => [-STEP, 0 ],
			r => [ STEP, 0 ],
			u => [  0,-STEP],
			d => [  0, STEP],
		);
		$dispatcher = 'moveactive';
		@action = $steps{$direction}->@*;
	}elsif (@floats) {
		my $movepixel;
		for (@floats) {
			 my @other = to_area $_->@*;
			 push @movepixel, count_move @active, @other if isintersect @other, @path and not isintersect @other, @active;
		}
		my @move = compare_move @movepixel if @movepixel;
		if (@move){
			$dispatcher = 'moveactive';
			@action = @move;
		}
	}
}else{
	unless ($options{s}){
		$dispatcher = 'swapwindow'
	}
}
system 'hyprctl', 'dispatch', $dispatcher, @action;

hyprland.conf is like this

binde = ALT SHIFT, Left, exec, hyprmove.pl -s l
binde = ALT SHIFT, Right, exec, hyprmove.pl -s r
binde = ALT SHIFT, Up, exec, hyprmove.pl -s u
binde = ALT SHIFT, Down, exec, hyprmove.pl -s d
bind = CTRL SHIFT ALT, Left, exec, hyprmove.pl l
bind = CTRL SHIFT ALT, Right, exec, hyprmove.pl r
bind = CTRL SHIFT ALT, Up, exec, hyprmove.pl u
bind = CTRL SHIFT ALT, Down, exec, hyprmove.pl d

use -s [lrud] means move floats take minor steps or tiled window shift in, otherwise move floats to edge avoid overlap or tiled window swap position.