From 724ce012d4e7a59a7b02e5f981d80d3b81b0d228 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 11:07:38 +0100
Subject: .xbindkeysrc.scm

---
 .xbindkeysrc.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to '.xbindkeysrc.scm')

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)
-- 
cgit v1.2.3-54-g00ecf