]> git.sur5r.net Git - i3/i3/commitdiff
Remove trailing whitespace from Perl scripts 3177/head
authorOrestis Floros <orestisf1993@gmail.com>
Thu, 15 Mar 2018 19:33:45 +0000 (21:33 +0200)
committerOrestis Floros <orestisf1993@gmail.com>
Thu, 15 Mar 2018 19:33:45 +0000 (21:33 +0200)
generate-command-parser.pl
testcases/t/134-invalid-command.t
testcases/t/232-cmd-move-criteria.t
testcases/t/240-focus-on-window-activation.t
testcases/t/243-move-to-mark.t
testcases/t/245-move-position-mouse.t
testcases/t/253-multiple-net-wm-state-atoms.t
testcases/t/529-net-wm-desktop.t

index 4c45b6ed614f3bb3252566e401d971a9e74f1649..052e4c66338c72076b6e7121eedeec3172d6b63f 100755 (executable)
@@ -77,7 +77,7 @@ for my $line (@lines) {
             ($line =~ /
                 ^\s*                  # skip leading whitespace
                 ([a-z_]+ \s* = \s*|)  # optional identifier
-                (.*?) -> \s*          # token 
+                (.*?) -> \s*          # token
                 (.*)                  # optional action
              /x);
 
index 4557bbda6a9155b91fe423a011590e7e0b180f21..c10771c802fedf8228c98c39cd867ccaf3f4e4e3 100644 (file)
@@ -14,7 +14,7 @@
 #
 # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
 #   (unless you are already familiar with Perl)
-# 
+#
 #
 use i3test;
 
index 54e7ce9cef876b75c5d4dbaed153045fb67be760..312c9660e51a0af91f3950aa5262684247d0317f 100644 (file)
@@ -45,7 +45,7 @@ is($x->input_focus, $win3->{id}, 'it should not disturb focus');
 ###############################################################################
 
 # test all window types
-my %window_types = ( 
+my %window_types = (
     'normal'        => '_NET_WM_WINDOW_TYPE_NORMAL',
     'dialog'        => '_NET_WM_WINDOW_TYPE_DIALOG',
     'utility'       => '_NET_WM_WINDOW_TYPE_UTILITY',
index 57060753978ac6f5c99085109e43b2c00a96df43..efcd5ca400c2a7853b15fabdb029038f4ac5a5f0 100644 (file)
@@ -22,7 +22,7 @@ use List::Util qw(first);
 my ($config, $pid, $first, $second, $ws1, $ws2);
 
 sub send_net_active_window {
-    my ($id) = @_; 
+    my ($id) = @_;
 
     my $msg = pack "CCSLLLLLLL",
         X11::XCB::CLIENT_MESSAGE, # response_type
index abc2b4c6ce270ca6b4501175146678903b62c0a7..25d13333fd81e9fa9d81a9a1ae67585c6035eae7 100644 (file)
@@ -31,7 +31,7 @@ my $_NET_WM_STATE_ADD = 1;
 my $_NET_WM_STATE_TOGGLE = 2;
 
 sub set_urgency {
-    my ($win, $urgent_flag) = @_; 
+    my ($win, $urgent_flag) = @_;
     my $msg = pack "CCSLLLLLL",
         X11::XCB::CLIENT_MESSAGE, # response_type
         32, # format
@@ -119,7 +119,7 @@ is($nodes->[0]->{window}, $M->{id}, 'M is left of S');
 is($nodes->[1]->{window}, $S->{id}, 'S is right of M');
 
 ###############################################################################
-# Given 'S' and 'M' on different workspaces and 'S' is urgent, when 'S' is 
+# Given 'S' and 'M' on different workspaces and 'S' is urgent, when 'S' is
 # moved to 'M', then the urgency flag is transferred to the target workspace.
 ###############################################################################
 
index 12f890f281f92b7fa82c157627a5cb55e66f5340..01e2c30e121fe88404c941bc7aa38ff461d34201 100644 (file)
@@ -58,7 +58,7 @@ exit_gracefully($pid);
 
 ##########################################################################
 # Given a floating container and the cursor is in the left upper edge
-# of the output, when moving the container to the mouse, then the 
+# of the output, when moving the container to the mouse, then the
 # container is moved but adjusted to stay in-bounds.
 ##########################################################################
 
@@ -84,7 +84,7 @@ exit_gracefully($pid);
 
 ##########################################################################
 # Given a floating container and the cursor is in the left right lower
-# edge of the output, when moving the container to the mouse, then the 
+# edge of the output, when moving the container to the mouse, then the
 # container is moved but adjusted to stay in-bounds.
 ##########################################################################
 
index 3790f92ddfee6ac5f98cb5b1f24235e7aaa83ec1..392beae1330e456dc00bc64ae3f20eed708db422 100644 (file)
@@ -21,15 +21,15 @@ use X11::XCB qw(:all);
 sub get_wm_state {
     sync_with_i3;
 
-    my ($con) = @_; 
+    my ($con) = @_;
     my $cookie = $x->get_property(
-        0,  
+        0,
         $con->{id},
         $x->atom(name => '_NET_WM_STATE')->id,
         GET_PROPERTY_TYPE_ANY,
-        0,  
+        0,
         4096
-    );  
+    );
 
     my $reply = $x->get_property_reply($cookie->{sequence});
     my $len = $reply->{length};
index ae596203e4ddda18f5b3ffc4f26a0cf889bc37ac..f1da29805df7f4cd02cb463fe95a0e7f832654e5 100644 (file)
@@ -31,15 +31,15 @@ use X11::XCB qw(:all);
 sub get_net_wm_desktop {
     sync_with_i3;
 
-    my ($con) = @_; 
+    my ($con) = @_;
     my $cookie = $x->get_property(
-        0,  
+        0,
         $con->{id},
         $x->atom(name => '_NET_WM_DESKTOP')->id,
         $x->atom(name => 'CARDINAL')->id,
-        0,  
+        0,
         1
-    );  
+    );
 
     my $reply = $x->get_property_reply($cookie->{sequence});
     return undef if $reply->{length} != 1;