ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-02-28 20:03:31 +01:00
parent 883ec95f09
commit fd2fd41a8e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
.xbindkeysrc.scm
View file

@ -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"