diff options
author | Tom Willemsen | 2012-02-07 11:07:38 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-02-07 11:07:38 +0100 |
commit | 724ce012d4e7a59a7b02e5f981d80d3b81b0d228 (patch) | |
tree | 9990c07575bd578368a588198625360a45c6b905 /.xbindkeysrc.scm | |
parent | 4c877f0c7b7bb54e8fc8c55d5da4625772af1dcf (diff) | |
download | dotfiles-724ce012d4e7a59a7b02e5f981d80d3b81b0d228.tar.gz dotfiles-724ce012d4e7a59a7b02e5f981d80d3b81b0d228.zip |
.xbindkeysrc.scm
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r-- | .xbindkeysrc.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index a58c09a..ab52f00 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -2,9 +2,10 @@ (use-modules (ice-9 popen) (ice-9 rdelim)) -;;; Modkey +;;; Variables (define modkey 'mod4) -(define dmenu-cmd "dmenu -b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000'") +(define dmenu-cmd "dmenu") +(define dmenu-args "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000'") ;;; Macros (define-macro (cmd command) @@ -31,7 +32,7 @@ "Ask to choose a tag" (let* ((file (open-input-pipe (string-append "echo '" (string-join tags "\n") - "' | " dmenu-cmd " -p '" prompt ":'"))) + "' | " dmenu-cmd " " dmenu-args " -p '" prompt ":'"))) (tag (read-line file))) (close-port file) tag)) @@ -71,7 +72,7 @@ ;;; Maps (define (main-binding) "First binding" - (xbindkey `(,modkey shift "1") "dmenu_run") + (xbindkey `(,modkey shift "1") (string-append "dmenu_run " dmenu-args)) (xbindkey-function `(,modkey x) X-functions) (xbindkey-function `(,modkey w) W-functions) (xbindkey-function `(,modkey s) S-functions) |