Touchpad aus

#!/usr/bin/tclsh

foreach line [split [exec xinput list] \n] {
  if {[string match *TouchPad* $line]} then {
    regexp {id=([0-9]+)} $line match id
    exec xinput set-prop $id "Device Enabled"\
      [string is true $argv]
    exit 0
  }
}

exit 1

11.3.2022