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:33:46 +01:00
parent 09c67a2b70
commit 94666fab5f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
.xbindkeysrc.scm
View file

@ -6,7 +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 ()) (define dzen-pipe 0)
;;; Macros ;;; Macros
(define-macro (cmd command) (define-macro (cmd command)
@ -41,7 +41,7 @@
(define (switch-tags) (define (switch-tags)
"Switch to another tag" "Switch to another tag"
(close-pipe dzen-pipe) (close-pipe dzen-pipe)
(set! dzen-pipe ()) (set! dzen-pipe 0)
(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)