mouseSpeedSetter.fsx

open System.Text
open System.Text.RegularExpressions 

let p = new System.Diagnostics.Process()
p.StartInfo.FileName <- "xinput"
p.StartInfo.Arguments <- ("list")
p.StartInfo.RedirectStandardOutput <- true
p.StartInfo.UseShellExecute <- false
p.Start()

let output = p.StandardOutput.ReadToEnd()
let lines = output.Split('\n')

for line in lines do
    let r = new Regex(@"id=([0-9]*)", RegexOptions.IgnoreCase)
    if line.Contains("Optical Mouse") then
        let matches = r.Match(line)
        let group = matches.Groups.[1].ToString()
        printfn "%s" group
        let p = new System.Diagnostics.Process()
        p.StartInfo.FileName <- "xinput"
        let arg = "set-prop " + group + " \"Device Accel Constant Deceleration\" 3"
        printfn "%s" arg
        p.StartInfo.Arguments <- (arg)
        p.StartInfo.RedirectStandardOutput <- true
        p.StartInfo.UseShellExecute <- false
        p.Start() |> ignore

printfn "done"