Compare commits
5 Commits
2a33b7a4f3
...
master
| Author | SHA1 | Date | |
|---|---|---|---|
|
7a8316992a | ||
|
|
5977c933a7 | ||
|
|
d0f7426003 | ||
|
|
d9719b1ddd | ||
|
|
2a588e5ae9 |
@@ -20,10 +20,10 @@ 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);
|
||||
|
||||
@@ -126,6 +126,9 @@ my $i3_subscription->{window} = sub {
|
||||
}
|
||||
}
|
||||
}
|
||||
} else {
|
||||
# we just don't care about other events now
|
||||
return;
|
||||
}
|
||||
|
||||
active_win_borders ();
|
||||
@@ -165,45 +168,16 @@ 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 };
|
||||
|
||||
@@ -233,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 };
|
||||
@@ -405,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;
|
||||
}
|
||||
}
|
||||
@@ -441,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)));
|
||||
}
|
||||
@@ -590,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];
|
||||
@@ -838,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
|
||||
|
||||
Reference in New Issue
Block a user