Trigger "button" boreder repaint only on new/closed window event

.gitignore

@@ -0,0 +1,2 @@
+.idea/**
+.vscode/**

.perlcriticrc

@@ -2,7 +2,6 @@
 severity    = 5
 verbose     = 8
 
-[-Variables::ProhibitPunctuationVars]
 [-ControlStructures::ProhibitUnlessBlocks]
 [-Variables::RequireLocalizedPunctuationVars]
 [-Subroutines::ProhibitSubroutinePrototypes]

README.md

@@ -17,11 +17,11 @@
 * Температуру процессора (одно ядро, указывается файл-источник сведений)
 * Состояние клавиши CapsLock
 * Состояние одного интерфейса VPN (+ tcp health check, т.к. ovpn, например, умеет "залипать")
-* Уровень звука согласно pulse audio для default sink (придумывать "крутилочку" для звука я не стал, ибо там не всё так просто и "в процессе" fun скорее всего пропадёт.). Предполагается, что звук управляется через что-то ещё, например, через какой-нибудь pasystray, например.
+* Уровень звука согласно pulse audio для default sink (придумывать "крутилочку" для звука я не стал, ибо там не всё так просто и "в процессе" fun скорее всего пропадёт). Предполагается, что звук управляется через что-то ещё, например, через какой-нибудь pasystray.
 * Состояние (up|down) любого набора существующих сетевых интерфейсов. Но каждый надо описать. IP не показываются, т.к. это сжирает место на панели, а его не так-то и много.
 * "Кнопки" для запуска произвольных приложений. Собственно, ради этого всё и затевалось :)
 * "Трекать" запуск приложений "с кнопки" и подсвечивать соответствующую "кнопку". Работает через ивенты от самого i3: на появление и на исчезновения окна с рядом свойств.
-* Cron! Как ни забавно это звучит, но, да. И нужен он для показывания desktop notifications, ибо системный cron не прокидывает в environment переменную с текущим dbus session. Но в этот крон можно пихнуть что угодно.
+* Cron! Как ни забавно это звучит, но, да. И нужен он для показывания desktop notifications, ибо системный cron не прокидывает в environment переменную с текущим dbus session. Но в этот крон можно пихнуть что угодно, т.к. он запукается уже после старта dbus.
 
 ## Как это заставить работать
 

TODO

@@ -1,11 +1,3 @@
 Что желательно сделать ещё.
 
 * При рестарте i3wm (рестарте скрипта), восстанавливать список запущенных окон.
-
-* Добавить в battery plugin отслеживание уровня заряда. Раскрашивать вывод. 
-  Опционально звать suspend2disk, при очень низком заряде
-
-* Добавить "крутилку" в плагин, отображающий громкость :)
-
-* Применить Use English и использовать человекочитаемые имена встроенных
-  переменных.

i3status-anyevent

@@ -2,12 +2,14 @@
 
 use strict;
 use warnings;
+use English qw ( -no_match_vars );
 
 # we need to disable hash shuffling in order to make as less prints to stdout as possible
 BEGIN {
 	unless (defined $ENV{PERL_PERTURB_KEYS}) {
 		$ENV{PERL_PERTURB_KEYS} = 0;
-		exec ( $^X, $0, @ARGV );
+		$ENV{PERL_ANYEVENT_MODEL} = 'EV';
+		exec ( $EXECUTABLE_NAME, $PROGRAM_NAME, @ARGV );
 		exit 0; # we actually never get here
 	}
 }
@@ -18,14 +20,14 @@ use warnings;
 use utf8;
 use open qw (:std :utf8);
 use Fcntl qw (:seek);
-use AnyEvent;
+use AnyEvent ();
-use AnyEvent::I3;
+use AnyEvent::I3 qw (i3);
-use JSON::XS;
+use JSON::XS qw (encode_json decode_json);
-use Encode;
+use Encode qw (decode);
 use IO::Socket qw (AF_INET SOCK_STREAM SHUT_WR);
 use POSIX qw (setsid);
 
-local $| = 1;
+local $OUTPUT_AUTOFLUSH = 1;
 
 sub add_events ();
 sub spawn (@);
@@ -124,6 +126,9 @@ my $i3_subscription->{window} = sub {
 					}
 				}
 			}
+		} else {
+			# we just don't care about other events now
+			return;
 		}
 
 		active_win_borders ();
@@ -163,52 +168,23 @@ sub add_events () {
 			if ($UPDATE) {
 				my $jsonobj;
 
-				if ($CONF->{app_buttons}) {
+				@{$jsonobj}   = @{$O->{apps}}              if $CONF->{app_buttons};
-					@{$jsonobj} = @{$O->{apps}};
+				push @{$jsonobj}, $O->{capslock}           if $CONF->{capslock}->{enabled};
-				}
+				push @{$jsonobj}, $O->{cputemp}            if $CONF->{cpu_temp}->{enabled};
-
+				push @{$jsonobj}, $O->{mem}                if $CONF->{mem};
-				if ($CONF->{capslock}->{enabled}) {
+				push @{$jsonobj}, $O->{la}                 if $CONF->{la};
-					push @{$jsonobj}, $O->{capslock};
+				push @{$jsonobj}, $O->{vpn}                if $CONF->{vpn}->{enabled};
-				}
+				push @{$jsonobj}, $O->{interfaces}         if $CONF->{'net-if'}->{enabled};
-
+				push @{$jsonobj}, $O->{battery}            if $CONF->{battery}->{enabled};
-				if ($CONF->{cpu_temp}->{enabled}) {
+				push @{$jsonobj}, $O->{'simple-volume-pa'} if $CONF->{'simple-volume-pa'};
-					push @{$jsonobj}, $O->{cputemp};
+				push @{$jsonobj}, $O->{wallclock}          if $CONF->{clock}->{enabled};
-				}
-
-				if ($CONF->{mem}) {
-					push @{$jsonobj}, $O->{mem};
-				}
-
-				if ($CONF->{la}) {
-					push @{$jsonobj}, $O->{la};
-				}
-
-				if ($CONF->{vpn}->{enabled}) {
-					push @{$jsonobj}, $O->{vpn};
-				}
-
-				if ($CONF->{'net-if'}->{enabled}) {
-					push @{$jsonobj}, $O->{interfaces};
-				}
-
-				if ($CONF->{battery}->{enabled}) {
-					push @{$jsonobj}, $O->{battery};
-				}
-
-				if ($CONF->{'simple-volume-pa'}) {
-					push @{$jsonobj}, $O->{'simple-volume-pa'};
-				}
-
-				if ($CONF->{clock}->{enabled}) {
-					push @{$jsonobj}, $O->{wallclock};
-				}
 
 				my $output_string = eval { encode_json $jsonobj };
 
 				if (defined $output_string) {
 					print {*STDOUT} decode ('UTF-8', $output_string) . ",\n";
 				} else {
-					warn $@;
+					warn $EVAL_ERROR;
 				}
 
 				$UPDATE = 0;
@@ -231,8 +207,8 @@ sub add_events () {
 
 			if ($msg) {
 				# drop leading ',' if present
-				if (substr ($msg, 0, 1) eq ',') {
+				if (substr ($msg, 0, length (',')) eq ',') {
-					$msg = substr $msg, 1;
+					$msg = substr $msg, length (',');
 				}
 
 				my $j = eval { decode_json $msg };
@@ -292,7 +268,7 @@ sub add_events () {
 					my $xset = `xset q`;
 					$xsetflag = 1;
 
-					if ($?) {
+					if ($CHILD_ERROR) {
 						# some kind of error, so we assume that we cannot update caps lock status
 						$caps_state = 2;
 					} else {
@@ -391,7 +367,7 @@ sub add_events () {
 					my @up;
 					my $str = `upower -i $CONF->{battery}->{upower_device}`;
 
-					if ($?) {
+					if ($CHILD_ERROR) {
 						return;
 					}
 
@@ -403,19 +379,19 @@ sub add_events () {
 					my $minutes = 0;
 
 					while ($str = pop (@up)) {
-						if (substr ($str, 4, 10) eq 'percentage') {
+						if (substr ($str, 4, length ('percentage')) eq 'percentage') {
-							$percentage = substr $str, 25, -1; # chop % symbol ath the end of the string
+							$percentage = substr $str, 25, 0 - length ('%'); # chop % symbol at the end of the string
-						} elsif (substr ($str, 4, 5) eq 'state') {
+						} elsif (substr ($str, 4, length ('state')) eq 'state') {
-							if (substr ($str, 25, 11) eq 'discharging') {
+							if (substr ($str, 25, length ('discharging')) eq 'discharging') {
 								$state = '▼';
-							} elsif (substr ($str, 25, 8) eq 'charging') {
+							} elsif (substr ($str, 25, length ('charging')) eq 'charging') {
 								$state = '▲';
 							} else {
 								$state = '•';
 							}
-						} elsif (substr ($str, 4, 13) eq 'time to empty') {
+						} elsif (substr ($str, 4, length ('time to empty')) eq 'time to empty') {
 							$time_to = substr $str, 25;
-						} elsif (substr ($str, 4, 12) eq 'time to full') {
+						} elsif (substr ($str, 4, length ('time to full')) eq 'time to full') {
 							$time_to = substr $str, 25;
 						}
 					}
@@ -439,12 +415,12 @@ sub add_events () {
 					if (defined $time_to) {
 						chomp $time_to;
 
-						if (substr ($time_to, -7) eq 'minutes') {
+						if (substr ($time_to, 0 - length ('minutes')) eq 'minutes') {
-							$minutes = substr $time_to, 0, -8;
+							$minutes = substr $time_to, 0, 0 - length (' minutes');
 							$minutes =~ tr/\,/./;
 							$minutes = int $minutes;
-						} elsif (substr ($time_to, -5) eq 'hours') {
+						} elsif (substr ($time_to, 0 - length ('hours')) eq 'hours') {
-							$hours = substr $time_to, 0, -6;
+							$hours = substr $time_to, 0, 0 - length (' hours');
 							$hours =~ tr/\,/./;
 							$minutes = int (60 * ($hours - int ($hours)));
 						}
@@ -588,7 +564,7 @@ sub add_events () {
 				}
 
 				close $MEMINFOHANDLE;
-				@mem = map { substr $_, 0, -4 } @mem;
+				@mem = map { substr $_, 0, 0 - length (" kB\n") } @mem;
 				my $memtotal  = (split /\s+/xms, $mem[0])[1];
 				my $memavail  = (split /\s+/xms, $mem[2])[1];
 				my $swaptotal = (split /\s+/xms, $mem[14])[1];
@@ -712,7 +688,7 @@ sub add_events () {
 			cb       => sub { # the callback to invoke
 				my $pactl = `LC_ALL=C pactl list sinks`;
 
-				if ($?) {
+				if ($CHILD_ERROR) {
 					# we've some error here, so quit further processing
 					return;
 				}
@@ -801,7 +777,7 @@ sub add_events () {
 				my $timeskew = $TC - time ();
 
 				if (($timeskew > 60) || ($timeskew < -60)) {
-					kill 'HUP', $$;
+					kill 'HUP', $PROCESS_ID;
 				}
 			}
 		);
@@ -836,8 +812,10 @@ sub spawn (@) {
 
 			if (@args > 0) {
 				exec $prg, @args;
+				exit 0;
 			} else {
 				exec $prg;
+				exit 0;
 			}
 		}
 		# else - we just unable to fork, so silently ignore event
@@ -894,7 +872,7 @@ sub readconf () {
 	my $FH;
 
 	unless (open $FH, '<', $file) {
-		die "Unable to open $file: $!\n";
+		die "Unable to open $file: $OS_ERROR\n";
 	}
 
 	my $len = (stat $file)[7];
@@ -905,7 +883,7 @@ sub readconf () {
 	close $FH;
 
 	unless (defined $readlen) {
-		die "Unable to read $file: $!\n";
+		die "Unable to read $file: $OS_ERROR\n";
 	}
 
 	if ($readlen != $len) {
@@ -915,7 +893,7 @@ sub readconf () {
 	my $config = eval { JSON::XS->new->utf8->relaxed->decode ($data) };
 
 	unless ($config) {
-		die "Unable to decode $file: $@\n";
+		die "Unable to decode $file: $EVAL_ERROR\n";
 	}
 
 	return $config;