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:06:07 +01:00
parent fd2fd41a8e
commit 8f46bf4cbb
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
.xbindkeysrc.scm
View file

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