scripts/sway/idlecountdown.pl

#!/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));
}