From 5aa3ec23c5037ac8ab0bd080123760c1b3df81b5 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 20:07:39 +0100
Subject: Cleanup

---
 .xbindkeysrc.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to '.xbindkeysrc.scm')

diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index 3bea5fe..38d33a1 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -8,6 +8,8 @@
 (define dmenu-cmd "dmenu")
 (define dmenu-args
   (string-append "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000' -fn '" font "'"))
+(define dzen-cmd "dzen2")
+(define dzen-args (string-append " -fn '" font "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))
 (define dzen-pipe '())
 
 ;;; Macros
@@ -26,6 +28,7 @@
   (grab-all-keys))
 
 (define (get-tags)
+  "Get a list of tags"
   (let* ((file (open-input-pipe
                 "TAGS=( $(herbstclient tag_status 0 | tr \":\\!.+#\" \" \") ); echo ${TAGS[@]}"))
          (tags (string-split (read-line file) #\ )))
@@ -84,8 +87,8 @@
 (define (gui-print text)
   (let ((width (+ (text-width font text) 10)))
     (set! dzen-pipe (open-output-pipe
-                     (string-append "dzen2 -w " (number->string width)
-                                    " -fn '" font "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))))
+                     (string-append dzen-cmd " -w " (number->string width)
+                                    " " dzen-args))))
   (display text dzen-pipe)
   (newline dzen-pipe))
 
-- 
cgit v1.2.3-54-g00ecf