From a09f13e0fd5a32b6da9e388bdbadabcd03cd3680 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Tue, 7 Feb 2012 17:32:50 +0100
Subject: [PATCH] .xbindkeysrc.scm

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

diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index 7bc300a..067aaa4 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -6,6 +6,7 @@
 (define modkey 'mod4)
 (define dmenu-cmd "dmenu")
 (define dmenu-args "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000'")
+(define dzen-pipe nil)
 
 ;;; Macros
 (define-macro (cmd command)
@@ -39,6 +40,8 @@
 
 (define (switch-tags)
   "Switch to another tag"
+  (close-pipe dzen-pipe)
+  (set! dzen-pipe nil)
   (let* ((tags (get-tags))
          (tag (choose-tag "Switch to tag" tags)))
     (if (string? tag)
@@ -92,6 +95,8 @@
 
 (define (X-functions)
   "Second binding"
+  (set! dzen-pipe (open-output-pipe "dzen2"))
+  (display "S-x" dzen-pipe)
   (ungrab-all-keys)
   (remove-all-keys)
   (xbindkey-function '(b) switch-tags)