From 02a88878b43af68265518b675e3013bfc2319c7b Mon Sep 17 00:00:00 2001 From: John Mertz Date: Fri, 4 Nov 2022 11:35:04 -0400 Subject: [PATCH] Update alacritty-bell.sh, idlecountdown.pl, and window-fade.pl --- sway/alacritty-bell.sh | 2 + sway/idlecountdown.pl | 25 ++++++ sway/window-fade.pl | 176 +++++++++++++++++++++++++++++++++++++++++ 3 files changed, 203 insertions(+) create mode 100755 sway/alacritty-bell.sh create mode 100644 sway/idlecountdown.pl create mode 100755 sway/window-fade.pl diff --git a/sway/alacritty-bell.sh b/sway/alacritty-bell.sh new file mode 100755 index 0000000..37cdf65 --- /dev/null +++ b/sway/alacritty-bell.sh @@ -0,0 +1,2 @@ +#!/bin/bash +swaymsg "[pid=$(echo $ALACRITTY_LOG | sed -E 's/\/tmp\/Alacritty-(.*)\.log/\1/')] urgent enable" diff --git a/sway/idlecountdown.pl b/sway/idlecountdown.pl new file mode 100644 index 0000000..3a32e9a --- /dev/null +++ b/sway/idlecountdown.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Gtk2::Notify -init, "Idle"; +use Time::HiRes qw( gettimeofday usleep ); + +my $start = [gettimeofday]; +my $now = sprintf("%.0f",($start->[0]*1000) + ($start->[1]/1000)); +my $end = $now + 30000; + +while ($now < $end) { + my $remaining = ($end - $now); + my $notification = Gtk2::Notify::new('Idle', sprintf("%.0f",($remaining/1000)), '', "status_lock"); + $notification->set_hint_string('x-canonical-private-synchronous','idle'); + $notification->set_urgency('NOTIFY_URGENCY_LOW'); + $notification->set_hint_int32('value',($remaining/300)); + $notification->set_timeout(150); + $notification->show(); + usleep(100); + $now = utime( undef, undef ); + $start = [gettimeofday]; + $now = sprintf("%.0f",($start->[0]*1000) + ($start->[1]/1000)); +} diff --git a/sway/window-fade.pl b/sway/window-fade.pl new file mode 100755 index 0000000..f872864 --- /dev/null +++ b/sway/window-fade.pl @@ -0,0 +1,176 @@ +#!/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_background +{ + my $target = shift || return "No target or image provided"; + my $cropped = shift || return "No image provided"; + # TODO get fallback from javascript + my $cmd = "output $target background $cropped fill #000000"; + 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); +