mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-06-18 03:09:37 +02:00
18 lines
551 B
Plaintext
18 lines
551 B
Plaintext
|
#!/usr/bin/env racket
|
||
|
|
#lang racket
|
||
|
|
|
||
|
|
;; This script is used to map the xinput device(s) of my external touch
|
||
|
|
;; display to the correspondung X screen.
|
||
|
|
|
||
|
|
(define screen
|
||
|
|
(vector-ref (current-command-line-arguments) 0))
|
||
|
|
|
||
|
|
(define output
|
||
|
|
(with-output-to-string
|
||
|
|
(λ () (system* (find-executable-path "xinput") "--list"))))
|
||
|
|
|
||
|
|
(for ([line (string-split output "\n")])
|
||
|
|
(when (string-contains? line "TSTP MTouch")
|
||
|
|
(match-define (list _ id) (regexp-match #px"id=(\\d+)" line))
|
||
|
|
(system* (find-executable-path "xinput") "map-to-output" id screen)))
|