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