Thinkpad control scripts
SystemD unit file to give ownership or necessary sys files to user toggle_outputs.sh simply swaps between two most common layouts with sway/displays.pl kbd_backlight.pl simply increments the current backlight brightness then %3 to cycle between off, low, high blc.pl is an overly complicated screen backlight control
This commit is contained in:
John Mertz
parent
dd6a04088f
commit
895b9b5588
|
|
@ -0,0 +1,305 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# Files containing current and max brightness values
|
||||
my $cur_file = "/sys/class/backlight/intel_backlight/brightness";
|
||||
my $max_file = "/sys/class/backlight/intel_backlight/max_brightness";
|
||||
my $last_file = "/home/jpm/.config/blc.last";
|
||||
|
||||
sub to_percent {
|
||||
my $value = shift;
|
||||
if ($value eq "Permission Denied") {
|
||||
return $value;
|
||||
} else {
|
||||
$value = int($value/get_max()*100);
|
||||
return $value . '%';
|
||||
}
|
||||
}
|
||||
|
||||
sub get_offset {
|
||||
return int(get_max()/100);
|
||||
}
|
||||
|
||||
sub get_current {
|
||||
open(my $c,'<',"$cur_file");
|
||||
my $current = <$c>;
|
||||
close $c;
|
||||
chomp $current;
|
||||
return $current;
|
||||
}
|
||||
|
||||
sub get_max {
|
||||
open(my $m,'<',"$max_file");
|
||||
my $max = <$m>;
|
||||
close $m;
|
||||
chomp $max;
|
||||
return $max;
|
||||
}
|
||||
|
||||
sub get_min {
|
||||
return int((get_max()/100)+2);
|
||||
}
|
||||
|
||||
sub writable {
|
||||
if (! -w $cur_file) {
|
||||
return 0;
|
||||
} else {
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub increment {
|
||||
if (writable()) {
|
||||
my $current = get_current();
|
||||
my $max = get_max();
|
||||
my $target = $current+get_offset();
|
||||
if ($target > $max) {
|
||||
$target = $max;
|
||||
}
|
||||
open(my $c,'>',"$cur_file");
|
||||
print $c $target;
|
||||
close $c;
|
||||
return $target;
|
||||
} else {
|
||||
return "Permission Denied";
|
||||
}
|
||||
}
|
||||
|
||||
sub decrement {
|
||||
if (writable()) {
|
||||
my $current = get_current();
|
||||
my $min = get_min();
|
||||
my $target = $current-get_offset();
|
||||
if ($target < $min) {
|
||||
$target = $min;
|
||||
}
|
||||
open(my $c,'>',"$cur_file");
|
||||
print $c $target;
|
||||
close $c;
|
||||
return $target;
|
||||
} else {
|
||||
return "Permission Denied";
|
||||
}
|
||||
}
|
||||
|
||||
sub set {
|
||||
my $value = shift;
|
||||
if (writable()) {
|
||||
$current = get_current();
|
||||
if ($value > $current) {
|
||||
for (my $i=$current;$i<=$value;$i++) {
|
||||
open(my $c,'>',"$cur_file");
|
||||
print $c $i;
|
||||
close $c;
|
||||
}
|
||||
} else {
|
||||
for (my $i=$current;$i>=$value;$i--) {
|
||||
open(my $c,'>',"$cur_file");
|
||||
print $c $i;
|
||||
close $c;
|
||||
}
|
||||
}
|
||||
return $value;
|
||||
} else {
|
||||
return "Permission Denied";
|
||||
}
|
||||
}
|
||||
|
||||
sub help {
|
||||
print "
|
||||
Backlight Control
|
||||
|
||||
Usage: blc.pl [--silent|--notify] [OPTION] [VALUE]
|
||||
|
||||
With no option the backlight information is printed as JSON.
|
||||
|
||||
Output printed to STDOUT unless:
|
||||
|
||||
--silent Do not display output (overrides --notify)
|
||||
--notify Send output to notification daemon. --notify=N will
|
||||
change the display duration in ms. Default is 200ms
|
||||
|
||||
Output option must preceed the first Action option.
|
||||
|
||||
Actions:
|
||||
|
||||
= VALUE Set backlight to specific value. VALUE greater than
|
||||
100 will be treated as absolute value. VALUE eqaul to
|
||||
or less than 100 will be treated as a percentage
|
||||
++ Increment by 1%
|
||||
+= VALUE Increment by VALUE percent
|
||||
-- Decrement by 1%
|
||||
-= VALUE Decrement by VALUE percent
|
||||
|
||||
Actions corrected to 1% or 100% if over or under. All actions
|
||||
provide output as a percentage, with the % symbol.
|
||||
|
||||
Final percentage printed as below, skipping other options.
|
||||
|
||||
Print:
|
||||
|
||||
== Print current absolute value
|
||||
^ Print maximum absolute value
|
||||
% Print current percentage (does not include % symbol)
|
||||
--help Help (not impacted by --silent or --notify)
|
||||
--HELP Advanced help (same as above)
|
||||
|
||||
Any other option will be printed literally";
|
||||
}
|
||||
|
||||
sub advanced {
|
||||
$current = get_current();
|
||||
$max = get_max();
|
||||
print ".
|
||||
|
||||
Print functions can be strung together but command will exit
|
||||
with the first non-print option. eg.
|
||||
|
||||
\$ blc.pl == / ^
|
||||
21/100
|
||||
\$ blc.pl == ++
|
||||
('==' ignored)
|
||||
(Backlight incremented)
|
||||
|
||||
Escape options with \\ in quotes to display them literally. eg.
|
||||
|
||||
\$ blc.pl == / ^ '\\=' % \'\\%\'
|
||||
" . $current . "/" . $max . "=" . int($current/$max*100) . "%
|
||||
|
||||
Only one \'\\' is removed per block. eg.
|
||||
|
||||
\$ blc.pl '\\% \\'
|
||||
% \\
|
||||
|
||||
";
|
||||
}
|
||||
|
||||
my $current = get_current();
|
||||
my (@output, $target, $silent, $notify);
|
||||
|
||||
if (scalar @ARGV) {
|
||||
for (my $i=0;$i<scalar @ARGV;$i++) {
|
||||
if ($ARGV[$i] eq '++') {
|
||||
$target = increment();
|
||||
@output = to_percent($target);
|
||||
last;
|
||||
} elsif ($ARGV[$i] eq '+=') {
|
||||
for (my $i=0;$i<scalar @ARGV;$i++) {
|
||||
if ($ARGV[$i] eq '+=') {
|
||||
if (defined $ARGV[($i+1)]) {
|
||||
$count = $ARGV[($i+1)];
|
||||
for (my $j=0;$j<$count;$j++) {
|
||||
$target = increment();
|
||||
if ($target eq "Permission Denied") {
|
||||
last;
|
||||
}
|
||||
}
|
||||
@output = to_percent($target);
|
||||
} else {
|
||||
@output = ("No value after $ARGV[$i]");
|
||||
}
|
||||
last;
|
||||
}
|
||||
}
|
||||
last;
|
||||
} elsif ($ARGV[$i] eq '--') {
|
||||
$target = decrement();
|
||||
@output = to_percent($target);
|
||||
last;
|
||||
} elsif ($ARGV[$i] eq '-=') {
|
||||
for (my $i=0;$i<scalar @ARGV;$i++) {
|
||||
if ($ARGV[$i] eq '-=') {
|
||||
if (defined $ARGV[($i+1)]) {
|
||||
$count = $ARGV[($i+1)];
|
||||
for (my $j=0;$j<$count;$j++) {
|
||||
$target = decrement();
|
||||
if ($target eq "Permission Denied") {
|
||||
last;
|
||||
}
|
||||
}
|
||||
@output = to_percent($target);
|
||||
} else {
|
||||
@output = ("No value after $ARGV[$i]");
|
||||
}
|
||||
last;
|
||||
}
|
||||
}
|
||||
last;
|
||||
} elsif ($ARGV[$i] eq '=') {
|
||||
$target = $ARGV[($i+1)];
|
||||
if (defined $target) {
|
||||
if ($target < 1) {
|
||||
$target = set(get_min());
|
||||
} elsif ($target > get_max()) {
|
||||
$target = set(get_max());
|
||||
} elsif ($target > 100) {
|
||||
$target = set($target);
|
||||
} else {
|
||||
$target = set(int((get_max()*$target/100)+1));
|
||||
}
|
||||
if ($target eq "Permission Denied") {
|
||||
@output = $target;
|
||||
} else {
|
||||
@output = to_percent($target);
|
||||
}
|
||||
last;
|
||||
} else {
|
||||
@output = ("No value after $ARGV[$i]");
|
||||
last;
|
||||
}
|
||||
} elsif ($ARGV[$i] eq '%') {
|
||||
push @output,int(get_current()/get_max()*100);
|
||||
} elsif ($ARGV[$i] eq '^') {
|
||||
push @output,get_max();
|
||||
} elsif ($ARGV[$i] eq '==') {
|
||||
push @output,get_current();
|
||||
} elsif ($ARGV[$i] eq '--help') {
|
||||
help();
|
||||
print " (see --HELP).\n\n";
|
||||
exit();
|
||||
} elsif ($ARGV[$i] eq '--HELP') {
|
||||
help();
|
||||
advanced();
|
||||
exit();
|
||||
} elsif ($ARGV[$i] eq '--silent') {
|
||||
$silent = 'TRUE';
|
||||
} elsif ($ARGV[$i] =~ /^--notify/) {
|
||||
$notify = 'TRUE';
|
||||
if ($ARGV[$i] =~ /=[0-9]+$/) {
|
||||
$duration = $ARGV[$i];
|
||||
$duration =~ s/.*=([0-9]+)/$1/;
|
||||
} else {
|
||||
$duration = 200;
|
||||
}
|
||||
} else {
|
||||
my $add = $ARGV[$i];
|
||||
$add =~ s/\\//;
|
||||
push @output,$add;
|
||||
}
|
||||
}
|
||||
} else {
|
||||
@output = ('{"Backlight":{"Max":"' . get_max() . '","Current":"' . get_current() . '","Percentage","' . int(get_current()/get_max()*100) . '%"}}');
|
||||
}
|
||||
|
||||
|
||||
open(my $fh,'>',$last_file);
|
||||
print $fh get_current();
|
||||
close($fh);
|
||||
|
||||
if ($silent) {
|
||||
exit();
|
||||
} elsif ($notify) {
|
||||
# Don't output anything if the value didn't change
|
||||
if ($current == get_current()) {
|
||||
exit();
|
||||
}
|
||||
my $concat;
|
||||
foreach (@output) {
|
||||
$concat .= $_;
|
||||
}
|
||||
system "notify-send --urgency=normal -i /usr/share/icons/Papirus-Dark-Grey/48x48/status/notification-display-brightness.svg -t $duration \"$concat\"";
|
||||
exit();
|
||||
} else {
|
||||
print foreach @output;
|
||||
print "\n";
|
||||
exit();
|
||||
}
|
||||
|
|
@ -0,0 +1,39 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my $maxfile = "/sys/class/leds/tpacpi\:\:kbd_backlight/max_brightness";
|
||||
my $current = "/sys/class/leds/tpacpi\:\:kbd_backlight/brightness";
|
||||
|
||||
my ($max, $now, $new);
|
||||
if (open(my $m, '<', $maxfile)) {
|
||||
$max = readline($m);
|
||||
chomp $max;
|
||||
close($m);
|
||||
} else {
|
||||
print "Failed to read $maxfile\n";
|
||||
exit;
|
||||
}
|
||||
print STDERR "max = $max\n";
|
||||
|
||||
if (open(my $c, '<', $current)) {
|
||||
$now = readline($c);
|
||||
chomp $now;
|
||||
close($c);
|
||||
} else {
|
||||
print "Failed to read $current\n";
|
||||
exit;
|
||||
}
|
||||
print STDERR "now = $now\n";
|
||||
|
||||
if (open(my $fh, '>', $current)) {
|
||||
$new = (($now+1) % ($max+1));
|
||||
chomp $new;
|
||||
print $fh $new;
|
||||
close($fh);
|
||||
} else {
|
||||
print "Failed to write $current\n";
|
||||
exit;
|
||||
}
|
||||
print STDERR "new = $new\n";
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
#!/bin/bash
|
||||
|
||||
CURRENT=`cat /home/jpm/.config/last_display`
|
||||
|
||||
if [ "$CURRENT" == "detached" ]; then
|
||||
/home/jpm/scripts/sway/displays.pl stacked
|
||||
else
|
||||
/home/jpm/scripts/sway/displays.pl detached
|
||||
fi
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
[Unit]
|
||||
Description=Give ownership of backlight to %I
|
||||
|
||||
[Service]
|
||||
ExecStart=chown %i:%i /sys/class/backlight/intel_backlight/brightness /sys/class/leds/tpacpi::kbd_backlight/brightness
|
||||
|
||||
[Install]
|
||||
WantedBy=multi-user.target
|
||||
Loading…
Reference in New Issue