diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index d1c9479..7709acd 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -138,6 +138,14 @@ the command." (close-pipe dzen-pipe) (set! dzen-pipe '()))) +(define (toggle-touchpad) + (let* ((pipe (open-input-pipe "synclient | grep TouchpadOff")) + (state (car (last-pair (string-split (read-line pipe) #\ ))))) + (close-port pipe) + (if (equal? state "0") + (system "synclient TouchpadOff=1; xte 'mousemove 1500 1500'") + (system "synclient TouchpadOff=0")))) + ;;;_ Maps (define (main-binding) "First binding"