From b403d8987c567ec80ae7f3a7ee3940ca249dc0db Mon Sep 17 00:00:00 2001
From: John Mertz <git@john.me.tz>
Date: Sat, 17 Sep 2022 15:21:13 -0400
Subject: [PATCH] Whitespace

---
 thinkpad/blc.pl | 106 ++++++++++++++++++++++++------------------------
 1 file changed, 53 insertions(+), 53 deletions(-)

diff --git a/thinkpad/blc.pl b/thinkpad/blc.pl
index 0514b47..d9ba621 100755
--- a/thinkpad/blc.pl
+++ b/thinkpad/blc.pl
@@ -11,7 +11,7 @@
 #
 # to output like:
 #   1000/10000 = 10%
-#   
+#
 # Create a new array of hashes to classify the ARGV elements, eg:
 #   $0 + "+%c" -= 10 +=4 =1 =100 "+%p"
 #   [
@@ -106,7 +106,7 @@ sub get_min
 sub writable
 {
         if (! -w $cur_file) {
-		die "You don't have permission to write $cur_file\n";
+                die "You don't have permission to write $cur_file\n";
         }
 	return 1;
 }
@@ -241,7 +241,7 @@ my (@output, $target, $silent, $notify);
 
 my $operation_found = 0;
 if (scalar @ARGV) {
-	while ($arg = shift) {
+        while ($arg = shift) {
                 if ($arg eq '%') {
                         push @output,int(get_current()/get_max()*100);
                 } elsif ($arg eq '^') {
@@ -266,52 +266,52 @@ if (scalar @ARGV) {
                         } else {
                                 $duration = 1000;
                         }
-		} elsif ($arg eq '+') {
-			unshift(@ARGV,1);
-			unshift(@ARGV,'+=');
+                } elsif ($arg eq '+') {
+                        unshift(@ARGV,1);
+                        unshift(@ARGV,'+=');
                 } elsif ($arg =~ /^\+=/) {
-			my $offset;
-			if ($arg =~ m/^\+=(.+)$/) {
-				$offset = $1;
-			} else {
-				$offset = shift || die "+= without accompanying offset value\n";
-			}
-			unless ($offset =~ /^\d+$/) {
-				die "+= <value> is not a number ($offset)\n";
-			}
+                        my $offset;
+                        if ($arg =~ m/^\+=(.+)$/) {
+                                $offset = $1;
+                        } else {
+                                $offset = shift || die "+= without accompanying offset value\n";
+                        }
+                        unless ($offset =~ /^\d+$/) {
+                                die "+= <value> is not a number ($offset)\n";
+                        }
                         for (my $j=0;$j<$offset;$j++) {
                                 $target = increment();
-				@output = to_percent($target);
+                                @output = to_percent($target);
                         }
                         $operation_found = 1;
-		} elsif ($arg eq '-') {
-			unshift(@ARGV,1);
-			unshift(@ARGV,'-=');
+                } elsif ($arg eq '-') {
+                        unshift(@ARGV,1);
+                        unshift(@ARGV,'-=');
                 } elsif ($arg =~ /^-=/) {
-			my $offset;
-			if ($arg =~ m/^-=(.+)$/) {
-				$offset = $1;
-			} else {
-				$offset = shift || die "-= without accompanying offset value\n";
-			}
-			unless ($offset =~ /^\d+$/) {
-				die "-= <value> is not a number ($offset)\n";
-			}
+                        my $offset;
+                        if ($arg =~ m/^-=(.+)$/) {
+                                $offset = $1;
+                        } else {
+                                $offset = shift || die "-= without accompanying offset value\n";
+                        }
+                        unless ($offset =~ /^\d+$/) {
+                                die "-= <value> is not a number ($offset)\n";
+                        }
                         for (my $j=0;$j<$offset;$j++) {
                                 $target = decrement();
-				@output = to_percent($target);
+                                @output = to_percent($target);
                         }
                         $operation_found = 1;
                 } elsif ($arg =~ m/^=/) {
-			my $value;
-			if ($arg =~ m/^=(.+)$/) {
-				$target = $1;
-			} else {
-				$target = shift || die "= without accompanying absolute value\n";
-			}
-			unless ($target =~ /^\d+$/) {
-				die "= <value> is not a number ($target)\n";
-			}
+                        my $value;
+                        if ($arg =~ m/^=(.+)$/) {
+                                $target = $1;
+                        } else {
+                                $target = shift || die "= without accompanying absolute value\n";
+                        }
+                        unless ($target =~ /^\d+$/) {
+                                die "= <value> is not a number ($target)\n";
+                        }
                         if ($target < 1) {
                                 $target = set(get_min());
                         } elsif ($target > get_max()) {
@@ -326,7 +326,7 @@ if (scalar @ARGV) {
                         @output = to_percent($target);
                         $operation_found = 1;
                 } else {
-			push(@output,$arg);
+                        push(@output,$arg);
                 }
         }
 } else {
@@ -336,7 +336,7 @@ if (scalar @ARGV) {
                 . '","Current":"'
                 . get_current()
                 . '","Percentage","'
-                .  int(get_current()/get_max()*100)
+                . int(get_current()/get_max()*100)
                 . '%"}}'
         );
 }
@@ -354,26 +354,26 @@ if ($silent) {
                 $concat .= $_;
         }
 =pod
-	use Gtk2::Notify -init, "Backlight";
-	my $notification = Gtk2::Notify::new('Backlight', $concat, '', "notification-display-brightness");
+        use Gtk2::Notify -init, "Backlight";
+        my $notification = Gtk2::Notify::new('Backlight', $concat, '', "notification-display-brightness");
 
-	$notification->set_hint_string('x-canonical-private-synchronous','blc');
-	$notification->set_urgency('NOTIFY_URGENCY_LOW');
-	$notification->set_hint_int32('value',(split('%',$concat))[0]);
-	$notification->set_timeout($duration);
-	$notification->show();
-	exit;
+        $notification->set_hint_string('x-canonical-private-synchronous','blc');
+        $notification->set_urgency('NOTIFY_URGENCY_LOW');
+        $notification->set_hint_int32('value',(split('%',$concat))[0]);
+        $notification->set_timeout($duration);
+        $notification->show();
+        exit;
         print "notify-send --urgency=normal"
                 . ' --icon="notification-display-brightness"'
-		. ' --hint=string:x-canonical-private-synchronous:blc'
+                . ' --hint=string:x-canonical-private-synchronous:blc'
                 . ' --expire-time=' . $duration
-		. ' "Backlight"'
+                . ' "Backlight"'
                 . ' "' . $concat . " '" . join("','", @output) . "'\"";
         system "notify-send --urgency=normal"
                 . ' --icon="notification-display-brightness"'
-		. ' --hint=string:x-canonical-private-synchronous:blc'
-		. ' --hint=int:value:' . (split('%',$concat))[0]
-		. ' --expire-time=' . $duration
+                . ' --hint=string:x-canonical-private-synchronous:blc'
+                . ' --hint=int:value:' . (split('%',$concat))[0]
+                . ' --expire-time=' . $duration
                 . ' "' . $concat . "\"";
 =cut