Skip to content

Instantly share code, notes, and snippets.

@WhoAteDaCake
Created July 17, 2021 16:29
Show Gist options
  • Save WhoAteDaCake/a2988cbbcb6e98ebaee5f86f5456f62b to your computer and use it in GitHub Desktop.
Save WhoAteDaCake/a2988cbbcb6e98ebaee5f86f5456f62b to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
my $output = qx/xinput list/;
my ($id) = ($output =~ m/Touchpad\s+id=(\d+)/);
my $props = qx/xinput --list-props $id/;
my ($prop) = ($props =~ m/Finger\s\((\d+)\)/);
qx/xinput --set-prop $id $prop 5, 10, 0/;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment