From fd2fd41a8e93778ded2a1512285bf56d0fb67b1b Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Tue, 28 Feb 2012 20:03:31 +0100
Subject: [PATCH] .xbindkeysrc.scm

---
 .xbindkeysrc.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

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"