diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index 7709acd..22aa5b7 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -138,13 +138,11 @@ 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")))) +(define (kill-mouse) + (system "synclient TouchpadOff=1; xte 'mousemove 1500 1500'")) + +(define (revive-mouse) + (system "synclient TouchpadOff=0")) ;;;_ Maps (define (main-binding) @@ -169,6 +167,8 @@ the command." (xbindkey `(,modkey n) "herbstclient focus down") (xbindkey `(,modkey p) "herbstclient focus up") (xbindkey `(,modkey f) "herbstclient focus right") + (xbindkey-function '(XF86TouchpadOff) kill-mouse) + (xbindkey-function '(XF86TouchpadOn) revive-mouse) (xbindkey-function `(,modkey g) reset-main-binding)) (create-map X-function-map