8 my $path = '/sys/class/power_supply/BAT0/uevent';
10 # No battery available.
15 my $screen_mode = (defined $ARGV[0] and $ARGV[0] eq '-s');
16 my $tmux_mode = (defined $ARGV[0] and $ARGV[0] eq '-t');
20 open my $file, '<', $path or die $!;
22 /^POWER_SUPPLY_([A-Z_]+)=(.+)$/;
27 my $charge = int($battery{CHARGE_NOW} / $battery{CHARGE_FULL} * 100);
29 # GNU screen mode with colors: 0-20 red, 20-40 yellow, 40-100 green.
34 } elsif ($charge < 40) {
40 print "\005{+$color}$charge%\005{-}\n";
42 } elsif ($tmux_mode) {
46 } elsif ($charge < 40) {
52 print "#[fg=$color,bold]$charge%#[default]\n";