i3status-anyevent moved to separate repo - i3status-ae

* Rename config.json to i3status-anyevent.json, old name still supported
* Drop dbus and use upower directly with option use /sys poll instead
* Use setsid() to prevent windows get stoned when i3bar restarted (and
* status scrept re-launched)
* Do not use syswrite on utf8 filehandles, it's deprecated
* Move some settings to config
* Add lots of comments to config

acpid.pl

@@ -2,15 +2,10 @@
 #
 # Hibernates system if battery charge drops under $MIN_CHARGE and battery discharging
 
-
 use strict;
-use warnings "all";
-use Fcntl;
-
-sub logger($); # logs messages if $debug != 0
-# maybe one time i'll use it
-sub i3wmstate; # returns 1 if i3wm running, else - 0
+use warnings;
 
+sub logger; # logs messages if $debug != 0
 
 $0 = 'acpid.pl';
 my $debug = 0;
@@ -18,8 +13,8 @@ my $MIN_CHARGE = 10;
 
 my $base = '/sys/class/power_supply/BAT0';
 
-unless(-f "$base/present") {
-	logger("Battery info at /sys/class/BAT0/present not found, quitting.\n");
+unless (-f "$base/present") {
+	logger "Battery info at /sys/class/BAT0/present not found, quitting.";
 	exit 0;
 }
 
@@ -27,90 +22,89 @@ my $battery_present = 2;
 my $battery_check = 2;
 my $charging = 2;
 
-while ( sleep(180) ) {
-# check that battery is in place
-	open(ACPI, "$base/present") or next;
-	my $buf = '';
+while (sleep 180) {
+	open (my $batteryFH, '<', "$base/present") or next;
+	my $buf;
 
-	if (read(ACPI, $buf, 1)) {
+	if (read ($batteryFH, $buf, 1)) {
 		if ($battery_check == 0) {
-			logger("Ability to read from /sys/class/BAT0/present restored\n");
+			logger "Ability to read from $base/present restored";
 			$battery_check = 1;
 		}
 
 		if ($buf == '0') {
-			if ($battery_present != 0) {
-				logger("We have no battery, skipping charge level polling until it appears\n");
+			if ($battery_present) {
+				logger "We have no battery, skipping charge level polling until it appears";
 				$battery_present = 0;
 			}
 
-			close ACPI;
+			close $batteryFH;
 			next;
 		}
 	} else {
-		if ($battery_check != 0) {
-			logger("Unable to read from /sys/class/BAT0/present\n");
+		if ($battery_check) {
+			logger "Unable to read from /sys/class/BAT0/present";
 			$battery_check = 0;
 		}
 
-		close ACPI;
+		close $batteryFH;
 		next;
 	}
 
-	close ACPI;
+	close $batteryFH;
 	$battery_present = 1;
 
 # check status, we have no need to poll battery if it charging/charged
 	unless (-f "$base/status") {
-		logger("Something broken in /sys, unable to find $base/status, quitting\n");
+		logger "Something broken in /sys, unable to find $base/status, quitting";
 		exit 1;
 	}
 
 # TODO: file access save state and print on change
-	open(STATUS, "$base/status") or do {
-		logger("Unable to open $base/status\n");
+	open (my $statusFH, '<', "$base/status") or do {
+		logger "Unable to open $base/status";
 		next;
 	};
 
-	$buf = <STATUS>;
-	close STATUS;
-
-	chomp($buf);
+	$buf = <$statusFH>;
+	close $statusFH;
+	chomp $buf;
 
 	if ($buf ne 'Discharging') {
 		if ($charging != 1) {
-			logger("Battery charging.\n");
+			logger "Battery charging.";
 			$charging = 1;
 		}
 	} else {
-		if ($charging != 0) {
-			logger("Battery discharging.\n");
+		if ($charging) {
+			logger "Battery discharging.";
 			$charging = 0;
 		}
 	}
 
 # read charge state
 	unless (-f "$base/capacity") {
-		logger("Something broken in /sys, unable to find $base/capacity, quitting\n");
+		logger "Something broken in /sys, unable to find $base/capacity, quitting";
 		exit 1;
 	}
 
 # TODO: file access save state and print on change
-	open(CHARGE, "$base/capacity") or do {
+	open (my $chargeFH, '<', "$base/capacity") or do {
 		logger("Unable to open $base/capacity\n");
 		next;
 	};
 
-	read(CHARGE, $buf, 3) or do {
-		logger("Unable to read $base/capacity, but file is in place\n");
+	read ($chargeFH, $buf, 3) or do {
+		logger "Unable to read $base/capacity, but file is in place";
 		next;
 	};
 
-	chomp($buf); # just in case
+	close $chargeFH;
+	chomp $buf; # just in case
 
 	if ($buf < $MIN_CHARGE) {
 		if ($charging != 0) { # discharging
-			logger("Battery charge is less than 10%, hibernating\n");
+			logger "Battery charge is less than 10%, hibernating";
 			`dbus-send --system --print-reply --dest="org.freedesktop.UPower" /org/freedesktop/UPower org.freedesktop.UPower.Hibernate`;
 		}
 	} else {
@@ -122,51 +116,15 @@ while ( sleep(180) ) {
 			`notify-send --urgency=normal --expire-time=3000 "Battery overcharging"`;
 		}
 
-		logger("Charge is $buf%\n");
+		logger "Charge is $buf%";
 	}
 }
 
 
-sub logger ($) {
-	if ($debug != 0) {
+sub logger {
+	if ($debug) {
 		my $msg = shift;
-		$msg = localtime() . ' ' . $msg;
+		$msg = sprintf '%s %s\n', localtime (), $msg;
 		syswrite STDOUT, $msg;
 	}
 }
-
-sub i3wmstate {
-	my $flag = 0;
-	opendir(P, '/proc') || die 'no /proc found!';
-
-	while (readdir(P)) {
-		my $pid = $_;
-		next unless(defined($pid));
-		next if ($pid eq '');
-
-		if (-d "/proc/$pid") {
-			# dir UID == APCID.pl process user owner
-			if ((stat("/proc/$pid"))[4] == int(getpwnam($ENV{'LOGNAME'}))) {
-				next unless(-r "/proc/$pid/cmdline");
-				open(CMDLINE, "/proc/$pid/cmdline") || die "unable to open /proc/$pid/cmdline";
-				my $cl = <CMDLINE>;
-				close(CMDLINE);
-
-				if(defined($cl)) {
-					if ((substr($cl, 0, 2) eq 'i3') and (length($cl) <= 4)) {
-						$flag = 1;
-						undef $cl;
-						undef $pid;
-						last;
-					}
-				}
-
-				undef $cl;
-			}
-		}
-
-		undef $pid;
-	}
-
-	return $flag;
-}

config.json

@@ -1,72 +0,0 @@
-	[
-		{
-			"full_text" : "u",
-			"name" : "urxvt",
-			"cmd" : "urxvtc"
-		},
-		{
-			"full_text" : "l",
-			"name" : "lxterm",
-			"cmd" : "lxterminal"
-		},
-		{
-			"full_text" : "f",
-			"name" : "firefox",
-			"cmd" : "firefox"
-		},
-		{
-			"full_text" : "v",
-			"name" : "vivaldi",
-			"cmd" : "vivaldi"
-		},
-		{
-			"full_text" : "c",
-			"name" : "chromium",
-			"cmd" : "chromium"
-		},
-		{
-			"full_text" : "o",
-			"name" : "opera",
-			"cmd" : "opera"
-		},
-		{
-			"full_text" : "t",
-			"name" : "thunderbird",
-			"cmd" : "thunderbird"
-		},
-		{
-			"full_text" : "t",
-			"name" : "telegram",
-			"cmd" : "Telegram"
-		},
-		{
-			"full_text" : "i",
-			"name" : "icq",
-			"cmd" : "icq"
-		},
-		{
-			"full_text" : "s",
-			"name" : "slack",
-			"cmd" : "slack"
-		},
-		{
-			"full_text" : "z",
-			"name" : "zim",
-			"cmd" : "zim"
-		},
-		{
-			"full_text" : "m",
-			"name" : "mousepad",
-			"cmd" : "mousepad"
-		},
-		{
-			"full_text" : "c",
-			"name" : "code",
-			"cmd" : "code"
-		},
-		{
-			"full_text" : "k",
-			"name" : "keepassxc",
-			"cmd" : "keepassxc"
-		}
-	]

i3status-anyevent

@@ -1,416 +0,0 @@
-#!/usr/bin/perl
-
-# 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 );
-		exit 0; # we actually never get here
-	}
-}
-
-use 5.018;
-use strict;
-use warnings;
-use utf8;
-use open qw (:std :utf8);
-use Fcntl qw (:seek);
-use AnyEvent;
-#use Linux::Inotify2;
-use JSON::XS;
-use Net::DBus;
-use Encode;
-
-sub spawn (@);
-sub find_caps_led ();
-sub to_hours ($);
-sub readconf ();
-
-my $CONF = readconf ();
-
-# note that /proc and sys does not generate events via inotify()
-#my @files = qw( /proc/meminfo /proc/loadavg /tmp/boom /sys/class/net/wlan0/operstate );
-my @month = ('Янв', 'Фев', 'Мар', 'Апр', 'Май', 'Июн', 'Июл', 'Авг', 'Сен', 'Окт', 'Ноя', 'Дек');
-my @week_day = ('Вс', 'Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб');
-
-# File handler pool
-my $LAHANDLE;
-my $MEMINFOHANDLE;
-my $CPUTEMPHANDLE;
-my $CAPSHANDLE;
-
-# everything for text labels on i3bar
-my $wallclock = '';
-my $la = '';
-my $meminfo = '';
-my $cputemp = '';
-my $caps_state = '';
-my $charge = '';
-my $output_string;
-my $old_output_string = '';
-my $STDIN_FIRST_LINE_DROPPED = 0;
-
-#my $inotify = Linux::Inotify2->new or die "Can't create inotify object: $!";
-my $done = AnyEvent->condvar;
-my $CAPS_LED_PATH = find_caps_led ();
-
-# prep dee-boos connection
-my $bus = Net::DBus->system;
-my $upower = $bus->get_service ('org.freedesktop.UPower');
-my $properties = $upower->get_object ('/org/freedesktop/UPower/devices/battery_BAT0', 'org.freedesktop.DBus.Properties');
-
-# capture click events and do not override sigstop and sigcont numbers
-syswrite STDOUT, << 'EOJSON';
-{"version": 1, "click_events": true}
-[ [], 
-EOJSON
-
-#foreach my $file (@files) {
-#	$inotify->watch (
-#		$file,
-#		IN_MODIFY,
-#
-#		sub {
-#			my $e = shift;
-##			if ($e->IN_MODIFY) {
-#				print "$file modified\n";
-#			}
-#		}
-#	);
-#}
-
-# Register callbacks/event handlers
-
-# Actually print messages there
-my $watch_stdout = AnyEvent->timer (
-	after    => 1,    # sleep 1 second
-	interval => 0.3,  # then invoke every 1 second
-	cb       => sub { # the callback to invoke
-
-		my $OUTPUT;
-		@{$OUTPUT} = @{$CONF};
-
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => $caps_state };
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => $cputemp };
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => $meminfo };
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => "LA: $la" };
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => $charge };
-		push @{$OUTPUT}, { "color" => "#3e78fd", "full_text" => $wallclock };
-
-		$output_string = eval { encode_json ($OUTPUT) };
-
-		if (defined $output_string) {
-			if ($output_string ne $old_output_string) {
-				syswrite STDOUT, decode ('UTF-8', $output_string) . ",\n";
-				$old_output_string = $output_string;
-			}
-		} else {
-			warn $@;
-		}
-
-		@{$OUTPUT} = -1;
-	}
-);
-
-
-# read STDIN
-my $watch_stdin = AnyEvent->io (
-	fh   => \*STDIN,
-	poll => 'r',
-	cb   => sub {
-		my $msg = <>;
-
-		unless ($STDIN_FIRST_LINE_DROPPED) {
-			$msg = <>;
-			$STDIN_FIRST_LINE_DROPPED = 1;
-		}
-
-		if ($msg) {
-			# drop leading ',' if present
-			if (substr ($msg, 0, 1) eq ',') {
-				$msg = substr $msg, 1;
-			}
-
-			my $j = eval { decode_json ($msg) };
-
-			if (defined $j) {
-				foreach (@{$CONF}) {
-					if ((defined $_->{name}) && ($j->{name} eq $_->{name})) {
-						spawn ($_->{cmd});
-						last;
-					}
-				}
-			}
-		}
-	}
-);
-
-# poll caps lock status, on one of my laptop there is no led for this :(
-my $watch_caps_led = AnyEvent->timer (
-	after    => 0,    # first invoke ASAP
-	interval => 0.3,  # then invoke every 0.3 seconds
-	cb       => sub { # the callback to invoke
-		if (defined $CAPS_LED_PATH) {
-			if (defined $CAPSHANDLE) {
-				if (tell ($CAPSHANDLE) == -1) {
-					unless (open $CAPSHANDLE, '<', $CAPS_LED_PATH) {
-						$CAPS_LED_PATH = undef;
-						$caps_state = 2;
-					}
-				}
-			} else {
-				unless (open $CAPSHANDLE, '<', $CAPS_LED_PATH) {
-					$CAPS_LED_PATH = undef;
-					$caps_state = 2
-				}
-			}
-		} else {
-			$caps_state = 2;
-		}
-
-		if ($caps_state eq '2') {
-			$caps_state = '? caps';
-		} else {
-			$caps_state = eval { readline ($CAPSHANDLE) };
-			seek $CAPSHANDLE, SEEK_SET, 0;
-			chomp $caps_state;
-
-			if ($caps_state eq '1') {
-				$caps_state = '☒ caps';
-			} else {
-				$caps_state = '☐ caps';
-			}
-		}
-	}
-);
-
-# poll clock by timer
-my $watch_clock = AnyEvent->timer (
-	after    => 0,    # first invoke ASAP
-	interval => 1,    # then invoke every 1 second
-	cb       => sub { # the callback to invoke
-		# Fetch time for clock
-		my ($sec, $min, $hour, $mday, $mon, $year, $wday) = (localtime)[0,1,2,3,4,5,6];
-		$year = $year + 1900;
-		$wallclock = sprintf '     %s, %s %s %s  %02s:%02s  ', $week_day[$wday], $mday, $month[$mon], $year, $hour, $min;
-	}
-);
-
-
-# poll battery status via dbus
-# but it is possible to fetch this status via upower directly
-my $watch_battery = AnyEvent->timer (
-	after    => 0,    # first invoke ASAP
-	interval => 10,   # then invoke every 10 seconds
-	cb       => sub { # the callback to invoke
-		my $capacity = $properties->Get ('org.freedesktop.UPower.Device', 'Percentage');
-		my $state = $properties->Get ('org.freedesktop.UPower.Device', 'State');
-		my $time = '?';
-
-		if ($state == 2) {
-			# discharging
-			$time = $properties->Get ('org.freedesktop.UPower.Device', 'TimeToEmpty');
-			# time in seconds, let's translate it to hours:minutes
-			$state = '▼';
-		} elsif ($state == 1) {
-			# charging
-			$time = $properties->Get ('org.freedesktop.UPower.Device', 'TimeToFull');
-			$state = '▲';
-		} else {
-			# already charged
-			$time = 0;
-			$state = '•';
-		}
-
-		if ($time ne '?') {
-			$time = to_hours ($time);
-		}
-
-		$charge = sprintf '⚡ %s%% %s %s', $capacity, $state, $time;
-	}
-);
-
-
-# put all fast accessable stats in one callback
-my $watch_stats = AnyEvent->timer (
-	after    => 0,    # first invoke ASAP
-	interval => 3,    # then invoke every 3 second
-	cb       => sub { # the callback to invoke
-
-		# Fetch Load Average
-		if (defined $LAHANDLE) {
-			if (tell ($LAHANDLE) == -1) {
-				open $LAHANDLE, '<', '/proc/loadavg';
-			}
-		} else {
-			open $LAHANDLE, '<', '/proc/loadavg';
-		}
-
-		$la = readline ($LAHANDLE);
-		seek $LAHANDLE, SEEK_SET, 0;
-		$la = (split / /ms, $la, 2)[0];
-
-		# populate memory statistics
-		if (defined $MEMINFOHANDLE) {
-			if (tell ($MEMINFOHANDLE) == -1) {
-				open $MEMINFOHANDLE, '<', '/proc/meminfo';
-			}
-		} else {
-			open $MEMINFOHANDLE, '<', '/proc/meminfo';
-		}
-
-		my @mem;
-
-		while ( ! eof ($MEMINFOHANDLE) ) {
-			push @mem, readline ($MEMINFOHANDLE);
-		}
-
-		seek $MEMINFOHANDLE, SEEK_SET, 0;
-		@mem = map { substr $_, 0, -4 } @mem;
-		my $memavail  = (split /\s+/xms, $mem[2])[1];
-		my $swaptotal = (split /\s+/xms, $mem[14])[1];
-		my $swapfree  = (split /\s+/xms, $mem[15])[1];
-
-		$meminfo = sprintf (
-			'mem/sw: %s/%s M',
-			int ($memavail / 1024),
-			int (($swaptotal - $swapfree) / 1024)
-		);
-
-		# populate cpu temperature info
-		my $hwmon = 1;
-
-		if (defined $CPUTEMPHANDLE) {
-			if (tell $CPUTEMPHANDLE == -1) {
-				if (open ($CPUTEMPHANDLE, '<', '/sys/class/hwmon/hwmon0/temp1_input')) {
-					$hwmon = 1;
-				} else {
-					$hwmon = 0;
-				}
-			}
-		} else {
-			open ($CPUTEMPHANDLE, '<', '/sys/class/hwmon/hwmon0/temp1_input') or do {
-				$hwmon = 0;
-			};
-		}
-
-		if ($hwmon) {
-			$cputemp = readline $CPUTEMPHANDLE;
-			seek $CPUTEMPHANDLE, SEEK_SET, 0;
-			chomp $cputemp;
-			$cputemp = int $cputemp;
-
-			if ($cputemp > 1000) {
-				$cputemp = int ($cputemp / 1000);
-			}
-
-			$cputemp = sprintf('%s°', $cputemp);
-		}
-	},
-);
-
-
-# This callback for inotify stuff
-#my $watch_file_event = AnyEvent->idle (
-#	cb => sub {
-#		$inotify->poll;
-#	}
-#);
-
-$done->recv();
-
-sub spawn (@) {
-	my @args = @_;
-	my  $pid = fork();
-
-	if ($pid) {
-		# Parent, work done, return
-		return;
-	} elsif ($pid == 0) {
-		# Child, we need to exec() given prog with args
-
-		# it seems that at least vscode creashes if we close stdio handles
-		open STDOUT, ">", '/dev/null';
-		open STDERR, ">", '/dev/null';
-		open STDIN,  '<', '/dev/null';
-		$pid = fork ();
-
-		if ($pid) { # Parent
-			# in this place parent quits
-			exit 0;
-		} elsif ($pid == 0) { # Child
-			my $prg = shift(@args);
-			# weird situation, silently quit here :)
-			exit 0 unless(defined($prg));
-
-			if (@args > 0) {
-				exec $prg @args;
-			} else {
-				exec $prg;
-			}
-		} else { # Unable to fork()
-			syswrite STDERR, "[{\"full_text\":\"ERROR: Could not fork new process: $!\",\"color\":\"#ff0000\"}],\n";
-		}
-	}
-
-	return;
-}
-
-sub find_caps_led () {
-	my $str;
-	opendir my $C, '/sys/class/input';
-	my $cnt = 0;
-
-	while (readdir $C) {
-		if (-f sprintf ('/sys/class/input/%s/input0::capslock/brightness', $_)) {
-			$str = sprintf '/sys/class/input/%s/input0::capslock/brightness', $_;
-			last;
-		}
-
-		if (-f sprintf ('/sys/class/input/%s/input%s::capslock/brightness', $_, $cnt)) {
-			$str = sprintf '/sys/class/input/%s/input%s::capslock/brightness', $_, $cnt;
-			last;
-		}
-
-		$cnt++;
-	}
-
-	closedir $C;
-	return $str;
-}
-
-sub to_hours ($) {
-	my $sec = shift;
-
-	my $hrs = int ($sec / (60 * 60));
-	my $min = int (($sec - ($hrs * 60 * 60)) / 60);
-
-	return sprintf '%02d:%02d', $hrs, $min;
-}
-
-sub readconf () {
-	my $file =  "$ENV{HOME}/.i3/config.json";
-	open (my $FH, '<', $file) or die "Unable to open $file: $!\n";
-	my $len = (stat $file)[7];
-	my $data;
-	use bytes;
-	my $readlen = read $FH, $data, $len;
-	no bytes;
-	close $FH;
-
-	unless (defined $readlen) {
-		die "Unable to read $file: $!\n";
-	}
-
-	if ($readlen != $len) {
-		die "Unable to read $file: read $readlen, but stat() reports that file is $len bytes\n";
-	}
-
-	my $config = eval { decode_json ($data) };
-
-	if ($@) {
-		die "Unable to decode $file: $@\n";
-	}
-
-	return $config;
-}

i3status-timers.json-io

@@ -1,22 +1,26 @@
 #!/usr/bin/perl
 # vim: set ai noet ts=4 sw=4 sts=4 ft=perl :
 
-use strict;
-use warnings "all";
-use Fcntl qw(:seek :mode :DEFAULT);
-use 5.10.0;
 use utf8;
+use open qw (:std :utf8);
+use strict;
+use warnings;
+use Carp qw (confess);
+use Data::Dumper;
+use Fcntl qw(:seek :mode :DEFAULT);
+use 5.22.2;
 use JSON::XS;
+use Net::DBus;
+use POSIX qw (setsid);
 use threads;
 
-binmode STDOUT;
-binmode STDERR;
-
 sub input_thread();
 sub readconf();
 sub gettimestr();
 sub getlastr();
 sub getbatterychargestr2();
+sub getbatterychargestr3();
+sub to_hours ($);
 sub meminfo();
 sub ifaces();
 sub cpuspeed();
@@ -26,9 +30,18 @@ sub caps_find();
 
 sub spawn(@);
 
+binmode STDIN;
+binmode STDERR;
+binmode STDOUT;
+
 my $read = 0;
+$SIG{__DIE__} = \&Carp::confess;;
 $SIG{"CONT"} = sub { $read = 1 };
 $SIG{"STOP"} = sub { $read = 0 };
+$SIG{"PIPE"} = sub { warn "SIGPIPE" };
+$SIG{"HUP"} = sub { warn "SIGHUP" };
+$SIG{"USR1"} = sub { warn "SIGUSR1" };
+$SIG{"WINCH"} = sub { warn "SIGWINCH" };
 
 my $slow_timer = 360; # 0.333 * 360 ~= 2 min
 my $onesec_timer = 3; # 0.333 * 3   ~= 1 sec
@@ -83,14 +96,20 @@ if ( -f "/sys/class/power_supply/ADP1/online") {
 	$ACFILE = "/sys/class/power_supply/AC/online";
 }
 
+# prep dee-boos connection
+my $bus = Net::DBus->system;
+my $upower = $bus->get_service("org.freedesktop.UPower");
+my $properties = $upower->get_object("/org/freedesktop/UPower/devices/battery_BAT0", "org.freedesktop.DBus.Properties");
+
 threads->create('input_thread')->detach();
 
-sleep 1;
-
-syswrite STDOUT, '{"version": 1, "stop_signal": 10, "cont_signal": 12, "click_events": true}
+# capture click events and do not override sigstop and sigcont numbers
+syswrite STDOUT, '{"version": 1, "click_events": true}
 [ [], 
 ';
 
+sleep 1;
+
 while (1) {
 	# json message that will be spewed to i3bar
 	my $je;
@@ -126,7 +145,7 @@ while (1) {
 	}
 
 	if ($slow_timer >= 360) {
-		$tmp = getbatterychargestr2();
+		$tmp = getbatterychargestr3();
 		if ($charge ne $tmp) {
 			$jf = 1;
 			$charge = $tmp;
@@ -166,8 +185,10 @@ while (1) {
 		@{$je} = (@{$jo}, @{$C});
 		@{$je} = reverse(@{$je});
 
-		if (my $output = encode_json($je)) {
-			syswrite STDOUT, encode_json($je) . ",\n";
+		my $output = eval { encode_json($je); };
+
+		if ($output) {
+			syswrite STDOUT, $output . ",\n";
 		}
 
 		$jf = 0;
@@ -181,13 +202,18 @@ while (1) {
 }
 
 sub readconf() {
-	open (CONF, "$ENV{HOME}/.i3/config.json") or die "Unable to open $ENV{HOME}/.i3/config.json: $!\n";
-	my $sep = $/;
-	$/ = '';
-	my $c = readline(*CONF);
-	close CONF;
-	$/ = $sep;
-	$c = decode_json($c) or die "Unable to decode $ENV{HOME}/.i3/config.json: $!\n";
+	open (my $CONF, '<:encoding(UTF-8)', "$ENV{HOME}/.i3/config.json") or die "Unable to open $ENV{HOME}/.i3/config.json: $!\n";
+	my $len = (stat "$ENV{HOME}/.i3/config.json")[7];
+	use bytes;
+	read ($CONF, my $c, $len) or die "unable to read $ENV{HOME}/.i3/config.json";
+	no bytes;
+	close $CONF;
+	$c = eval { decode_json ($c); };
+
+	if ($@) {
+		die "Unable to decode $ENV{HOME}/.i3/config.json: $@\n";
+	}
+
 	my ($j, %cmd);
 	my $cnt = 0;
 
@@ -210,11 +236,12 @@ sub input_thread() {
 # elements as independed json messages, but we have to strip leading ","
 
 	readline(*STDIN); # throw away leading "[\n"
+	my $char;
 
 	while (1) {
-		next if (eof(STDIN));
-		my $msg = readline(*STDIN);
-		$msg = substr($msg, 1, -1) if (substr($msg, 0, 1) eq ','); # drop leading ',' if present
+		my $msg = eval { readline(*STDIN) };
+		next unless ($msg);
+		$msg = substr($msg, 1) if (substr($msg, 0, 1) eq ','); # drop leading ',' if present
 		my $j = decode_json($msg);
 
 		if (defined($CMD{$j->{name}})) {
@@ -276,6 +303,42 @@ sub getbatterychargestr2() {
 	return $str;
 }
 
+sub getbatterychargestr3() {
+	my $capacity = $properties->Get('org.freedesktop.UPower.Device', 'Percentage');
+	my $state = $properties->Get('org.freedesktop.UPower.Device', 'State');
+	my $time = "?";
+
+	if ($state == 2) {
+# discharging
+		$time = $properties->Get('org.freedesktop.UPower.Device', 'TimeToEmpty');
+		# time in seconds, let's translate it to hours:minutes
+		$state = '▼';
+	} elsif ($state == 1) {
+# charging
+		$time = $properties->Get('org.freedesktop.UPower.Device', 'TimeToFull');
+		$state = '▲';
+	} else {
+# already charged
+		$time = 0;
+		$state = '•';
+	}
+
+	$time = to_hours ($time) unless ($time eq '?');
+
+	return sprintf("⚡ %s%% %s %s", $capacity, $state, $time);
+}
+
+sub to_hours ($) {
+	my $sec = shift;
+
+	my $hrs = $sec / (60 * 60);
+	$hrs = 0 if ( $hrs < 1 );
+	my $min = ($sec - ($hrs * 60 * 60)) / 60;
+	$min = 0 if ( $min < 1 );
+
+	return sprintf("%02d:%02d", $hrs, $min);
+}
+
 sub meminfo() {
 	if (defined($MEMINFOHANDLE)) {
 		open ($MEMINFOHANDLE, "/proc/meminfo") if (tell($MEMINFOHANDLE) == -1);
@@ -507,19 +570,29 @@ sub spawn (@) {
 	if ($pid) { # Parent
 		return;
 	} elsif ($pid == 0) { # Child
+		POSIX::setsid ();
 # we need no io streams here, right?
 # it seems that at least vscode creashes if we close stdio handles
 		open(STDOUT, ">", "/dev/null");
 		open(STDERR, ">", "/dev/null");
 		open(STDIN,  "<", "/dev/null");
-		my $prg = shift(@args);
-# weird situation, silently quit here :)
-		exit 0 unless(defined($prg));
+		$pid = fork ();
 
-		if (@args > 0) {
-			exec $prg @args;
-		} else {
-			exec $prg;
+		if ($pid) { # Parent
+			# in this place parent quits
+			exit 0;
+		} elsif ($pid == 0) { # Child
+			my $prg = shift(@args);
+			# weird situation, silently quit here :)
+			exit 0 unless(defined($prg));
+
+			if (@args > 0) {
+				exec $prg @args;
+			} else {
+				exec $prg;
+			}
+		} else { # Unable to fork()
+			syswrite STDERR, "[{\"full_text\":\"ERROR: Could not fork new process: $!\",\"color\":\"#ff0000\"}],\n";
 		}
 	} else { # Unable to fork()
 		syswrite STDERR, "[{\"full_text\":\"ERROR: Could not fork new process: $!\",\"color\":\"#ff0000\"}],\n";