NoTouchPad.hs

module Main where

import System.Process (readProcess, callCommand)
import Data.List       (isInfixOf, words)
import Data.List.Split (splitOn)

main = do res <- readProcess "xinput" ["list"] ""
          let devices = (filter (isInfixOf "TouchPad") (lines res))
          let ids = concatMap (filter (isInfixOf "id=") . words) devices
          mapM_ (callCommand . buildDisable) (map delId ids)
          print "disabled devices:"
          mapM_ print devices

buildDisable x = "xinput set-prop " ++ x ++ " \"Device Enabled\" 0"

-- "id=12" -> "12"
delId ('i':'d':'=':xs) = xs
delId _                = []