add slightly optimized json-ified i3status script
This commit is contained in:
eleksir
274
i3status-mt-json-a-optimized
Executable file
274
i3status-mt-json-a-optimized
Executable file
@@ -0,0 +1,274 @@
|
||||
#!/usr/bin/perl
|
||||
# vim: set ai et ts=8 sw=8 sts=8 ft=perl :
|
||||
use Fcntl;
|
||||
use POSIX;
|
||||
|
||||
use JSON::PP;
|
||||
use utf8;
|
||||
use open qw(:std :utf8);
|
||||
|
||||
use threads;
|
||||
use threads::shared;
|
||||
|
||||
sub gettimestr();
|
||||
sub getfocusedwidowtitlestr();
|
||||
sub getuptimestr();
|
||||
sub getlastr();
|
||||
sub getbatterychargestr1();
|
||||
sub getbatterychargestr2();
|
||||
|
||||
sub slow_thread();
|
||||
sub onesec_thread();
|
||||
|
||||
my @charge :shared;
|
||||
my $la :shared;
|
||||
my $uptime :shared;
|
||||
my $time :shared;
|
||||
my $shoot :shared = 1;
|
||||
|
||||
my $default_color = '#3e78fd';
|
||||
|
||||
my $a->[0]->{'name'} = 'title';
|
||||
$a->[0]->{'full_text'} = ' ';
|
||||
$a->[0]->{'color'} = $default_color;
|
||||
|
||||
$a->[1]->{'name'} = 'username';
|
||||
$a->[1]->{'full_text'} = $ENV{'USER'};
|
||||
$a->[1]->{'color'} = $default_color;
|
||||
|
||||
$a->[2]->{'name'} = 'uptime';
|
||||
$a->[2]->{'full_text'} = ' ';
|
||||
$a->[2]->{'color'} = $default_color;
|
||||
|
||||
$a->[3]->{'name'} = 'la';
|
||||
$a->[3]->{'full_text'} = ' ';
|
||||
$a->[3]->{'color'} = $default_color;
|
||||
|
||||
$a->[4]->{'name'} = 'powersource';
|
||||
$a->[4]->{'full_text'} = ' ';
|
||||
$a->[4]->{'color'} = $default_color;
|
||||
|
||||
$a->[5]->{'name'} = 'time';
|
||||
$a->[5]->{'full_text'} = ' ';
|
||||
$a->[5]->{'color'} = $default_color;
|
||||
my $title;
|
||||
my $prev_title = '';
|
||||
|
||||
threads->create('slow_thread');
|
||||
threads->create('onesec_thread');
|
||||
|
||||
sleep 1;
|
||||
|
||||
syswrite STDOUT, "{\"version\":1, \"click_events\": true}\n";
|
||||
syswrite STDOUT, "[\n[],\n";
|
||||
|
||||
while(1) {
|
||||
$title = getfocusedwidowtitlestr();
|
||||
|
||||
if ($title ne $prev_title) {
|
||||
$shoot = 1;
|
||||
$prev_title = $title;
|
||||
}
|
||||
|
||||
if ($shoot == 1) {
|
||||
$a->[0]->{'full_text'} = $title;
|
||||
$a->[2]->{'full_text'} = $uptime;
|
||||
$a->[3]->{'full_text'} = $la;
|
||||
$a->[4]->{'full_text'} = $charge[0];
|
||||
$a->[4]->{'color'} = $charge[1];
|
||||
$a->[5]->{'full_text'} = $time;
|
||||
my $json = JSON::PP->new;
|
||||
$json = $json->ascii(0);
|
||||
$json = $json->utf8(0);
|
||||
$json = $json->allow_unknown (1);
|
||||
$json = $json->canonical(1);
|
||||
$json = $json->space_before(0);
|
||||
$json = $json->space_after(0);
|
||||
$json = $json->indent(0);
|
||||
my $str = $json->encode($a);
|
||||
undef $json;
|
||||
|
||||
syswrite STDOUT, $str . ",\n";
|
||||
|
||||
undef $str;
|
||||
$shoot = 0;
|
||||
}
|
||||
|
||||
# sleep for 0.333 second;
|
||||
select(undef, undef, undef, 0.333);
|
||||
}
|
||||
|
||||
sub slow_thread(){
|
||||
threads->detach();
|
||||
my @prev_charge = ('','');
|
||||
my @current_charge;
|
||||
my $prev_la = '';
|
||||
my $current_la;
|
||||
|
||||
while(1){
|
||||
@current_charge = getbatterychargestr2();
|
||||
|
||||
if ($current_charge[0] ne $prev_charge[0]) {
|
||||
$shoot = 1;
|
||||
@prev_charge = @current_charge;
|
||||
@charge = @current_charge;
|
||||
}
|
||||
|
||||
$current_la = getlastr();
|
||||
|
||||
if ($current_la ne $prev_la) {
|
||||
$shoot = 1;
|
||||
$prev_la = $current_la;
|
||||
$la = $current_la;
|
||||
}
|
||||
|
||||
sleep 300;
|
||||
}
|
||||
}
|
||||
|
||||
sub onesec_thread() {
|
||||
threads->detach();
|
||||
|
||||
while(1){
|
||||
$uptime = getuptimestr();
|
||||
$time = gettimestr();
|
||||
# as we report time with precision of 1 minute, update 1/60 seconds
|
||||
$shoot = 1;
|
||||
sleep 60;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub gettimestr() {
|
||||
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = (localtime)[0,1,2,3,4,5,6];
|
||||
my @months = ('Янв', 'Фев', 'Мар', 'Апр', 'Май', 'Июн', 'Июл', 'Авг', 'Сен', 'Окт', 'Ноя', 'Дек');
|
||||
my @wdays = ('Вс', 'Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб');
|
||||
$year = $year + 1900;
|
||||
|
||||
my $z = sprintf("%s, %s %s %s %02s:%02s", $wdays[$wday], $mday, $months[$mon], $year, $hour, $min),
|
||||
|
||||
undef $sec; undef $min; undef $hour; undef $mday; undef $mon; undef $year; undef $wday;
|
||||
@months = -1; undef @months;
|
||||
@wdays = -1; undef @wdays;
|
||||
|
||||
return $z;
|
||||
}
|
||||
|
||||
sub getfocusedwidowtitlestr() {
|
||||
my $str;
|
||||
|
||||
if (-x '/usr/bin/xdotool'){
|
||||
$str = `xdotool getactivewindow getwindowname`;
|
||||
}elsif (-x '/usr/bin/xprop'){
|
||||
$str = (split( /=/, `xprop -id \$(xprop -root _NET_ACTIVE_WINDOW | cut -d ' ' -f 5) _NET_WM_NAME`))[1];
|
||||
chop $str; chop $str; $str = reverse $str; chop $str; chop $str; $str = reverse $str;
|
||||
}
|
||||
|
||||
chomp($str);
|
||||
$str =~ s/[\"|\{|\}|\'|,|\(|\)|\[|\]]/ /g;
|
||||
|
||||
if (int(length($str)) > 64){
|
||||
$str = substr($str, 0, 65);
|
||||
}
|
||||
|
||||
return $str;
|
||||
}
|
||||
|
||||
sub getuptimestr() {
|
||||
if(tell(UPTIME) == -1){ open UPTIME, "/proc/uptime"; };
|
||||
|
||||
my $u = <UPTIME>;
|
||||
seek UPTIME, SEEK_SET, 0;
|
||||
$u = (split(/ /, $u, 2))[0];
|
||||
my $days = int($u / 86400); # 86400 = 1 day
|
||||
my $hours = int(($u - (86400 * $days)) / 3600); # 3600 = 1 hour
|
||||
my $minutes = int(($u - (86400 * $days) - (3600 * $hours)) / 60);
|
||||
my $seconds = int($u - (86400 * $days) - (3600 * $hours) - (60 * $minutes));
|
||||
|
||||
$u = sprintf("UP: %sd,%02sh,%02sm", $days, $hours, $minutes);
|
||||
|
||||
undef $days; undef $hours; undef $minutes; undef $seconds;
|
||||
|
||||
return $u;
|
||||
}
|
||||
|
||||
sub getlastr() {
|
||||
if(tell(LA) == -1){ open LA, "/proc/loadavg"; };
|
||||
|
||||
my $la = <LA>;
|
||||
seek LA, SEEK_SET, 0;
|
||||
$la = (split(/ /, $la, 2))[0];
|
||||
|
||||
return $la;
|
||||
}
|
||||
|
||||
sub getbatterychargestr1() {
|
||||
my $str = '';
|
||||
|
||||
if (-f "/sys/class/power_supply/BAT0/present"){
|
||||
open A, "/sys/class/power_supply/BAT0/present";
|
||||
my $P = <A>;
|
||||
close A;
|
||||
chomp($P);
|
||||
|
||||
if($P eq '1'){
|
||||
open A, "/sys/class/power_supply/BAT0/energy_full";
|
||||
my $full_charge = <A>; chomp($full_charge); close A;
|
||||
open A, "/sys/class/power_supply/BAT0/energy_now";
|
||||
my $current_charge = <A>; chomp($current_charge); close A;
|
||||
$str .= sprintf("Bat:%03d%%", int(($current_charge / $full_charge) * 100) );
|
||||
undef $current_charge; undef $full_charge;
|
||||
}
|
||||
|
||||
undef $P;
|
||||
}
|
||||
|
||||
my @z = ($str, '#555555');
|
||||
|
||||
return @z;
|
||||
}
|
||||
|
||||
sub getbatterychargestr2() {
|
||||
my $str = '';
|
||||
my $color = $default_color;
|
||||
my $file;
|
||||
|
||||
if (-f "/sys/class/power_supply/ADP1/online") {
|
||||
$file = "/sys/class/power_supply/ADP1/online";
|
||||
} elsif ("/sys/class/power_supply/AC/online") {
|
||||
$file = "/sys/class/power_supply/AC/online";
|
||||
} else {
|
||||
return ('??', '??%');
|
||||
}
|
||||
|
||||
open AC, $file or return ('??', '??%');
|
||||
|
||||
if(<AC> == 1){
|
||||
$str .= "AC";
|
||||
}else{
|
||||
$str .= "DC";
|
||||
}
|
||||
|
||||
close AC; # display % charge only if possible
|
||||
if (open DC,"/sys/class/power_supply/BAT0/capacity"){
|
||||
my $charge = <DC>;
|
||||
close DC;
|
||||
chomp($charge);
|
||||
|
||||
if ($charge < 10){
|
||||
$color = '#800000';
|
||||
} elsif (($charge >= 10) and ($charge < 25)){
|
||||
$color = '#ffa500';
|
||||
} elsif (($charge >= 25) and ($charge < 80)){
|
||||
$color = '#008000';
|
||||
} else {
|
||||
$color = '#0000a0';
|
||||
}
|
||||
|
||||
$str .= " $charge";
|
||||
}
|
||||
|
||||
my @z = (sprintf("Power: %s%%", $str), $color);
|
||||
|
||||
return @z;
|
||||
}
|
||||
Reference in New Issue
Block a user