Update alacritty-bell.sh, idlecountdown.pl, and window-fade.pl
This commit is contained in:
parent
963e6c8782
commit
02a88878b4
|
|
@ -0,0 +1,2 @@
|
||||||
|
#!/bin/bash
|
||||||
|
swaymsg "[pid=$(echo $ALACRITTY_LOG | sed -E 's/\/tmp\/Alacritty-(.*)\.log/\1/')] urgent enable"
|
||||||
|
|
@ -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));
|
||||||
|
}
|
||||||
|
|
@ -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);
|
||||||
|
|
||||||
Loading…
Reference in New Issue