Cleanup

.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))