summaryrefslogtreecommitdiffstats
path: root/.xbindkeysrc.scm
diff options
context:
space:
mode:
authorGravatar Tom Willemsen2012-02-28 20:03:31 +0100
committerGravatar Tom Willemsen2012-02-28 20:03:31 +0100
commitfd2fd41a8e93778ded2a1512285bf56d0fb67b1b (patch)
treeb485c9f2de3e1c88a34e05b9be97049edbbb7bd2 /.xbindkeysrc.scm
parent883ec95f096fe9def9b293c13b677577b8e4d20b (diff)
downloaddotfiles-fd2fd41a8e93778ded2a1512285bf56d0fb67b1b.tar.gz
dotfiles-fd2fd41a8e93778ded2a1512285bf56d0fb67b1b.zip
.xbindkeysrc.scm
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r--.xbindkeysrc.scm8
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"