|
|
|
|
@@ -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::I3;
|
|
|
|
|
use JSON::XS;
|
|
|
|
|
use Encode;
|
|
|
|
|
use AnyEvent ();
|
|
|
|
|
use AnyEvent::I3 qw (i3);
|
|
|
|
|
use JSON::XS qw (encode_json decode_json);
|
|
|
|
|
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->{capslock}->{enabled}) {
|
|
|
|
|
push @{$jsonobj}, $O->{capslock};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($CONF->{cpu_temp}->{enabled}) {
|
|
|
|
|
push @{$jsonobj}, $O->{cputemp};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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};
|
|
|
|
|
}
|
|
|
|
|
@{$jsonobj} = @{$O->{apps}} if $CONF->{app_buttons};
|
|
|
|
|
push @{$jsonobj}, $O->{capslock} if $CONF->{capslock}->{enabled};
|
|
|
|
|
push @{$jsonobj}, $O->{cputemp} if $CONF->{cpu_temp}->{enabled};
|
|
|
|
|
push @{$jsonobj}, $O->{mem} if $CONF->{mem};
|
|
|
|
|
push @{$jsonobj}, $O->{la} if $CONF->{la};
|
|
|
|
|
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};
|
|
|
|
|
push @{$jsonobj}, $O->{'simple-volume-pa'} if $CONF->{'simple-volume-pa'};
|
|
|
|
|
push @{$jsonobj}, $O->{wallclock} if $CONF->{clock}->{enabled};
|
|
|
|
|
|
|
|
|
|
my $output_string = eval { encode_json $jsonobj };
|
|
|
|
|
|
|
|
|
|
if (defined $output_string) {
|
|
|
|
|
print {*STDOUT} decode ('UTF-8', $output_string) . ",\n";
|
|
|
|
|
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 ',') {
|
|
|
|
|
$msg = substr $msg, 1;
|
|
|
|
|
if (substr ($msg, 0, length (',')) eq ',') {
|
|
|
|
|
$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') {
|
|
|
|
|
$percentage = substr $str, 25, -1; # chop % symbol ath the end of the string
|
|
|
|
|
} elsif (substr ($str, 4, 5) eq 'state') {
|
|
|
|
|
if (substr ($str, 25, 11) eq 'discharging') {
|
|
|
|
|
if (substr ($str, 4, length ('percentage')) eq 'percentage') {
|
|
|
|
|
$percentage = substr $str, 25, 0 - length ('%'); # chop % symbol at the end of the string
|
|
|
|
|
} elsif (substr ($str, 4, length ('state')) eq 'state') {
|
|
|
|
|
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') {
|
|
|
|
|
$minutes = substr $time_to, 0, -8;
|
|
|
|
|
if (substr ($time_to, 0 - length ('minutes')) eq 'minutes') {
|
|
|
|
|
$minutes = substr $time_to, 0, 0 - length (' minutes');
|
|
|
|
|
$minutes =~ tr/\,/./;
|
|
|
|
|
$minutes = int $minutes;
|
|
|
|
|
} elsif (substr ($time_to, -5) eq 'hours') {
|
|
|
|
|
$hours = substr $time_to, 0, -6;
|
|
|
|
|
} elsif (substr ($time_to, 0 - length ('hours')) eq 'hours') {
|
|
|
|
|
$hours = substr $time_to, 0, 0 - length (' hours');
|
|
|
|
|
$hours =~ tr/\,/./;
|
|
|
|
|
$minutes = int (60 * ($hours - int ($hours)));
|
|
|
|
|
}
|
|
|
|
|
@@ -588,13 +564,13 @@ sub add_events () {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
close $MEMINFOHANDLE;
|
|
|
|
|
@mem = map { substr $_, 0, -4 } @mem;
|
|
|
|
|
my $memtotal = (split /\s+/xms, $mem[0])[1];
|
|
|
|
|
@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];
|
|
|
|
|
my $swapfree = (split /\s+/xms, $mem[15])[1];
|
|
|
|
|
my $shmem = (split /\s+/xms, $mem[20])[1];
|
|
|
|
|
my $memused = int (($memtotal - $memavail) / ($memtotal / 100));
|
|
|
|
|
my $shmem = (split /\s+/xms, $mem[20])[1];
|
|
|
|
|
my $memused = int (($memtotal - $memavail) / ($memtotal / 100));
|
|
|
|
|
|
|
|
|
|
my $mem = sprintf (
|
|
|
|
|
'M:%d%% SHM:%dM SW:%dM',
|
|
|
|
|
@@ -605,7 +581,7 @@ sub add_events () {
|
|
|
|
|
|
|
|
|
|
if (! defined $O->{mem}->{'full_text'}) {
|
|
|
|
|
$O->{mem}->{'full_text'} = $mem;
|
|
|
|
|
$O->{mem}->{'color'} = '#3e78fd';
|
|
|
|
|
$O->{mem}->{'color'} = '#3e78fd';
|
|
|
|
|
$UPDATE = 1;
|
|
|
|
|
} elsif ($O->{mem}->{'full_text'} ne $mem) {
|
|
|
|
|
$O->{mem}->{'full_text'} = $mem;
|
|
|
|
|
@@ -636,7 +612,7 @@ sub add_events () {
|
|
|
|
|
|
|
|
|
|
if (! defined $O->{cputemp}->{'full_text'}) {
|
|
|
|
|
$O->{cputemp}->{'full_text'} = $cputemp;
|
|
|
|
|
$O->{cputemp}->{'color'} = '#3e78fd';
|
|
|
|
|
$O->{cputemp}->{'color'} = '#3e78fd';
|
|
|
|
|
$UPDATE = 1;
|
|
|
|
|
} elsif ($O->{cputemp}->{'full_text'} ne $cputemp) {
|
|
|
|
|
$O->{cputemp}->{'full_text'} = $cputemp;
|
|
|
|
|
@@ -692,9 +668,9 @@ sub add_events () {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! defined $O->{vpn}->{'full_text'}) {
|
|
|
|
|
$O->{vpn}->{'markup'} = 'pango';
|
|
|
|
|
$O->{vpn}->{'markup'} = 'pango';
|
|
|
|
|
$O->{vpn}->{'full_text'} = $vpnstr;
|
|
|
|
|
$O->{vpn}->{'color'} = '#3e78fd';
|
|
|
|
|
$O->{vpn}->{'color'} = '#3e78fd';
|
|
|
|
|
$UPDATE = 1;
|
|
|
|
|
} elsif ($O->{vpn}->{'full_text'} ne $vpnstr) {
|
|
|
|
|
$O->{vpn}->{'full_text'} = $vpnstr;
|
|
|
|
|
@@ -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;
|
|
|
|
|
}
|
|
|
|
|
@@ -723,8 +699,8 @@ sub add_events () {
|
|
|
|
|
|
|
|
|
|
if (! defined $O->{'simple-volume-pa'}->{'full_text'}) {
|
|
|
|
|
$O->{'simple-volume-pa'}->{'full_text'} = $volumestr;
|
|
|
|
|
$O->{'simple-volume-pa'}->{'color'} = '#3e78fd';
|
|
|
|
|
$O->{'simple-volume-pa'}->{'markup'} = 'pango';
|
|
|
|
|
$O->{'simple-volume-pa'}->{'color'} = '#3e78fd';
|
|
|
|
|
$O->{'simple-volume-pa'}->{'markup'} = 'pango';
|
|
|
|
|
$UPDATE = 1;
|
|
|
|
|
} elsif ($O->{'simple-volume-pa'}->{'full_text'} ne $volumestr) {
|
|
|
|
|
$O->{'simple-volume-pa'}->{'full_text'} = $volumestr;
|
|
|
|
|
@@ -766,9 +742,9 @@ sub add_events () {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! defined $O->{interfaces}->{full_text}) {
|
|
|
|
|
$O->{interfaces}->{color} = $CONF->{color};
|
|
|
|
|
$O->{interfaces}->{color} = $CONF->{color};
|
|
|
|
|
$O->{interfaces}->{full_text} = $interfaces;
|
|
|
|
|
$O->{interfaces}->{markup} = 'pango';
|
|
|
|
|
$O->{interfaces}->{markup} = 'pango';
|
|
|
|
|
$UPDATE = 1;
|
|
|
|
|
} elsif ($O->{interfaces}->{full_text} ne $interfaces) {
|
|
|
|
|
$O->{interfaces}->{full_text} = $interfaces;
|
|
|
|
|
@@ -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;
|
|
|
|
|
|
