diff options
author | Tom Willemsen | 2012-02-28 20:03:31 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-02-28 20:03:31 +0100 |
commit | fd2fd41a8e93778ded2a1512285bf56d0fb67b1b (patch) | |
tree | b485c9f2de3e1c88a34e05b9be97049edbbb7bd2 /.xbindkeysrc.scm | |
parent | 883ec95f096fe9def9b293c13b677577b8e4d20b (diff) | |
download | dotfiles-fd2fd41a8e93778ded2a1512285bf56d0fb67b1b.tar.gz dotfiles-fd2fd41a8e93778ded2a1512285bf56d0fb67b1b.zip |
.xbindkeysrc.scm
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r-- | .xbindkeysrc.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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" |