ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-02-07 17:32:50 +01:00
parent 049d7a5955
commit a09f13e0fd
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
.xbindkeysrc.scm
View file

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