diff options
Diffstat (limited to '.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) |