diff options
author | Tom Willemsen | 2012-02-07 17:32:50 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-02-07 17:32:50 +0100 |
commit | a09f13e0fd5a32b6da9e388bdbadabcd03cd3680 (patch) | |
tree | 8f1a52ec56f373895b415a4f0ea0a624594908c1 | |
parent | 049d7a595532844b2ab828bbb1ee2b13a4ff7556 (diff) | |
download | dotfiles-a09f13e0fd5a32b6da9e388bdbadabcd03cd3680.tar.gz dotfiles-a09f13e0fd5a32b6da9e388bdbadabcd03cd3680.zip |
.xbindkeysrc.scm
-rw-r--r-- | .xbindkeysrc.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |