scripts/sway/window-fade.pl

#!/usr/bin/env perl

use strict;
use warnings;

our $debug = 1;	# For testing, will output configuration and errors if true

use AnyEvent::Sway;
our $s = AnyEvent::Sway->new();

our $o = $s->get_outputs->recv();
die "No outputs detected.\n" unless (scalar(@$o) > 1);

sub usage()
{
	print("$0 [value] [-p|--plus] [-m|--minus] [-a x|--attribute=x] [-d N|--delay=N]
Fade the opacity of one or more windows via the Sway IPC interface.\n
value		The target opacity or offset between 0 (full transparency) and 1
		(fully opaque). Change will be made in increments of 0.01 with a
		delay between each.\n
--attribute=x	Attribute of window(s) to fade.
-a x		Default: [title="*"]\n
--plus		Increases opacity by increment instead of setting it directly
-p		to that increment.\n
--minus		Decreases opacity by increment instead of setting it directly
-m		to that increment.\n
--delay=N	Change the delay in ms between each percentage point change in
-d N		opacity. Default: 20\n
--help		This menu
-h\n");
	exit(0);
}

sub set_opacity
{
	my $attribute = shift || return "No target or image provided";
	my $target = shift || return "No image provided";
	# TODO get fallback from javascript
	my $cmd = "output $attribute opacity $target";
	print "Running $cmd\n";
	my $ret = $s->message(0,$cmd)->recv;
	if ($ret->[0]->{success}) {
		print "Success!\n";
		return undef;
	}
	return "Failed to run Sway IPC command '$cmd'";
}

my @targets;
my $daemon = 0;
my $delay = 300;
my $crop = 1;
my $path;

while (my $arg = shift(@ARGV)) {
	if ($arg eq '-h' || $arg eq '--help') {
		usage();
	} elsif ($arg =~ m/^\-\-path=?(.+)$/) {
		die "Redundant argument '$arg'. Wallpaper path already set.\n" if ($path);
		$path = $1;
	} elsif ($arg eq '-p') {
		die "Redundant argument '$arg'. Wallpaper path already set.\n" if ($path);
		$path = shift(@ARGV);
	} elsif ($arg =~ m/^\-\-daemon=?(.+)$/) {
		die "Redundant argument '$arg'. Daemon mode already set.\n" if ($daemon);
		$delay = $1;
		$daemon = 1;
	} elsif ($arg eq '-d') {
		die "Redundant argument '$arg'. Daemon mode already set.\n" if ($daemon);
		if ($ARGV[0] =~ m/^\d+$/) {
			$delay = shift(@ARGV);
		}
		$daemon = 1;
	} elsif ($arg eq '--nocrop' || $arg eq '-') {
		die "Redundant argument '$arg'. No-crop already set.\n" unless ($crop);
	} else {
		push(@targets,$arg);
	}
}

die "Invalid rotation delay: $delay" unless ($delay =~ m/^\d+$/);

if ($path) {
	die "Invalid wallpaper path '$path'. Not a directory." unless (-d $path);
} else {
	$path = "$ENV{HOME}/wallpapers";
}

if (scalar(@targets)) {
	my @kept;
	foreach my $t (@targets) {
		my $hit = 0;
		foreach (@$o) {
			if ($_->{name} eq $t) {
				push(@kept, $t);
				$hit++;
				last;
			}
		}
		print STDERR "Requested output '$t' not found\n" unless ($hit);
	}
	die "None of the requested outputs are active" unless (scalar(@kept));
	@targets = @kept;
}

if ($daemon) {
	my $p = fork();
	if ($p) {
		print "Daemonized as PID: $p\n";
		exit(0);
	}
}

if ($debug) {
	print "Initial configuration:\n";
	print "  Targets: ( " . ( join(" ",@targets) || "All active" ) . " )\n";
	print "  Daemon:  $daemon\n";
	print "  Path:    $path\n";
}

my @e;
do {
	my @err;
	# Local copy of targets so that it will re-check active every time
	my @t = @targets;
	unless (scalar(@t)) {
		@t = get_active();
		push(@err, "No target outputs") unless (scalar(@t));
	}
	foreach my $a (@t) {
		my $image = choose_image($path);
		if (defined($image)) {
			if ( -r "$image" ) {
			print "selected $image\n";
				my $cropped;
				if ($crop) {
					if ($debug) {
						print "Cropping image for '$a' using '$image'\n";
					}
					my ($ow, $oh) = get_size($a);
					$cropped = crop($image, $ow, $oh);
					unless ($cropped) {
						push(@err, "Failed to generate cropped image") unless ($cropped);
						next;
					}
				} else {
					$cropped = $image;
				}
				my $e = set_background($a,$cropped);
				push(@err, $e) if (defined($e));
				if ($crop) {
					print "Deleting $cropped\n";
					#unlink($cropped) || push(@err, "Failed to delete $cropped after setting: $!");
				}
			} else {
				push(@err, "$a: Unable to read image $image");
			}
		} else {
			push(@err, "$a: Unable to select image from $path");
		}
	}
	if ($debug && $daemon) {
		print STDERR join("\n",@err);
		sleep($delay);
	} else {
		@e = @err;
	}
} while ($daemon);

if (scalar(@e)) {
	die "Failure while not running as daemon:\n" .
		join("\n",@e);
}

exit(0);